Как в pascal abc нарисовать танк командами вот пример танка.Program Tankuses

Как в pascal abc нарисовать танк командами вот пример танка.
Program Tank
uses Drawman
begin
Field (15,15)
ToPoint

Задать свой вопрос
1 ответ
Program Tank;

uses Drawman;

begin
  Field(20, 20);
  ToPoint(8, 15);
  PenDown;
  ToPoint(8, 16);
  ToPoint(11, 16);
  ToPoint(11, 15);
  PenUp;
  ToPoint(12, 12);
  PenDown;
  ToPoint(12, 15);
  ToPoint(7, 15);
  ToPoint(7, 12);
  PenUp;
  ToPoint(15, 9);
  PenDown;
  ToPoint(17, 9);
  ToPoint(17, 12);
  ToPoint(2, 12);
  ToPoint(2, 9);
  ToPoint(15, 9);
  ToPoint(16, 8);
  ToPoint(16, 7);
  ToPoint(15, 6);
  ToPoint(14, 6);
  ToPoint(13, 7);
  ToPoint(13, 8);
  ToPoint(14, 9);
  PenUp;
  ToPoint(13, 8);
  PenDown;
  ToPoint(12, 9);
  PenUp;
  ToPoint(11, 9);
  PenDown;
  ToPoint(10, 8);
  ToPoint(10, 7);
  ToPoint(11, 6);
  ToPoint(12, 6);
  ToPoint(13, 7);
  PenUp;
  ToPoint(7, 9);
  PenDown;
  ToPoint(6, 8);
  ToPoint(6, 7);
  ToPoint(7, 6);
  ToPoint(8, 6);
  ToPoint(9, 7);
  ToPoint(9, 8);
  ToPoint(8, 9);
  PenUp;
  ToPoint(6, 8);
  PenDown;
  ToPoint(5, 9);
  PenUp;
  ToPoint(4, 9);
  PenDown;
  ToPoint(3, 8);
  ToPoint(3, 7);
  ToPoint(4, 6);
  ToPoint(5, 6);
  ToPoint(6, 7);
  PenUp;
  ToPoint(7, 13);
  PenDown;
  ToPoint(1, 15);
  ToPoint(1, 16);
  ToPoint(7, 14);
  PenUp;
  ToPoint(0, 0);
end.
Ольга Хоециан
выручил вообще, спасибо огромное.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт