компиляция

[hasana]

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

[ex.cluz]

Задержку поставили? (я про readln или delay)

[hasana]

да ставил... и дэлэй и ридлайн... сначала писал в паскале 7.0, но там звука вообще не было.. скачал school pack... звук появился, а вот после компиляции, нету ни звука ни графики

[ex.cluz]

Тогда надо код смотреть.

[hasana]

ну вот... код простого рисунка для начинающего)

 uses graph;
var device, mode:integer;
begin
device:=0
initgraph(device,mode,' ');
circle(320,350,100);
circle(320,320,50);
rectangle(280,180,150,200);
rectamgle(360,180,490,200);
circle(320,120,30);
restangle(300,90,340,70);
circle(330,110,5);
circle(310,110,5);
line(150,130,150,450);
line(310,140,330,140);
line(320,120,320,130);
line(320,130,310,130);
line(320,120,310,130);
readln;
closegraph
end.

[ex.cluz]

А если так:

Uses Graph;
Var Device, Mode, ErrCode : Integer;
Begin
Device:=Detect;
InitGraph(Device, Mode, '');
ErrCode:=GraphResult;
If ErrCode = grOk Then
Begin
circle(320,350,100);
circle(320,320,50);
rectangle(280,180,150,200);
rectangle(360,180,490,200);
circle(320,120,30);
rectangle(300,90,340,70);
circle(330,110,5);
circle(310,110,5);
line(150,130,150,450);
line(310,140,330,140);
line(320,120,320,130);
line(320,130,310,130);
line(320,120,310,130);
ReadLn;
CloseGraph;
End
Else WriteLn('Ошибка инициализации графики:', GraphErrorMsg(ErrCode));
End.

Только у меня под рукой паскаля нету, поэтому проверить не могу

[hasana]

Ошибка инициализации графики: Device driver file not found (egavga.bgi)
к сожаленью(

[ex.cluz]

Тогда качайте с Инета этот файл

[hasana]

этот файл как я понял прилагается к паскалю... а если на компе нету паскаля, откуда программе взять его?

[Serge_Bliznykov]

этот файл как я понял прилагается к паскалю... а если на компе нету паскаля, откуда программе взять его?

этот модуль обязательно должен лежать рядом с EXE-шником на том компьютере, куда Вы перенесли свою программу.


p.s. Файл то EGAVGA.bgi у Вас есть?