Question

можете в программе PascalABC нарисовать дату 27.08.2008 с помощью команды OnVector ПОЖАЛУЙСТА!!!

Answer 1

Ответ:

program z1;

uses drawman;

begin

Field(19,4);

OnVector(1,3);

PenDown;

OnVector(1,0);

OnVector(0,-1);

OnVector(-1,-1);

OnVector(1,0);

PenUp;

OnVector(1,2);

PenDown;

OnVector(1,0);

OnVector(-1,-1);

OnVector(0,-1);

PenUp;

OnVector(3,2);

PenDown;

OnVector(1,0);

OnVector(0,-2);

OnVector(-1,0);

OnVector(0,2);

PenUp;

OnVector(2,0);

PenDown;

OnVector(1,0);

OnVector(0,-2);

OnVector(-1,0);

OnVector(0,2);

OnVector(0,-1);

OnVector(1,0);

PenUp;

OnVector(2,1);

PenDown;

OnVector(1,0);

OnVector(0,-1);

OnVector(-1,-1);

OnVector(1,0);

PenUp;

OnVector(1,2);

PenDown;

OnVector(1,0);

OnVector(0,-2);

OnVector(-1,0);

OnVector(0,2);

PenUp;

OnVector(2,0);

PenDown;

OnVector(1,0);

OnVector(0,-2);

OnVector(-1,0);

OnVector(0,2);

PenUp;

OnVector(2,0);

PenDown;

OnVector(1,0);

OnVector(0,-2);

OnVector(-1,0);

OnVector(0,2);

OnVector(0,-1);

OnVector(1,0);

PenUp;

OnVector(-18,-2);

end.

Объяснение:

Смотри картинку