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

UptoLike

ВУЗ: 

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

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

Рубрика: 

190
Radius: Integer;
begin
Gd := Detect; {автоматическая выборка режима}
InitGraph(Gd, Gm, ''); {инициализация графики}
if GraphResult <> grOk then {проверка инициализации,если}
{ ошибка то}
Halt(1); {прекращение выполнения программы}
repeat
x:=x+1;
y:=y+1;
Radius:=Radius+1;
setcolor(random(15)); {задание случайного цвета}
Circle(random(x*7),random(y*5), Radius) ; {рисует окруж}
{ности со слу–}
until keypressed; {чайными координатами}
settextstyle(3,0,4); {установка параметров текста}
outtextxy(250,400,'press enter'); {вывод текста}
setcolor(14); {установка желтого цвета }
outtextxy(200,290,'Procedure Circle'); { вывод текста}
readln;
CloseGraph;
end.
Для построения эллиптических дуг предназначена процедура
Ellipse (X, Y: integer; StAngle, EndAngle: word; XR, YR: word),
где (X, Y) – центр эллипса в
дисплейных координатах, XR и YR –
горизонтальная и вертикальная оси. Дуга эллипса вычерчивается текущим
цветом от начального угла StAngle до конечного угла EndAngle. Значения
StAngle=0 и EndAngle=359 приведут к вычерчиванию полного эллипса. В
следующем примере процедура Ellipse(100, 100, 0, 360, 30, 50) строит
полный эллипс, а процедура Ellipse(100, 100, 0, 460, 30, 100) примерно
половину.
Пример построения эллипсов
Program Mih;
uses Graph,Crt;
var Gd, Gm,x,y: Integer;
begin
Gd := Detect; {автоматическая выборка режима}
InitGraph(Gd, Gm, ''); {инициализация графики}
if GraphResult <> grOk then {проверка на ошибку инициализации}
Halt(1); {прекращение выполнения программы}
x:=1;
y:=1;
repeat

Страницы