Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Министерство образования Российской Федерации
Сибирского Государственного Технологического Университета
Факультет: Автоматизации и информационных технологий
Кафедра: Информационных технологий
Расчетная работа №14
По дисциплине «Алгоритмические языки и программирование»
Руководитель:
Якимов С.П.
(подпись)
Разработал:
Студент гр. 21-6
Прокопьев М.C.
(подпись)
Красноярск-2004.
Отчёт.
Вариант №8.
Задача № 121
Построить и закрасить квадрат со стороной 30 пикселей, центр которого совмещен с центром экрана. Стороны квадрата должны быть параллельны осям координат экрана.
Текст программы:
program Ex121;
uses graph;
var
driver,mode,ScreenX,ScreenY:integer;
begin
driver:=detect;
initgraph(driver,mode,'');
ScreenX:=getmaxx div 2;
ScreenY:=getmaxy div 2;
setfillstyle(1,green);
bar(ScreenX-15,ScreenY-15,ScreenX+15,ScreenY+15);
readln;
closegraph;
end.