Использование модуля CRT Pascal

maxresdefault

Язык Паскаль имеет специальную библиотеку работы с экраном в текстовом режиме. Она
называется CRT. Эта библиотека содержит набор подпрограмм, позволяющих задавать
цвет выводимых букв, цвет фона, устанавливать курсор в желаемую позицию. В
текстовом режиме считается, что окно содержит 25 строк по 80 колонок. В каждой
позиции может быть один символ (буква, цифра, специальные знаки). Графические
объекты (прямые, окружности и т.п.) в текстовом окне не допустимы. Модуль CRT
эмулирует текстовый терминал первых персональных компьютеров.
Подключение библиотеки к программе осуществляется предложением Uses:
Program Card;
Uses CRT; { Это предложение вставляется сразу после Program }
Далее могут идти описания переменных, затем begin и тело программы.
Рассмотрим использование подпрограмм этой библиотеки на примере создания заставки
программы.
Program Card;
Uses CRT; { Подключить модуль CRT }
begin
ClrScr; { Очистить экран }
TextColor(White); { Установить белый цвет букв }
TextBackGround(Blue); { Установить синий цвет фона }
GotoXY(36,13); { Поставить курсор в 36 колонку, 13 строку }
write(‘ Привет ‘); { Вывести текст }
ReadKey; { Ожидать нажатия любой клавиши }
end.

Наберите текст этой программы и выполните её.
Разберем действия отдельных процедур:

ClrScr – очищает экран или текущее окно (от англ. Clear Screen), закрашивая его
текущим цветом фона, установленным процедурой TextBackGround. По умолчанию –
цвет экрана белый.

TextColor(цвет) – устанавливает текущий цвет букв, который будет исполь–
зоваться операторами write и writeln. По умолчанию используется светло-серый цвет
букв.

TextBackgroud(цвет) – устанавливает текущий цвет фона, который будет исполь-
зоваться операторами write и writeln.

GotoXY(колонка, строка) – переводит курсор в указанную позицию; вывод,
осуществляемый последующим оператором write или writeln будет начинаться с этой
позиции. Обычно экран в текстовом режиме содержит 80 колонок и 25 строк.

ReadKey – ожидание нажатия на любую клавишу (далее мы рассмотрим другое
применение этой подпрограммы).

В качестве цвета может использоваться число от 0 до 15, но лучше пользоваться
определенными в модуле CRT константами.

Рассмотрим еще несколько полезных подпрограмм.
Window(x1,y1,x2,y2) – создание окна вывода. В случае задания окна, все
операторы write и writeln выводят только в него, процедура ClrScr будет очищать
только это окно.
WhereX, WhereY – две функции, позволяющие узнать координаты местонахождения
курсора. Пример использования: GotoXY(WhereX+10,WhereY+2).

 

 

Рекомендуем:

0

Автор публикации

не в сети 2 часа

Джамшид

0
Единственное, чего ты не можешь — помешать людям думать.
Комментарии: 71Публикации: 131Регистрация: 16-11-2017
Расскажите друзьям:

3 thoughts on “Использование модуля CRT Pascal

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *