Основы применения вычислительной техники и программирование. Беспалов В.В. - 83 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

Дуги можно вычертить с помощью процедуры
Arc(x,y:integer;a,b,R:integer);
Здесь x,y – центр окружности, a,b – начальный и конечный углы в
ания углов используется полярная система
процедурой
SetColor.
ощью окружности:
SetC
ая и вертикальная
вычерчивается полный эллипс. Напри-
специальная процедура
nteger);
ю процедуры
SetF
ки (см. табл.
нный редкими
Green); {стиль заполнения}
торов можно использовать следующие проце-
наты
x,y – центр окружности,
секто
специальных процедур;
р н р
градусах,
R – радиус. Для зад
координат.
Цвет для вычерчивания устанавливается
В случае a=0° и b=360°, вычерчивается полная окружность.
Например, выведем дугу красного цвета от 0° до 90° в уже вычер-
ченной с пом
Circle(450,100,50)
olor(Red);
Arc(450,100,0,90,50);
Для построения эллиптических дуг предназначена процедура
Ellipse(x,y,a,b,Rx,Ry:integer);
липса, – горизонтальнЗдесь x,y – центр эл Rx,Ry
оси. В случае a = 0° и b = 360°
мер, п
SetColor(9);
остроим голубой эллипс:
Ellipse(100,100,0,360,50,50);
Фон внутри эллипса совпадает с фоном экрана. Чтобы создать за-
крашенный эллипс, используется
FillEllipse(x,y:integer,Rx,Ry:i
Закраска эллипса осуществляется с помощь
illStyle(a,b:word);
Здесь а – стиль закраски (см. табл. 10.4), b – цвет закрас
10.1). Например, нарисуем ярко-красный эллипс, заполне
точками зеленого цвета:
SetFillStyle(WideDotFill,
SetColor(12); {цвет вычерчивания эллипса}
FillEllipse(300,150,50,50);
Для построения сек
дуры:
PieSlice(x,y:integer;a,b,R:word);
Рисует и заполняет сектор круга. Коорди
р рисуется от начального угла
a до конечного угла b,
а закрашивание происходит при использовании
Sector(x,y:integer;a,b,Rx,Ry:word);
Создает и заполняет сектор в эллипсе. Коо ди аты x,y – цент , Rx,Ry
– горизонтальный и вертикальный радиусы, и сектор вычерчивается от
начального угла
a до конечного угла b.
84

Страницы