Лекция "Стандартный модуль CRT. Примеры"

Стандартный модуль CRT. Примеры Модуль Crt позволяет выводить цветные символы на цветном экране. Хотя по­прежнему  отображение будет происходить в текстовом режиме. Текстовый режим означает, что на  экране могут выводиться только определенные символы в определенных местах  (знакоместах). Можно представить экран, разделенным вертикальными и горизонтальными линиями на  ячейки. В эти ячейки можно «вписывать» различные символы. У каждой ячейки есть адрес. Модуль Crt содержит ряд процедур, позволяющих задавать цвет символов и экрана,  очищать экран, менять позицию курсора и др. Стандартный экран в Паскале чаще формируется из 25 сток и 80 столбцов. Строки  нумеруются сверху вниз, а столбцы слева на право. Нумерация начинается с единицы (что  может показаться непривычным). Количество доступных цветов (для экрана и символов) всего 16. Они кодируются числами  от 0 до 15. Также вместо чисел можно прописывать названия цветов. Для того чтобы в программе можно было использовать содержимое модуля Crt, его надо  импортировать (подключить) в программу. Делается это в секции, которая начинается со  слова uses. Чтобы очистить экран от всех надписей, требуется выполнить процедуру clrscr. Если перед этим был задан цвет экрана (с помощью textbackground), то экран будет залит  соответствующим цветом. Цвет текста определяется процедурой textcolor, позиция курсора ­ gotoxy. Для вывода символов на экран используются стандартные процедуры write и writeln. Также существует процедура временной задержки delay (аргумент задается в  микросекундах), если требуется выводить символы не сразу, а постепенно. При подключении модуля CRT из этой цепочки исключаются медленная функция MS­DOS и, как правило, подпрограмма БСВВ, вследствие чего значительно повышается скорость  вывода информации на дисплей. Понятно, что чем «медленнее» работает компьютер, тем  заметнее будет эффект от подключения модуля CRT. Пользователи ПЭВМ класса PC/XT  могут воочию увидеть разницу, запустив по очереди две программы. Пример: {Программа использует стандартный вывод} PROGRAM Standart Output; VAR i : Byte; {счетчик цикла } for i : = 1 to 100 do Write (‘* Турбо Паскаль*’); WriteLn END. {Программа использует средства модуля CRT} PROGRAM CRT_Output; USES CRT; VAR i : Byte; BEGIN for i : = 1 to 100 do Write (‘* Турбо Паскаль*’); WriteLn END.