Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Программирование на Pascal / Delphi / Лекции по Turbo Pascal [22].pdf
Скачиваний:
41
Добавлен:
02.05.2014
Размер:
536.84 Кб
Скачать

Одесский колледж компьютерных технологий “СЕРВЕР”

FillPoly(Numpionts,Polypoints) Построение закрашенно-

го многоугольника

GetMaxX Возвращает максимальную горизонтальную координату графического экрана.

GetMaxY Возвращает максимальную вертикальную координату графического экрана.

Sector(x,y, Stangle,Endangle, Xradius,Yradius) Рисует и закрашивает сектор эллипса радиусами Xradius,Yradius, с центром в x,y, от начального угла Stangle к конечному Endangle.

SetLineStyle (Linestyle, Pattern, Thickness) Устанавлива-

ет стиль линии

Linestyle

0Сплошная

1Точечная

2Штрихпунктирная

3Пунктирная

4Тип определяется пользователем

Thickness

1 Нормальная толщина

3 Тройная толщина

Пример: построить случайные многоугольники с пятью вершинами.

Var …

Points : Array [1..6,1..2] of Integer;

Begin

Randomize;

ClearDevice;

{определение случайных координат вершин} for i : = 1 to 5 do begin

Points[i,1]: =Random (GetMaxX);

Points[i,2]: =Random (GetMaxY);

end;

12