Adln48

16.03.2021 01:40 •  Информатика

Pascal ABC - построить изображение OnVector

3) uses Drawman;
begin
Field(10,5);
//буква Б
OnVector(2,4); PenDown;
OnVector(-1,0); OnVector(0,-3);
OnVector(2,0); OnVector(0,2);
OnVector(-2,0); PenUp;
//буква Г
OnVector(5,1); PenDown;
OnVector(-2,0); OnVector(0,-3);
PenUp;
//буква У
OnVector(3,3); PenDown;
OnVector(2,-2); PenUp;
OnVector(0,2); PenDown;
OnVector(0,-3); OnVector(-1,0);
PenUp;
end.

4) Откройте файл с текстом программы и определите результат ее выполнения.
uses Drawman;
begin
Field(7,4); ToPoint(1,3); PenDown;
OnVector(1,0); OnVector(0,-2);
OnVector(-1,0); OnVector(0,2);
PenUp;
end.