Top.Mail.Ru
Ответы

Задание по PascalABC. Помогите

Добрый день, нужно нарисовать имя линиями в pascal abc ПОМОГИТЕ!!! (Имя Андрей)

По дате
По рейтингу
Аватар пользователя
Новичок
5лет

Program Name1;
uses graphAbc;
begin
line (70, 30, 35, 90);
line (70, 30, 100, 90);
line (47, 67, 90, 67);
line (110, 30, 110, 90);
line (150, 30, 150, 90);
line (110, 60, 150, 60);
line (170, 75, 170, 90);
line (220, 75, 220, 90);
line (170, 75, 220, 75);
line (180, 75, 180, 30);
line (210, 75, 210, 30);
line (180, 30, 210, 30);
line (240, 30, 240, 90);
line (240, 30, 275, 30);
line (240, 60, 275, 60);
line (275, 30, 275, 60);
line (300, 30, 300, 90);
line (300, 30, 340, 30);
line (300, 60, 340, 60);
line (300, 90, 340, 90);
line (360, 30, 360, 90);
line (400, 30, 400, 90);
line (360, 90, 400, 30);
line (375, 20, 385, 20);
end.