Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: 6468
Последний выпуск: 19.06.2015

Паскаль, использование drawpoly()

30K
24 мая 2008 года
Kraken
17 / / 03.05.2008
Крик о помощи =)
Не могу разобраться с процедурой Drawpoly модуля graph...
Объясните пожалуйста как её пользоваться на примере такой задачи:
рисунок 5 конечной звезды
кординаты вершин:
320,1
640,240
640,480
1,480
1,240
заранее благодарен)
254
24 мая 2008 года
kosfiz
1.6K / / 18.09.2005
разберись на примере что в хелпе:
[highlight=pascal]
uses Graph;

const
Triangle: array[1..4] of PointType = ((X: 50; Y: 100), (X: 100; Y:100),
(X: 150; Y: 150), (X: 50; Y: 100));
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then
Halt(1);
DrawPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle);{ 4 }
Readln;
CloseGraph;
end.
[/highlight]
кстати надо заметить, что для того, чтобы нарисовать такую звезду как у красной армии тебе понадобится не 5, а 10 точек, потому что надо указать будет все угловые точки, а углов у такой звезды если не ошибаюсь как раз 10. чтобы выполнить задание тебе надо лишь вместо 4 поставить 10, дописать по аналогии еще 6 точек и изменить 4, а затем указать путь к bgi драйверу
30K
24 мая 2008 года
Kraken
17 / / 03.05.2008
спасибо)

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог