Основы_Pascal

Итак, инициирование графического режима с помощью стандартной процедуры InitGraph, которой поручается выбрать графический драйвер и режим по своему разумению. Графические драйверы предполагаются находящимися в текущем каталоге. На тот случай, если графический режим инициализировать не удается, в переменной E:integer запоминается ответ подпрограммы-функции GraphResult. Если E<>0 (неудача), значит, режим работы монитора остался текстовый, следовательно, с помощью процедуры write выводится сообщение о причине неудачи (с использованием стандартной функции GraphErrorMsg, которой передается значение Е. После этого осуществляется техническая остановка (readln), чтобы пользователь успел осознать смысл происшедшего. Когда он нажмет какую-либо клавишу, процедура Halt из модуля System останавливает выполнение программы и возвращает управление в операционную систему.

Если же графический режим удалось установить, то вызывается процедура GetAspectRatio, по данным которой определяется значение типизированной константы Hj (отношение шагов развертки) и назначаются начальные значения L и H (ширины и высоты области для формирования графиков, хотя L и H могут использоваться и в ином качестве – по усмотрению пользователя).

Полный листинг модуля Serv приводится в Приложении №1. Завершается этот модуль инициирующей частью, которая (после слова begin) состоит из единственного оператора – вызова только что рассмотренной процедуры InGraph. Таким образом, при подключении модуля Serv (конструкцией uses) происходит автоматический переход компьютера в графический режим работы. Так и было задумано.

51