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

UptoLike

ВУЗ: 

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

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

Рубрика: 

191
setcolor(random(16)); {выбор случайного цвета}
Ellipse(x, y, 0, 360, 30, 50);
x:=x+1;
y:=y+1;
until y>=480; {до тех пор пока у не
выйдет за границу экрана}
settextstyle(3,0,4); {установка параметров текста}
outtextxy(400,200,'press enter'); {вывод текста}
setcolor(14); {установка желтого цвета }
outtextxy(350,100,'Procedure ELLIPSE'); {вывод текста}
readln;
CloseGraph; {выход из графического режима}
end.
Процедура вывода отрезка прямой на экран (в текущем цвете и
стиле) определена следующим образом:
Line(x1,y1,x2,y2:integer).
В ней задаются координаты начальной (x1, y1)
и конечной точек
(x2, y2) линии. Применяется только в графическом режиме. Рассмотрим
программу построения линий.
В первых строках, после оператора Begin идут операторы
инициализации графики и проверка правильности их выполнения.
Процедура l(d,c:byte) собственно и производит построение получаемой
картины на экране. Процедура начинается тем, что устанавливаются
координаты x1, y1, x2, y2 линии. Координаты соответствуют правому и
левому нижним углам.
Затем координата левого угла (по y) начинает
уменьшаться, каждый раз на d пикселов (текущий цвет – с). Примерно то
же самое для остальных углов. В результате вызова процедуры в главной
программе экран заполняется множеством линий, причем различного
цвета и на разные промежутки.
Пример построения линий
uses graph,crt;
procedure l(d,c:byte);
var x1,y1,x2,y2:integer;
begin
x1:=639;
y1:=479;
x2:=1;
y2:=479;
repeat
setcolor(c);
y2:=y2–d;

Страницы