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

— И что? Теперь можно рисовать точки-кружочки? — воодушевленно спросите вы.

— Да, теперь можно, но не так быстро. Дело в том, что по умолчанию Pascal работает в текстовом

режиме, и для перевода его в графический необходимо:

подключить графический модуль (сообщить компилятору, что мы будем использовать процедуры и функции из файла graph.tpu);

определить тип графического режима;

инициализировать графический режим.

Этим мы сейчас и займёмся.

• Создайте новый документ Pascal, сохраните его под именем pr5.pas в вашей папке.

• Запишите программу:

Как обычно, сначала разберёмся с тем, что в этой программе для нас новое:

во второй строке в разделе USES подключается модуль Graph;

в разделе VAR объявляются целые переменные, с помощью которых мы будем определять тип графического режима (gd — Graphic Driver, gin — Graphic Mode);

в первых строках основного блока программы задаётся значение графического драйвера gd и графического режима gm. Драйвер VGA и режим 2 позволяют работать с экраном, имеющим разрешение 640x480 пикселей, и 16-ю цветами;

процедура InitGraph(gd,gm,") производит инициализацию графического экрана (проще говоря, переходит в такой экран, в котором мы можем управлять пикселями, а не символами, как это до сих пор было в текстовом режиме);

роцедура Line(100,200,200.100)выводит на экран отрезок, соединяющий точки с координатами (100;200) и (200;100);

процедура CloseGraphзакрывает графический режим. Это происходит после нажатия клавиши Enter (видите командуReadLn?).

• Запустите программу:

Если вы не видите обещанного отрезка, значит, при инициализации графического режима произошла ошибка. Сообщение об этой ошибке можно увидеть в пользовательском экране.

Ошибка BGI Error: Graphics not initialized (use InitGraph) возникает из-за того, что компилятор не нашёл файл с драйвером egavga.bgi.

Для исправления этой ошибки необходимо прописать в процедуре инициализации InitGraph путь к файлу драйвера третьим параметром: InitGraph(gd,gm,'C:\BP\BGr);

• Исправьте команду:

• Запустите программу:

Есть отрезок!

Для завершения работы программы нажмите клавишу Enter.