Написал программу в Turbo Pascal 7, которая должна нарисовать точку в любом месте экрана, любым цветом:

program cool;
uses graph;
var x,y,c:integer;
begin
PutPixel(x, y, c);
x:=random(640); y:=Random(480); c:=Random(15);
end.

После запуска программы я зашёл оболочку DOS. И вместо точки он мне написал:
BGI Error: Graphics not initialized (uses InitGraph).

Что мне делать???

Набери InitGraph в окне редактирование и нажми F1. Вылезет пример - скопируй его и замени в нем рисование на своё. Если непонятно - пиши.

P.S. Лучше забыть про BP 7.0.

Модератор: Тема перенесена из раздела "Алгоритмы"

Нужно инициализировать доску для рисования. Для этого необходимо следующее:

Код

program Tiny; uses   Crt, Graph; var   x,y,c:  Integer;   ig : Integer;   igMode : Integer;   ErrCode : Integer; begin   ig := Detect;   InitGraph(ig, igMode, '');   ErrCode := GraphResult;   if ErrCode = grOk then begin     x:=random(640); y:=Random(480); c:=Random(15);     PutPixel(x, y, c);     CloseGraph;   end; else   Writeln('Ошибка инициализации графики'); end.

Цитата

CloseGraph;   end; else

кто перед else ставит ;???
вообще, если почитать нормальные книги про паскаль, то
в initgraph
надо писать следующее
в var
grdriver: integer;
grmode:integer;
в begin
initgraph:=detect
initgraph(grdriver, grmode,'/сюда вписываешь адрес драйвера(к примеру c:\pascal\bgi)/');
про errcode можещь не писать, т. к это в принципе не особо и надо, если правильно написан initgraph
в конце, после той части программу, где граф. режим заканчивается
не забывай писать closegraph;
вот и все рекомендации по поводу граф. режима удачи!!

Цитата(armageddon @ 8.1.2006, 22:16 )

кто перед else ставит ;???

Я ставлю! хотя и не в таких ситуациях... Советую почитать про синтаксис case ;)

Цитата(e-moe @ 9.1.2006, 00:06 )

Я ставлю! хотя и не в таких ситуациях... Советую почитать про синтаксис case ;)

только case там не видать... а в данном случае прога не откомпилится....

человек просил помочь ему с граф. режимом, а мы тут спорим по поводу компиляции программы

Цитата

program cool; uses graph; var x,y,c:integer; begin PutPixel(x, y, c); x:=random(640); y:=Random(480); c:=Random(15); end.

ну я думаю во первых:

Код

program cool; uses graph; var x,y,c:integer; begin x:=random(640); y:=Random(480); c:=Random(15); PutPixel(x, y, c); end.

Во-вторых:

Код

... var devis,mode:Integer;       x,y,c:integer; begin devis:=Detect; mode:=0; InitGraph(devis,mode,'');     if GraphResult<>0 then     begin    Write('Error inicialization graph');    Readln;    Exit;    end; x:=random(640); y:=Random(480); c:=Random(15); PutPixel(x, y, c); CloseGraph; if GraphResult<>0 then     begin    Write('Error close graph');    Readln;    Exit;    end; ...

хотя Guedda привел почти такой же код