Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Паскаль / sidorov / Сидоров.DOC
Скачиваний:
30
Добавлен:
10.12.2013
Размер:
1.68 Mб
Скачать

InsLine; Вставка пустой строки.

DelLine; Удаление строки в позиции курсора.

ClrEol; Стирание символов от позиции курсора до конца строки.

67

Кроме перечисленных, отметим процедуры управления яркостью символов: повышенная ( HighVideo; ), пониженная ( LowVideo; ) и нормальная ( NormVideo; ) яркость, а также функции, возвращающие номер текущего столбца ( WhereX; ) и номер текущей строки ( WhereY; ), типа - Byte.

В процедурах TextBackGround(N); и TextColor(N); параметр N назначает цвета:

N цвета символов и экрана N цвета символов

0 Black, черный. 8 DarkGray, темно-серый.

1 Blue, синий. 9 LightBlue, ярко-синий.

2 Green, зеленый. 10 LightGreen, ярко-зеленый.

3 Cyan, голубой. 11 LightCyan, ярко-голубой.

4 Red, красный. 12 LightRed, ярко-красный.

5 Magenta, фиолетовый. 13 LightMagenta, ярко-фиолетовый.

6 Brown, коричневый. 14 Yellow, желтый.

7 LightGray, ярко-серый. 15 White, белый.

При превышении допустимых пределов параметра N происходит преобразование N, при этом символы выводятся с мерцанием. Мерцание символов можно получить, также задавая: N:= N + 128;

В процедурах TextBackGround(N); и TextColor(N); можно применять параметр N, либо наименование цвета, например:

N:=1; TextColor(N); { либо } TextColor(Blue);

1. 14. 2. Управление клавиатурой

KeyPressed; - возвращает значение True (тип Boolean) - если была нажата любая

клавиша (кроме Ctrl, Alt, NumLock и т. п. ), иначе - False.

ReadKey; - возвращает символ нажатой клавиши (тип Char).

Следующие операторы выводят на экран указанную надпись до нажатия клавиши:

Repeat Writeln('Нажмите скорее любую клавишу') until KeyPressed;

Следующие операторы ожидают нажатия клавиши с символом "А":

Repeat Writeln('Нажмите клавишу "А"'); c:=ReadKey until c='А';

В отличие от оператора Read оператор ReadKey не показывает на экране символ нажатой клавиши.

При нажатии на клавишу в буфер клавиатуры записывается соответствующий код, который считывается операторами Read/Readln либо функцией Readkey. При этом буфер клавиатуры очищается. При многократном нажатии на клавиши (без считывания программой символов) буфер клавиатуры переполняется и компьютер начинает "пищать". Для очистки буфера клавиатуры применяются операторы:

While KeyPressed Do c:=ReadKey;

68

Приведем пример программы, выводящей на экран в различных текстовых режимах надпись в виде ступеньки с заданным шагом "dx" по оси "х", в каждой строке "у" , начиная с позиции (1, 1).

PROGRAM FAM;

Uses CRT;