Построить изображение разноцветного квадрата и затем внутрь внести свою Фамилия, имя и отчество, год рождения и группу. Pascal ABC
Построить изображение разноцветного квадрата и затем внутрь внести свою Фамилия, имя и отчество, год рождения и группу.
Pascal ABC
Ответ(ы) на вопрос:
Гость
uses graphabc;
begin
window.Init(0, 0, 600, 600, clwhite);
window.IsFixedSize := true;
pen.Width := 5;
line(50, 50, 500, 50, clred);
line(50, 50, 50, 500, clblue);
line(500, 50, 500, 500, clgreen);
line(50, 500, 500, 500, clyellow);
SetFontSize(30);
DrawTextCentered(50, 0, 500, 150, 'Имя');
DrawTextCentered(50, 130, 500, 200, 'Фамилия');
DrawTextCentered(50, 200, 500, 330, 'Отчество');
DrawTextCentered(50, 330, 500, 400, 'Год рождения'); DrawTextCentered(50, 400, 500, 500, 'Группа');
end.
Не нашли ответ?
Похожие вопросы