СРОЧНО ДАЮ 100 БАЛЛОВ!!!!! Составьте алгоритмы управления Чертежником, после исполнения...

Question

СРОЧНО ДАЮ 100 БАЛЛОВ!!!!! Составьте алгоритмы управления Чертежником, после исполнения которых будет получен следующий рисунок

---

Answer 1

Ответ:

uses Drawman;

var i,x,y: integer;

begin

Field(13,13);

for i:=0 to 3 do

begin

 x:=1+i;

 y:=3+i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x+2,y);

 ToPoint(x+2,y-2);

 PenUp;

end;

for i:=0 to 3 do

begin

 x:=1+i;

 y:=10-i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x+2,y);

 ToPoint(x+2,y+2);

 PenUp;

end;

for i:=0 to 3 do

begin

 x:=10-i;

 y:=1+i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x,y+2);

 ToPoint(x+2,y+2);

 PenUp;

end;

for i:=0 to 3 do

begin

 x:=10-i;

 y:=12-i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x,y-2);

 ToPoint(x+2,y-2);

 PenUp;

end;

ToPoint(0,0);

end.