Форматы процедуры write

В — выводится результат выражения В: true или false, начиная с

В:P — в крайние правые позиции поля шириной Р символов выво­

4.4.Управление символьным выводом на экран в ТУрбо-Паскале

Использование для вывода на экран только процедур write и writeln дает программисту очень слабые возможности для управле­ ния расположением на экране выводимого текста. Печать текста мо­ жет производиться только сверху вниз, слева направо. Невозможен возврат к предыдущим строкам, стирание напечатанного текста, из­ менение цвета символов и т.д.

Дополнительные возможности управления выводом на экран дают процедуры и функции модуля CRT.

Для установления связи пользовательской программы с модулем пе­ ред разделами описаний должна быть поставлена строка:

Uses CRT

Для работы с модулем CRT необходимо познакомиться со следую­ щими понятиями: режимы экрана, координаты на экране, текстовое окно, цвет фона и цвет символа.

Режимы экрана. Во-первых, вывод на экран может происходить в текстовом или графическом виде (на графических дисплеях). Мы здесь будем говорить только о текстовом выводе.

Дисплеи бывают монохроматические (черно-белые) и цветные. Мо­ нохроматические дисплеи могут работать только в черно-белом ре­ жиме; цветные — как в черно-белом, так и в цветном. Кроме того, текстовые режимы различаются по количеству символьных строк и столбцов, умещающихся на экране.

В модуле CRT каждый режим имеет определенный номер, за ко­ торым закреплено символическое имя (описанная константа). Список таких констант приведен в табл. 1 Приложения 1.

Для установки режима экрана используется процедура

T extM od e(<H O M ep р е ж и м а > ) .

При обращении к процедуре <номер режима> может задаваться как числом, так и именем соответствующей константы. Например, экви­ валентны два оператора:

TextMode(l);

TextMode(CQ40);

Как правило, исходный режим экрана, устанавливаемый “по умол­ чанию” , — СО80 (на цветных дисплеях).

Координаты позиции. Каждая символьная позиция на текстовом экране определена двумя координатами (Х ,У ). Х-коордйната — по­ зиция в строке. Крайняя левая позиция в строке имеет X = 1. У- координата — номер строки, в которой находится символ. Строки ну­ меруются сверху вниз.

Например, в режиме 80 х 25 символ в верхнем левом углу имеет координаты (1; 1); символ в нижнем правом углу — (80; 25); символ в середине экрана — (40; 13).

Для установления курсора на экране в позицию с координатами (Х ,У ) в модуле CRT существует процедура:

GoToXY(X, Y)

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

Вот пример программы, в которой по очереди откроются 4 окна, и каждое из них “зальется” разным фоновым цветом:

Uses Crt; {Example2.pas}

Begin

Windov(l, 1, 40, 12);

TextBackGround(White); ClrScr;

Window(41, 1, 80, 12);

TextBackGround(Red); ClrScr;

Windov(l, 13, 40, 25);

TextBackGround(LightRed); ClrScr;

Window(41, 13, 80, 25);

TextBackGround(Green); ClrScr;

End.

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

Uses Crt; {Example3.pas}

Var I Byte;

Begin

TextBackGround(White);

ClrScr;

GoToXY(l, 12);

For I := 0 To 14 Do

Begin

TextColor(I);

Write(I 5)

End

End.

Кратко опишем еще несколько процедур управления текстовым эк­ раном из модуля CRT. Все эти процедуры не имеют параметров.

Процедура ClrEOL. Стирает часть строки от текущей позиции кур­ сора до конца этой строки в окне. При этом положение курсора не Меняется.

Процедура DelLine. Уничтожает всю строку с курсором. Нижние строки сдвигаются на одну вверх.

Процедура InsLine. Вставляет пустую строку перед строкой, в ко­ торой стоит курсор.