Question

нарисовать в pascalABC​

Answer 1

Ответ:

program z;

uses Drawman;

begin

Field(20,15);

OnVector(1,8);

PenDown;

OnVector(2,0);

OnVector(0,1);

OnVector(5,0);

for var i:=1 to 5 do begin

OnVector(0,1);

OnVector(1,0);

end;

OnVector(3,0);

for var i:=1 to 4 do begin

OnVector(0,-1);

OnVector(-1,0);

end;

OnVector(0,-1);

OnVector(4,0);

for var i:=1 to 3 do begin

OnVector(0,1);

OnVector(1,0);

end;

OnVector(0,-4);

OnVector(-1,0);

OnVector(0,-1);

OnVector(-6,0);

for var i:=1 to 5 do begin

OnVector(0,-1);

OnVector(1,0);

end;

OnVector(0,-1);

OnVector(-4,0);

for var i:=1 to 6 do begin

OnVector(0,1);

OnVector(-1,0);

end;

OnVector(-6,0);

OnVector(0,1);

PenUp;

OnVector(-1,-8);

end.

Объяснение:

• Field (n, m) - cоздать пустое поле размера n на m клеток
• PenDown - опустить перо (при дальнейшем перемещении рисуется линия)
• PenUp - поднять перо (при дальнейшем перемещении не рисуется линия)
• OnVector (a,b) - переместиться на вектор (a,b) - если перо находится в точке с координатами (x,y), то перо перемещается в точку с координатами (x + a, y + b)