Сборник заданий для практических занятий по информатике. Крупенников О.Г - 103 стр.

UptoLike

102
DOTTEDLN = 1;{точечная}
CENTERLN = 2;{штрих-пунктирная}
DASHEDLN = 3;{пунктирная}; .
PATTERN – образец линии. В большинстве случаев задается кодом 0.
THICK – толщина линии. Задается с помощью одной из следующих кон-
стант:
CONST
NORMWIDTH = 1;{один пиксел}
THICKWIDTH = 3;{три пиксела} .
9. Процедура RECTANGLEвычерчивает прямоугольник с ука-
занными координатами углов.
Заголовок процедуры:
PROCEDURE RECTANGLE (X1, Y1, X2, Y2:INTEGER); ,
где X1, Y1; X2, Y2 – соответственно координаты левого верхнего и пра-
вого нижнего углов прямоугольника.
10. Процедура CIRCLEвычерчивает окружность.
Заголовок процедуры:
PROCEDURE CIRCLE (X, Y: INTEGER; R: WORD); ,
где X, Y – координаты центра окружности; R – радиус окружности.
11. Процедура ARCпредназначена для вычерчивания дуги окруж-
ности.
Заголовок процедуры:
PROCEDURE ARC (X,Y:INTEGER;BEGA,ENDA,R:WORD); ,
где X, Y – координаты центра дуги окружности; BEGA, ENDA – началь-
ный и конечный углы дуги окружности (отсчитываются против часовой
стрелки; указываются в градусах; нулевой угол соответствует горизон-
тальному направлению радиусавектора слева направо); R – радиус дуги
окружности.
12. Процедура ELLIPSEпозволяет вычертить эллипсную дугу.