Всё вылетает при использовании InitGraph((, Помогите! Опции

[kapusta]

Не могу понять в чём дело, пытаюсь нарисовать точку прямую, без разницы, програма вылетает на любой из этих команд... Глянте плиз, что я не так делаю?

Код

program test;
uses graph, crt;
const gpath = 'Y:WIN_APPSBPBGI';
var c: char; gd,gm: integer;
begin
clrscr;
gd:=detect;
initgraph (gd,gm,gpath);
readln;
line(1,1,100,100); {Вот на этом месте всё вылетает}
closegraph;
readln;
end.

Сообщение отредактировано: kapusta - 3.03.2007 20:48

[Vanekk]

Люди, хелп начинающему программеру
Суть проблемы такова. впервые попробовал работать с графикой, переписал в паскаль букву в букву программу-пример из учебника - не работает. ошибку выдает.
Посмотрите, это с прогой не то, или у меня что то7 что это может быть?

Вот прога

Код

program proba;
uses graph;
var gd, gm : integer;
begin
gd:=VGA;
gm:=VGAhi;
Initgraph (gd,gm,' ');
if GraphResult = grok then begin
line (0,0,270,270);
readln;
closeGraph;
end.

Или дайте пример подобной проги. попробую ее набрать. Заранее спасибо

[TarasBer]

Люди, хелп начинающему программеру
Суть проблемы такова. впервые попробовал работать с графикой, переписал в паскаль букву в букву программу-пример из учебника - не работает. ошибку выдает.
Посмотрите, это с прогой не то, или у меня что то7 что это может быть?

Вот прога

Код

program proba;
uses graph;
var gd, gm : integer;
begin
gd:=VGA;
gm:=VGAhi;
Initgraph (gd,gm,' ');
if GraphResult = grok then begin
line (0,0,270,270);
readln;
closeGraph;
end.

Или дайте пример подобной проги. попробую ее набрать. Заранее спасибо

Если бы вы отступы делали, то сразу бы заметили, что количество бегинов не совпадает с количеством ендов.
И между кавычками в инитграфе ничего не надо ставить. Только надо egavga.bgi не забудьте скопировать в папку с паскалём и с программой.
И зачем в форум задавать вопросы про синтаксические ошибки, если на них прекрасно отвечает сам компилятор?
Исправил:

Код

program proba;

uses
  graph;

var
  gd, gm : integer;

begin
  gd := VGA;
  gm := VGAhi;
  InitGraph (gd, gm, '');
  if GraphResult = grok then begin
    Line (0 ,0 ,270 ,270);
    ReadLn;
    CloseGraph;
  end;
end.

[Vanekk]

Пасиба Огромное!
прост выскакивающее Error 84 Unit expected мне ни о чем не говорило )

P.S. это все не из-за того что неправильно стояло... просто сначала надо было откомпилировать программу, а потом уж запускать

Сообщение отредактировано: Vanekk - 9.03.2007 21:39