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

    question img

Ответы 2

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

      daffy
    • 6 лет назад
    • 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.
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years