Предмет: Информатика,
автор: leragrech1706
напишите пожалуйста программу (алгоритм), чтобы получились вот такие фигуры. в заранее огромное спасибо!
Приложения:
![](https://files.topotvet.com/i/389/389812c6be9efd882bd74a6498ddb9c5.jpg)
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.
Приложения:
![](https://files.topotvet.com/i/97e/97e86e038ba704de53a36d49506a0a4d.jpg)
Похожие вопросы
Предмет: Математика,
автор: verunadubina
Предмет: Английский язык,
автор: nigaraa1
Предмет: Қазақ тiлi,
автор: sabina12072010
Предмет: Литература,
автор: Bomser30
Предмет: Литература,
автор: Аноним