Графические примитивы(паскаль)

[aslanbek999]

Просмотрите пожалуйста программу(на наличие ошибок). Паскаль отрекся от нее. Создается впечатление что моя версия паскаля заговорена от выполнения графических программ.


Что получается в итоге не важно. Главное чтобы что-нибудь получалось.


Program ex_1;
uses graph;
var Gd,Gm:integer;
Begin
Gd:=VGA;
Gm:=VGAhi;
initgraph(Gd,Gm,'');
If GraphResult=Grok then
begin
setcolor(8);
line(50,200,350,200);
circle(200,200,150);
ellipse(200,200,97,82);
Bar(50,50,350,50,300,true);
putpixel(200,150,22);
end;
end.

Сразу говорю, руки и голова растут и находятся на тех местах, на которых и должны. Просто графику пишу впервые.

[__STDC__]

так.. =) определять gd и gm лучше с помощью detectgraph, в процедуру ellipse передается 6 параметров, а в bar (в отличии от bar3d) всего 4... не забывайте закрывать граф. систему процедурой closegraph
описание процедур и функций модуля graph - http://pascal.sources.ru/tmt/doc/graph4.htm