Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Есть ли во free pascal'е модуль "graph". И ещё, покажите какой-нибудь пример программы с использованием этого модуля.

Дима Николаев Ученик (149), закрыт 4 года назад
Лучший ответ
ra Высший разум (113298) 11 лет назад
Есть.
Пример использования http://otvet.mail.ru/answer/416744879

> скачайте лучше Turbo Pascal
Лучше не надо. Программы использующие модуль Graph и скомпилированные в TurboPascal просто не будут работать в операционках Windows Vista и старше без использования эмуляторов типа DosBox.
Остальные ответы
Фёдоров Фёдор Профи (731) 11 лет назад
Должен быть, скачайте лучше Turbo Pascal

Program flag;
Uses crt,graph;
Var gd,gm: integer;
Begin
gd:=detect;
Initgraph(gd,gm,'');
Setbkcolor(15);
Setcolor(1);
Rectangle(199,249,401,401);
Setfillstyle(1,1);
Bar(200,250,400,300);
Setfillstyle(1,2);
Bar(200,350,400,400);
Setcolor(red);
Line(200,250,300,325);
Line(300,326,200,400);
Line(200,250,200,400);
Setfillstyle(1,red);
Floodfill(250,350,red);
Readkey;
Closegraph;
End.

Будет выводиться изображение флага
Похожие вопросы