Предмет: Информатика, автор: leragrech1706

напишите пожалуйста программу (алгоритм), чтобы получились вот такие фигуры. в заранее огромное спасибо!

Приложения:

13nisa13: У меня немного другой Чертёжник, но могу скинуть как вариант...
leragrech1706: давайте, мне очень нужно

Ответы

Автор ответа: 13nisa13
0

uses Drawman;

var r,x,y,i:integer;

procedure kvadrat (var x,y,r:integer);

var j:integer;

begin

for j:=1 to 4 do

begin

topoint(x,y);

pendown;

onvector(-r,r);

onvector(r,r);

onvector(r,-r);

onvector(-r,-r);

penup;

r:=r+1;

y:=y-1

end;

end;

begin

Field (22,14);

r:=1;

x:=6;

y:=6;

for i:=1 to 3 do

begin

kvadrat (x,y,r);

r:=1;

x:=x+5;

y:=y+4;

end

end.

Приложения:

13nisa13: Все размеры больше в 2 раза...
Похожие вопросы
Предмет: Литература, автор: Аноним