Question

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

Answer 1

Ответ:

program z;

uses Drawman;

begin

Field(11,9);

OnVector(2,0);

PenDown;

OnVector(0,3);

OnVector(-1,0);

for var i:=1 to 5 do begin

OnVector(0,1);

OnVector(1,0);

end;

OnVector(-1,0);

for var i:=1 to 5 do begin

OnVector(1,0);

OnVector(0,-1);

end;

OnVector(-1,0);

OnVector(0,-3);

OnVector(-3,0);

OnVector(0,3);

OnVector(2,0);

OnVector(0,-3);

OnVector(-6,0);

PenUp;

OnVector(1,1);

PenDown;

OnVector(0,2);

OnVector(2,0);

OnVector(0,-2);

OnVector(-2,0);

OnVector(0,1);

OnVector(2,0);

OnVector(-1,0);

OnVector(0,-1);

PenUp;

OnVector(1,4);

PenDown;

OnVector(0,1);

OnVector(1,0);

OnVector(0,-1);

OnVector(-1,0);

PenUp;

OnVector(-5,-5);

end.

Объяснение:

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