как в Pascal подключить графику

[Livar]

помогите подключить графику Initgraph что-то не работает

[Livar]

Код давай

[vasketsov]

Во-первых, у тебя должен быть файл egavga.bgi в том же каталоге, что и твоя программа (это что-то типа графического драйвера)



Код:

Код: Выделить всё

uses Graph;
....
Var
   i, j: integer;
Begin
  i:=0; // Графический режим, 0 - автоопределение
  InitGraph(i, j, '') // Вместо '' может быть путь к egavga.bgi
  ......  // Рисование ...
  CloseGraph; // Переход в текстовый режим