• ПОМОГИТЕ,ПРОШУ.
    Мне нужно составить в Pascal ABC имя "София".Но,используя DrawMan.
    P.s. первая буква составлена.

Ответы 1

  • Uses Drawman;Begin  Field(26,10);  ToPoint(1,2);  PenDown;  ToPoint(1,8);  ToPoint(4,8);  PenUp;  ToPoint(1,2);  PenDown;  ToPoint(4,2); PenUp;  ToPoint(6,2);  PenDown;  ToPoint(6,8);  ToPoint(9,8);  ToPoint(9,2);  ToPoint(6,2);  PenUp;  ToPoint(13,2);  PenDown;  ToPoint(13,8);  ToPoint(11,8);  ToPoint(11,5);  ToPoint(15,5);  ToPoint(15,8);  ToPoint(13,8);  PenUp;  ToPoint(17,8);  PenDown;  ToPoint(17,2); ToPoint(20,8);  ToPoint(20,2); PenUp;  ToPoint(22,2);  PenDown;  ToPoint(25,5);  ToPoint(22,5);  ToPoint(22,8);  ToPoint(25,8);  ToPoint(25,2);  PenUp;End.
    • Автор:

      dakota
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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