
Miralas
7 год назад
Построить изображение разноцветного квадрата и затем внутрь внести свою Фамилия, имя и отчество, год рождения и группу.
Pascal ABC
ОТВЕТЫ

Глеб
Jul 15, 2019
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.
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.
15
Смежные вопросы: