Алгоритмы и программы. Афанасьева Т. В - 194 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

194
end.
Для построения прямоугольников используется процедура
построения прямоугольника на плоскости:
Rectangle(x1,y1,x2,y2:integer),
где x1, y1 – координаты левого верхнего угла, x2, y2 – координаты
правого нижнего угла прямоугольника. Это очень полезная процедура, с ее
помощью, в частности, можно легко построить диаграмму для визуального
анализа данных.
Пример построения прямоугольников
Program Mih6;
uses graph,crt;
var x1,y1,x2,y2,d,j,k:integer;
Gd, Gm: Integer;
begin
Gd := Detect; {автоопределение}
InitGraph(Gd, Gm, ''); {установка графического режима}
if GraphResult <> grOk then {проверка инициализации графики}
Halt(1); {прекращение
выполнения прграммы}
cleardevice; {очистка окна}
x1:=640;
y1:=480;
x2:=1;
y2:=1;
repeat
setcolor(yellow); {установка цвета}
rectangle(x1,y1,x2,y2);
x1:=x1–2;
y1:=y1–2;
x2:=x2+2;
y2:=y2+2;
until x1<=1;
setcolor(1);
settextstyle(3,0,4); {установка параметров текста}
outtextxy(250,400,'press enter'); {вывод текста}
outtextxy(200,290,'Procedure Rectangle' ); {вывод текста}
READLN;
closegraph;{выход из графики}
end.

Страницы