Ошибка с модулем Graph.

[Арип]

Я изучаю Паскаль уже несколько месяцев,готовлюсь к ЕГЭ по информатике.
Дело в том что Паскаль не хочет выполнять мои программы с модулем Graph.
Например пишу программу которая рисует снеговика, а Паскаль выдаёт ошибку, что ,типа, файл Graph.TPU не найден. Точнее такую- File not found (Graph.TPU). Подскажите что делать, позарез нужно

[Serge_Bliznykov]

1) как вариант, возьмите из приложенного к посту архива, положите в ту папку,
где лежат файлы TURBO.EXE TURBO.TPL и другие. обычно это папка BIN в TurboPascal

2) или скачайте другую, Нормальную версию Pascal где все файлы будут на месте. В том числе и GRAPH.

p.s. для работы графики ещё потребуются BGI файлы (например, EGAVGA.BGI) они то у Вас имеются?!

[Арип]

Файл твой скачал, а BgI у меня имеется, посмотрим что будет

Сделал как ты сказал, теперь в диалоговом окне пиет ошибку (Bgi Error: Graphics not initialized(use InitGraph)). Подскажи что сделать?

[Serge_Bliznykov]

значит забыли проиницилизировать графику!

попробуйте такой код:

uses Graph;
var
  grDriver: Integer;
  grMode: Integer;
  GrModeResult: Integer;

begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'..\BGI'); {укажите путь к BGI файлам}

  GrModeResult := GraphResult;
  if GrModeResult <> GrOK then begin
    WriteLn('Graph Error : ',GraphErrorMsg(GrModeResult));
    Readln;
    Halt(1)
  end;

  SetColor(Green);
  SetFillStyle(1,Green);
  FillEllipse(150,150,70,70);

  SetColor(Red);
  OutText('for Exit Press ENTER');

  Readln;
  closegraph;
end.

[Арип]

А что делает это программа?

Запустил я эту прогу, она в диалоговом окне написала- Graph Error : Device driver file not found (EGAVGA.BGI)

Я всё понял, разобрался , болше ничего не нужно спасибо!!!!!!!!!!!!!!!!