Нарисовать паркет с помощью процедуры - Pascal ABC

Формулировка задачи:

Нарисовать паркет с помощью процедуры

Код к задаче: «Нарисовать паркет с помощью процедуры - Pascal ABC»

textual
uses GraphABC;
type point=record
           x,y:integer;
           end;
procedure plitk(x,y,r:integer);
var p:array[1..9]of point;
    a,da:real;
    i:byte;
begin
a:=pi/2;
da:=pi/4;
for i:=1 to 9 do
 begin
  p[i].x:=x+round(r*cos(a));
  p[i].y:=y-round(r*sin(a));
  a:=a+da;
 end;
polygon(p,9);
end;
var r,i,j,x,y,d:integer;
begin
r:=20;
y:=r;
while y<=windowheight do
 begin
  x:=r;
  while x<=windowwidth do
   begin
    plitk(x,y,r);
    x:=x+2*r;
   end;
  y:=y+2*r
 end;
end.

14   голосов, оценка 4.214 из 5


СОХРАНИТЬ ССЫЛКУ