Организация диалога с программой

Для работы с текстовым экраном в Pascal есть стандартный модуль Crt. Для того чтобы пользоваться его ресурсами, модуль нужно подключить к программе. Для этого сразу после заголовка программы необходимо написать предложение uses crt.

Например,

Program primer;

Uses crt;

Сразу после этого в программе становятся доступны все процедуры и функции, константы и переменные, описанные в этом модуле.

Таблица 1. Константы режимов работы

Имя константы	Номер режима	Режим
BW40	0	Черно-белый, 40 символов, 25 строк
CO40	1	Цветной, 40 символов, 25 строк
BW80	2	Черно-белый, 80 символов, 25 строк
CO80	3	Цветной, 80 символов, 25 строк
Mono	7	Монохромный, 8025, для монохромных дисплеев

Таблица 2. Константы цветов

Имя константы	Номер цвета	Цвет
Black	0	Черный
Blue	1	Темно-синий
Green	2	Темно-зеленый
Cyan	3	Бирюзовый
Red	4	Красный
Magenta	5	Фиолетовый
Brown	6	Коричневый
LightGray	7	Светло-серый
DarkGray	8	Темно-серый
LightBlue	9	Синий
LightGreen	10	Светло-зеленый
LightCyan	11	Светло-бирюзовый
LightRed	12	Розовый
LightMagenta	13	Малиновый
Yellow	14	Желтый
White	15	Белый
Blink	128	Мерцание символа

Таблица 3. Процедуры и функции

Интерфейс	Назначение
Установка режимов и окон
Procedure AssignCrt (file: text);	Связывает окно дисплея с текстовым файлом, что позволяет ускорить вывод на экран
Procedure ClrScr;	Очищает экран или окно (если оно определено) и помещает курсор в левый верхний угол, после очистки экрана или окна происходит заполнение цветом фона.
Procedure TextMode (mode: integer); Mode – номер текстового режима или соответствующая константа	Установка текстового режима. Каждая новая установка режима отменяет все предыдущие. Код режима запоминается в глобальной переменной LastMode типа word модуля CRT и может использоваться для восстановления начального состояния экрана.
Procedure Window (x1,y1,x2,y2: byte); (x1,y1) и (x2,y2) – координаты верхнего левого и нижнего правого углов окна	Определяет окно вывода в текстовом режиме. Каждое новое обращение к Window отменяет предыдущее определение окна. После определения окна все координаты курсора указываются относительно границ окна.
Управление цветом текста и фона
Procedure HighVideo;	Устанавливает высокую яркость выводимых символов
Procedure LowVideo;	Устанавливает низкую яркость выводимых символов
Procedure NormVideo;	Устанавливает нормальную яркость символов
Procedure TextColor (color: byte); Color – код цвета или соответствующая константа	Устанавливает цвет выводимых символов
Procedure TextBackGround (color: byte); Color – код цвета или соответствующая константа	Устанавливает цвет фона
Управление выводом текста
Procedure ClrEol;	Стирает все символы от текущей позиции курсора до конца строки
Procedure DelLine;	Удаляет линию, в которой находится курсор
Procedure InsLine;	Вставляет новую строку перед строкой, где находится курсор
Работа с клавиатурой
Function KeyPressed: boolean; Значение true, если нажата любая клавиша	Определяет, была ли нажата клавиша на клавиатуре
Function ReadKey: char; Значение функции – код клавиши, нажатой на клавиатуре	Считывает символ из буфера клавиатуры
Управление курсором
Procedure GoToXY (x,y: integer); X,y – координаты курсора	Перемещает курсор в указанные координаты экрана или окна вывода
Function WhereX: integer; Значение функции – координата x курсора	Определяет текущую горизонтальную координату курсора относительно окна
Function WhereY: integer; Значение функции - координата Y курсора	Определяет текущую вертикальную координату курсора относительно окна
Управление звуком
Procedure NoSound;	Выключает динамик
Procedure Sound (hz: word); Hz – частота звука в герцах	Включает звук динамика с заданной тональной частотой
Управление временем
Procedure Delay (ms: word); Ms – значение задержки в миллисекундах	Задержка исполнения программы на заданное число миллисекунд