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

UptoLike

ВУЗ: 

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

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

Рубрика: 

189
PutPixel(X,Y:integer;Color:word),
где X и Y – экранные координаты точки, Color – ее цвет.
Рассмотрим пример вывода множества точек на экран.
В первых строках после оператора Begin идут операторы
инициализации графики и проверка правильности их выполнения. X, Color
имеют тип Longint. X берется достаточно большим, а затем постоянно
уменьшается, этим и достигается тот эффект, который виден на экране
после выполнения программы.
uses Crt, Graph;
var
Gd, Gm: Integer;
x, Color:longint;
begin
Gd := Detect; {автоопределение}
InitGraph(Gd, Gm, ''); {инициализация графики}
if GraphResult <> grOk then {проверка инициализации графики}
Halt(1); {прекращение выполнения программы}
x:=100000;
repeat {повторять}
color:=color+3;
PutPixel(Random(x div color), Random(x div color), Color div 13);
until KeyPressed; {до нажатия клавиши}
settextstyle(3,0,4); {установка параметров текста}
outtextxy(250,400,'press enter'); {вывод текста}
setcolor(14); {установка желтого цвета }
outtextxy(200,290,'Procedure PutPixel'); {вывод текста}
READLN;
CloseGraph; {прекращение работы в графическом режиме}
end.
Для изображения окружностей используется процедура
Circle(x,y:INTEGER;radius:WORD);
Здесь (X,Y) – координаты центра окружности, Radius – ее радиус.
Пример построения окружности со случайными координатами
и
радиусом.
uses Graph,crt;
var
Gd, Gm: Integer;
x,y:integer;

Страницы