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

UptoLike

ВУЗ: 

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

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

Рубрика: 

193
setcolor(11); {установка желтого цвета }
settextstyle(3,0,4); {установка параметров текста}
outtextxy(250,400,'press enter'); {вывод текста}
outtextxy(200,290,'Procedure Line'); {вывод текста}
readln; {ждет нажатия ввода}
closegraph; {выход из графического режима}
end.
Для построения отрезков применяются еще две процедуры
(кроме line):
LineTo и LineRel.
Процедура LineTo(x,y) строит отрезок из точки текущего положения
указателя до точки с координатами (x,y). Процедура LineRel(dx,dy)
проводит отрезок от точки текущего положения указателя
до точки (cpx +
dx,cpy + dy), где cpx и cpy – текущие координаты cp.
В данном примере экран заполняется множеством отрезков
различных цветов, при этом получается интересный визуальный эффект
(GetmaxX, GetmaxY – определение значений максимальных координат
экрана).
Пример построения линий (LineTo,LineRel)
program wind;
uses Crt, Graph;
var
Gd, Gm: Integer;
begin
Gd := Detect; {автоопределение}
InitGraph(Gd, Gm, ''); {инициализация графики}
if GraphResult <> grOk then {проверка ошибки инициализации
графики}
Halt(1); {прекращение выполнения программы}
Randomize; {при каждом запуске получается новая картина}
repeat
setcolor(random(15)); {случайный
выбор цвета}
delay(100); {задержка на 100 мс.}
lineto(random(getmaxx),random(getmaxy));
linerel(50,–50);
until KeyPressed; {пока не нажата клавиша}
settextstyle(3,0,4); {установка параметров текста}
outtextxy(250,400,'press enter'); {вывод текста}
setcolor(14); {установка желтого цвета }
outtextxy(150,290,'Procedures LineTo and LineRel'); {вывод текста}
readln;
CloseGraph; {выход из графики}

Страницы