Глава 15. Модуль CRT

Аббревиатура CRT будет расшифровываться по-русски как «электронно-лучевая трубка». И действительно, в модуле CRT реализованы специальные процедуры и функции для работы с текстовой информацией на дисплее, позволяющие: управлять текстовыми режимами, организовывать окна вывода на экран, настраивать цвета символов на экране, управлять курсором. Кроме того, в модуль включены функция опроса клавиатуры и процедуры управлений встроенным в ПЭВМ динамиком.

Несмотря на то, что модуль CRT реализует шестнадцать процедур и четыре функции, его размер составляет не более 3K. Его стандартное местонахождение — системная библиотека TURBO.TPL.

Для подключения модуля достаточно включить его в директиву USES в самом начале программы:

USES CRT;

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

Оператор Write --> функция MS-DOS (вывод строки) --> подпрограмма BIOS --> --> (базовая система ввода-вывода --> видеопамять монитора.

При подключении модуля CRT из этой цепочки исключаются медленная функция MS-DOS и, как правило, подпрограмма БСВВ вследствие чего значительно повышается скорость вывода информации на дисплей. Понятно, что чем «медленнее» работает компьютер, тем заметнее будет эффект от подключения модуля CRT. Пользователи ПЭВМ класса PC/XT могут воочию увидеть разницу, запустив по очереди две программы показанные на рис. 15.1.

- 315 -

| { Программа использует стандартный вывод }

| PROGRAM StandartOutput;

| VAR i : Byte; { счетчик цикла }

| BEGIN

| for i:=1 to 100 do Write('* Турбо Паскаль* ');

| WriteLn

| END.

| { Программа использует средства модуля CRT}

| PROGRAM CRT_Output;

| USES CRT; { подключение модуля CRT }

| VAR i : Byte; { счетчик цикла }

| BEGIN

| for i: = 1 to 100 do Write('* Турбо Паскаль* ');

| WriteLn

| END.

Рис. 15.1

Механизм подобного ускорения можно проиллюстрировать следующим образом. Существуют стандартные текстовые файлы: Input — для ввода и Output — для вывода информации. До тех пор пока программист или компилятор не предпримут каких-либо действий по их переназначению, они считаются связанными: Input — с клавиатурой, a Output — с дисплеем посредством функций MS-DOS. Все стандартные операторы ввода-вывода остаются связанными с этими файлами, т.е. оператор Write ('привет') эквивалентен оператору Write ( Output, 'привет' ), а оператор ReadLn( SomeString ) соответственно эквивалентен оператору ReadLn(Input, SomeString).

При подключении модуля CRT перед выполнением основного блока программы происходит переназначение стандартных файлов, как если бы выполнились операторы:

AssignCRT( Input ); { Связывается системный файл Input с }

{ фиктивным устройством CRT. }

Reset( Input ); { открытие Input для ввода через CRT }

AssignCRT( Output );{ Здесь связывается системный файл }

{ Output с фиктивным устройством CRT.}

Rewrite( Output ); { Файл Output открывается для вывода.}

Процедура AssignCRT из модуля CRT будет рассмотрена в разд. 15.4.8. Она аналогична по сути процедуре

Assign( логический файл, физический файл или устройство ),

но связывает логический файл с фиктивным устройством CRT.

- 316 -

Переназначение на CRT происходит автоматически, и нет нужды вставлять операторы в текст программы. Они выполняются при подключении модуля CRT.

Если же по каким-либо причинам пользователь хочет восстановить стандартную связь файлов Input и (или) Output, т.е. отказаться от «услуг» подключенного модуля CRT, то в его программе должны быть следующие операторы:

Assign( Input, ' '); { Файл Input связывается со стандарт-}

{ ным устройством ввода (чтения). }

Reset ( Input ); { Файл Input открывается для чтения. }

Assign ( Output, ' '); {Файл Output связывается со стандарт-}

{ ным устройством вывода (записи). }

Rewrite( Output ); { Файл Output открывается для записи.}

Пустая строка в операторе Assign означает стандартное предопределенное устройство, как правило устройство CON .

Кроме ускорения вывода информации на дисплей, подключение модуля CRT вносит ряд дополнений и расширений в работу стандартных процедур Write, WriteLn, Read и ReadLn.