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

vasketsov · Отправлено: **07:14, 05-03-2003** | #2

Код давай

Megabyte · Отправлено: **07:30, 05-03-2003** | #3

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

Код:

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