Основные операторы модуля CRT в TURBO PASCAL

Чтобы использовать модуль CRT, его имя нужно указать в операторе USES:

USES Crt;

Процедура Clrscr — очистка текущего окна с заполнением его цветом фона и помещение курсора в верхний левый угол окна. По умолчанию экран закрашивается в черный цвет.

Процедура ClrEOL — удаляет все символы, начиная от позиции курсора до конца строки, без перемещения курсора.

Процедура DelLine — удаляет строку, в которой находится курсор, и перемещает все расположенные ниже строки на одну строку вверх.

Процедура InsLin — вставляет пустую строку на месте расположения курсора. Все строки, ниже добавленной перемещаются на одну строку вниз; нижняя строка исчезает с экрана.

Функция KeyPressed:Boolean (модуль CRT) возвращает значение True, если в буфере клавиатуры содержится хотя бы один символ, т.е. была нажата клавиша, и False, если буфер пуст, т.е. нажатия клавиши не произошло.

Функция ReadKey:Char считывает из буфера клавиатуры и возвращает в программу последний введенный символ. Без использования функции ReadKey повторное использование функции KeyPressed будет неэффективным. Readkey часто используютдля остановки программы с целью просмотра результата ее работы на экране. После нажатия любой клавиши продолжается выполнение программы.

Процедура Delay(MS: Word); приостанавливает выполнение программы на указанное в миллисекундах время.

Процедура Sound(Hz: Word); включает внутренний динамик. Параметр Hz определяет частоту генерируемого звука в герцах. Динамик будет включен до обращения к NoSound.

Процедура Nosound; выключает внутренний динамик компьютера.

Процедура GotoXY(X,Y: Word); устанавливает курсор в позицию экрана с координатами (X,Y). При работе с экраном при использовании модуля Crt весь экран разбивается на отдельные строки, а каждая строка — на отдельные позиции. Каждая из позиций имеет свои координаты. Вспомните координатную плоскость, известную вам из курса математики. Отличие экранной координатной плоскости от привычной для вас состоит в том, что координаты на экране отсчитываются от левого верхнего угла экрана.

Левый верхний угол экрана соответствует позиции (1,1). По умолчанию на экране помещается 80 позиций по горизонтали (столбцов) и 25 позиций по вертикали (строк). То есть, экран в текстовом режиме имеет
80 х 25 позиций.

Пример:

Gotoxy(8, 10) — перемещение курсора в 8-й столбец и 10-ю строку экрана.

Процедура Textcolor(n) — задание цвета выводимых на экран символов, п принимает значение от 0 до 15. Например, при п=4 символы будут красного цвета. Для получения мерцающего символа используется код 128.