Не идет программа с графикой

[baddog]

Написана программа с использованием модуля Graph. При запуске "выбивает". Должна рисовать окружности.
Код:

program zd1;
uses Graph;
var i:integer;
driver,mode:integer;
procedure crinit;
begin
driver:=detect;
initgraph(driver,mode,'');
if graphresult<>0 then
begin
writeln('ohibka');
writeln('rabota prervana');
halt(1);
end;
end;
begin
crinit;
cleardevice;
setcolor(1);
setviewport(0,0,GetmaxX-1,GetmaxY-1,true);
rectangle(0,0,GetmaxX-1,GetmaxY-1);
setfillstyle(1,11);
bar(0,0,GetmaxX-1,GetmaxY-1);
for i:=0 to 120 do
begin
setcolor(random(15));
circle(2*i,2*i,i);
end;
setcolor(0);
for i:=50 downto 1 do
rectangle(320+i*3,40+i,320+i*4,50+i *6);
setviewport(0,401,GetmaxX-1,GetmaxY-1,true);
setfillstyle(1,14);
bar(0,0,GetmaxX-1,GetmaxY-1);
setcolor(6);
rectangle(0,1,GetmaxX-1,GetmaxY-1);
setcolor(0);
settextstyle(0,0,1);
outtextXY(150,35,'vladeuhii inform');
readln;
closegraph;
end.

[_-Re@l-_]

у меня, например, почему-то никогда не запускались программы с проверкой инициализации графического режима.
Да и вот ещё:

crinit;
cleardevice;

Как бы функция cleardevice предназначена для перехода от графического режима к текстовому, а ты сразу после неё используешь графические функции

[CyberGenus]

Написана программа с использованием модуля Graph. При запуске "выбивает". Должна рисовать окружности.

а ты запускаешь готовый .exe-шник???
просто у меня программы с использование графики запускались только из под Turbo Pascal (нажимаешь Ctrl-F9)...

[Stilet]

Как бы функция cleardevice предназначена для перехода от графического режима к текстовому

Разве??? Ты помоему спутал ее с CloseGraph.

При запуске "выбивает"

Все работает. Рисует какую то трубу радужную...

нажимаешь Alt-F8

А CTRL+F9 не пробовал?

[_-Re@l-_]

Как бы функция cleardevice предназначена для перехода от графического режима к текстовому

Разве??? Ты помоему спутал ее с CloseGraph.

Нет, не перепутал. Даже в интернете нашёл про это.

Пример:

Randomize;
repeat
LineTo(Random(200), Random(200));
until KeyPressed;
ClearDevice;
Readln;

[baddog]

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