Модуль Crt

Модуль Crt предназначен для организации эффективной работы с экраном, клавиатурой и встроенным динамиком. При подключении модуля выводимая информация посылается в базовую систему ввода-вывода (ВIОS) или непосредственно в видеопамять. При этом ввод-вывод выполняется быстрее, кроме того, появляется возможность управлять цветом и размещением на экране.

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

Модуль Crt позволяет:

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

Пример. Программа "Угадай число"(пример 4.8).

program luck;

uses crt;

const max = 10;

var i, k, n : integer;

begin

clrscr; { очистить экран }

randomize;

i := random(max); { загадать число }

window(20, 5, 60, 20); { определить окно }

TextBackGround(Blue); { цвет фона – синий }

clrscr; { залить окно фоном }

TextColor(LightGray); { цвет символов – серый }

k := –1; { счетчик попыток }

GotoXY(12, 5); writeln(' Введите число : ');

repeat { цикл ввода ответа }

GotoXY(20, 9); { установить курсор }

readln(n); { ввести число }

inc(k);

until i = n;

window(20, 22, 60, 24); { определить окно результата }

TextAttr := 2 shl 4 + 14; { желтые символы за зеленом фоне }

clrscr; { залить окно фоном }

GotoXY(6, 2); { установить курсор }

writeln(' Коэффициент невезучести : ', k / max :5:1);

readkey; { ждать нажатия любой клавиши }

TextAttr := 15; { белые символы на черном фоне }

clrscr; { очистить после себя экран }

end.