Инициализация графического режима.

Для инициализации графического режима необходимо подключение модуля graph, кроме того объявить две целочисленные переменные gd, gm,которы используются при инициализации режима. Собственно инициализация происходит при записи в первую из переменных номер драйвера, соответствующий автоматически определенному типу монитора (gd:=detect;). А так же при выполнении процедуры initgraph(gd,gm,'');. При этом в переменную gm записывается номер графического режима, а '' обозначает, что поиск графического драйвера надо проводить в текущем каталоге. Пример инициализации графического режима:

uses crt, graph; {подключение модулей}

var gd,gm:integer;

begin

clrscr;

gd:=detect; initgraph(gd,gm,'');

. . . . . . . . . . . . . . . . . .

При использовании графического режима, процедуры ввода/вывода текстового режима (write, writeln и read, readln) не работают. Перед их использование сначала производится закрытие графического режима с помощью процедуры closegraph.

Кроме того, для задания графического режима можно использовать технические характеристики, которые можно самим определить. Для определения типа вашего монитора (функция getdrivername), максимальных значений его координат по осям x (функция getmaxx) и y (функция getmaxy), а также максимального номера цвета (функция getmaxcolor) можно использовать следующую программу:

program monitor;

uses crt, graph; {подключение модулей}

var gd,gm,xmax,ymax,maxcolor:integer;

begin

clrscr;

gd:=detect; initgraph(gd,gm,'');

{автоматическое определение типа монитора и запись номера драйвера в переменную gd; переменной gm присваивается номер соответствующего графического режима, а два апострофа означают, что поиск графического драйвера надо производить в текущем каталоге}

xmax:=getmaxx; ymax:=getmaxy; maxcolor:=getmaxcolor;

closegraph; {Закрытие графического экрана}

writeln ('xmax=',xmax,' ymax=',ymax,' maxcolor=',maxcolor,' ',getdrivername);

repeat until keypressed; end.

Для монитора типа SVGA программа выдаст строку:

xmax=639 ymax=479 maxcolor=15 EGAVGA