Пример программы
program rumka;
uses graph, crt;
var d,r:integer;
a,b,c,m,x,y:longint;
begin
d:=3;r:=1;
initgraph(d,r,'');
setbkcolor(0);
setcolor(15);
x:=getmaxx div 2;
y:=getmaxy div 2;
moveto(x,y);
moverel(-20,0);
linerel(-20,-80);
linerel(80,0);
linerel(-20,80);
linerel(-40,0);
rectangle(x-10,y,x+10,y+50);
moveto(x+10,y+50);
linerel(20,10);
linerel(-60,0);
linerel(20,-10);
line(x-35,y-60,x+35,y-60);
setfillstyle(1,1);
floodfill(x,y-2,15);
moveto(x-20,y);
linerel(30,-120);
l
inerel(5,0);
linerel(-30,120);
setfillstyle(1,2);
floodfill(x-18,y-2,15);
repeat
until
keypressed;
end.
В результате выполнения программы на
экране появится изображение:
Практическая часть
Изучите теоретическую часть.
Запустите ТР7 (C:\TP7\start.bat).
Наберите приведенную выше программу
rumka, запустите
на выполнение и сравните результат.
Составьте программу построения
двумерного графического изображения
приведенных ниже рисунков.
Оформите отчет по работе.
Отчет должен содержать: номер работы,
тему, цель, задание, листинг программ,
результат работы программ, краткие
выводы, ответы на вопросы.
Контрольные вопросы
Перечислите режимы работы дисплея?
Какая процедура используется для
задания цвета линий?
Какая процедура используется для
построения эллипса? Опишите все ее
параметры.
Какое расширение имеет графический
драйвер?
Какая функция возвращает текущую
x-координату указателя?
Литература
Семакин И.Г., Шестаков А.П. Основы
программирования: Учебник.— М.:
Мастерство, 2002. — 432 с.