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

0 голосов
140 просмотров

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


image

Информатика (34 баллов) | 140 просмотров
Дан 1 ответ
0 голосов

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.


image
(2.3k баллов)
0

выручил вообще, спасибо огромное.