K: Char;

begin

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

end.

Для того, чтобы в программе P иметь доступ к п е- ременной K из модуля M, необходимо задать составное имя M.K.

Использование составных имен применяется не только к именам переменных, а ко всем именам, описанным в интерфейсной части модуля.

Рекурсивное использование модулей запрещено. Если в модуле имеется раздел инициализации, то

операторы из этого раздела будут выполнены перед началом выполнения программы, в которой используется этот модуль.

5 Модуль Crt

Модуль CRT.

Наиболее часто применимые процедуры и функ-

ции модуля CRT:

Procedure ClrScr; Procedure Delay (MS: Word);

Procedure GoToXY (X, Y: integer); Function KeyPressed: Boolean; Function ReadKey: Char; Procedure Sound (Hz: Word); Procedure NoSound;

Procedure TextBackground (Color: Byte);

Procedure TextColor (Color: Byte); Function WhereX: Integer;

Function WhereY: Integer;

120

Процедура ClrScr очищает экран в текстовом режиме, что в значительной мере облегчает представление постоянно меняющейся информации пользователю.

Процедура Delay осуществляет при её вызове задержку выполнения дальнейшего кода на MS миллисекунд. Однако из-за особенностей модуля, «миллисекунды» - это лишь выражение для определения времени, на самом деле на компьютерах различной конфигурации задержка функцией Delay различна. Существует множество способов получения «неизменной» задержки. Например, если Вас устраивает точность задержки в 1/18 секунды (один процессорный «тик»), можно использовать следующую процедуру:

Procedure Timer(X: LongInt); {ozhidanie na X tikov}

var

l: LongInt; begin

l := MemL[Seg0040:$6c];

While MemL[Seg0040:$6c] < l+x do; end;

Процедура GoToXY Перемещает курсор на позицию X строки Y.

Функция KeyPressed возвращает True, если была нажата какая-либо клавиша. Это очень удобно использовать, если программа непрерывно выполняет какое-то действие и это действие в реальном времени зависит от нажатий клавиш.

Функция ReadKey возвращает значение нажатой клавиши. Чаще всего используется в совокупности с функцией KeyPressed.

Процедура Sound воспроизводит звук частотой Hz в герцах. Стоит отметить, что для того, чтобы прекра-

121

тить воспроизведение звука нужно вызвать процедуру

NoSound.

Процедура TextBackground устанавливает цвет фона для символов текста в цвет Color (номер цвета). При этом следует помнить, что цвет фона для символа – это цвет небольшого прямоугольника, окружающего символ, а не цвет всего символьного поля.

Процедура TextColor устанавливает цвет текста равным Color.

Функции WhereX и WhereY возвращают соответственно значения текущей позиции и строки курсора на экране.

6 Модуль Graph

Это один из наиболее распространённых модулей для работы с графикой в Pascal.

6.1 Начало работы

Для работы с графикой помимо модуля Graph необходимы графические драйвера. В теле модуля описана работа только с четырьмя типами графических адаптеров Hercules, CGA, EGA, VGA. Драйвера для графических адаптеров хранятся в файлах с расширением BGI. Таким образом, Вам для работы потребуются файлы:

CGA.BGI, EGAVGA.BGI, HERC.BGI

Однако недостаточно только лишь подключить графический драйвер, так как графические адаптеры зачастую поддерживают несколько режимов. Для инициализации графики требуется указать используемый режим.

122

Для того, чтобы подключить драйвер и выбрать

режим необходимо применить процедуру

InitGraph(var VideoDriver, DriverMode: integer; Path: string);

Где VideoDriver – переменная, либо константа, содержащая в себе код подключаемого графического драйвера (в таблице он указан в скобках). А DriverMode

– соответственно переменная или константа, содержащая в себе код режима, в котором будет запущена графика. Path – путь к папке, в которой лежит графический драйвер (опять же не стоит забывать об особенностях, связанных с относительными и абсолютными путями в среде

Turbo Pascal).

Предусмотрена возможность программного определения наиболее подходящих графического драйвера (при помощи встроенной функции Detect, возвращающей код подходящего драйвера) и режима при помощи процедуры DetectGraph(var VideoDriver, DriverMode: integer);

По окончании работы с графикой необходимо отключить графический режим. Это осуществляется при помощи встроенной процедуры CloseGraph.

Uses

123

Graph; var

GraphDriver, GraphMode: integer; begin

GraphDriver:=Detect;

GraphMode:=1;

InitGraph(GraphDriver, GraphMode, ''); CloseGraph;

End.

Память видеобуфера подразделяется на несколько частей - так называемых видеостраниц. Их количество зависит от текущего режима и типа адаптера. Более одной страницы имеют адаптеры EGA, VGA и Hercules. Нумерация страниц начинается с 0.

В каждый отдельный момент на экране может быть отображена только одна страница, она называется видимой. По умолчанию видима страница с номером 0. Страничная организация позволяет с помощью графических процедур и функций формировать изображение на любой из страниц. Страница, на которой в данный момент формируется изображение, называется активной.

Процедура SetActivePage(Page: word)

устанавливает активную страницу для построения изображения. Например:

SetActivePage(1);

124

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

SetVisualPage(Page: word);

где Page - номер видимой страницы. Например,

SetActivePage(0); {показ страницы 0 на экране}

OutText('Страница 0'); {строка появляется на экране}

SetActivePage(1); {активная страница}

Readln;

SetVisualPage(1); {показ страницы 1,

строка на экране}

Для контроля за правильностью работы графики определены две функции: GraphResult и GraphErrorMsg. GraphResult возвращает значение 0, если последняя графическая операция выполнилось без ошибок или число в диапазоне -15...-1, если ошибка была. Некоторые ошибки и их коды приведены в таблице

125