Многоугольники

Rectangle (x1,y1,x2,y2) – процедура вычерчивает прямоугольник с заданными координатами углов. Здесь (x1,y1) – координаты левого верхнего, (x2,y2) – правого нижнего углов прямоугольника. Прямоугольник вычерчивается с использованием текущего цвета и стиля линий.

DrawPoly (n,Points) – процедура вычерчивает произвольную ломаную линию, заданную координатами точек излома. Здесь n – количество точек излома, включая обе крайние точки, Points – переменная типа PointType, содержащая координаты точек излома. Координаты точек излома задаются парой значений типа Word: первое определяет горизонтальную, второе – вертикальную координаты. Для них можно использовать следующий определенный в модуле тип:

Type

PoitType= record

x,y:Word

end;

При вычерчивании используется текущий цвет и стиль линий.

Пример. С помощью ломаной линии нарисовать заданную фигуру.

Uses Graph,Crt; Type Tmas=array [1..10] of PointType; {определяем массив записей, содержащий координаты вершин фигуры} Const mas:Tmas=((x:150;y:200), (x:50;y:100), (x:100;y:50), (x:150;y:100), (x:50;y:200), (x:50;y:100), (x:150;y:100), (x:150;y:200), (x:50;y:200), (x:150;y:200)); Var Driver, Mode:Integer; Begin Driver:=Detect; InitGraph(Driver,Mode,''); SetLineStyle(0,0,3); {рисуем фигуру} DrawPoly(10,mas); ReadLn; CloseGraph; End.

Стрелками указан начальный порядок обхода вершин