Question

Задание 3. В системе программирования Pascal ABC составьте программы для создания изображений (рис.3.3)​

Answer 1

Ответ:

program raketa;

uses drawman;

begin

Field(14,13);

ToPoint(2,1);

PenDown;

ToPoint(6,7);

ToPoint(5,3);

ToPoint(2,1);

PenUp;

ToPoint(12,1);

PenDown;

ToPoint(8,7);

ToPoint(9,3);

ToPoint(12,1);

PenUp;

ToPoint(6,9);

PenDown;

ToPoint(7,10);

ToPoint(8,9);

ToPoint(7,8);

ToPoint(6,9);

PenUp;

ToPoint(6,6);

PenDown;

ToPoint(7,7);

ToPoint(8,6);

ToPoint(7,5);

ToPoint(6,6);

PenUp;

ToPoint(4,3);

PenDown;

ToPoint(6,11);

ToPoint(7,12);

ToPoint(8,11);

ToPoint(10,3);

ToPoint(4,3)

end.

Объяснение:

картинка