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

 

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.   Стрелками указан начальный порядок обхода вершин

 








Дата добавления: 2015-04-15; просмотров: 551;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.005 сек.