ПОМОГИТЕ,ПРОШУ. Мне нужно составить в Pascal ABC имя "София".Но,используя DrawMan. P.s. первая буква составлена.
ПОМОГИТЕ,ПРОШУ.
Мне нужно составить в Pascal ABC имя "София".Но,используя DrawMan.
P.s. первая буква составлена.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы