39.Модуль crt.Управление клавиатурой.
KeyPressed; - возвращает значение True (тип Boolean) - если была нажата любая клавиша (кроме Ctrl, Alt, NumLock и т. п. ), иначе - False.
ReadKey; - возвращает символ нажатой клавиши (тип Char).
Repeat Writeln('Нажмите скорее любую клавишу') until KeyPressed;
Repeat Writeln('Нажмите клавишу "А"'); c:=ReadKey until c='А';
Для очистки буфера клавиатуры применяются операторы:
While KeyPressed Do c:=ReadKey;
40.Модуль crt.Работа с символьными переменными.
Repeat c:=readKey; Write(c) until c=#13;
здесь "с" - переменная типа Char,
#13 - код клавиши Enter
#32 - SpaceBar
#27 - Esc
Для запоминания вводимых символов можно использовать операторы:
i:=0; repeat i:=i+1; ch[i]:=readKey; write(ch[i]) until ch[i]=#13;
Здесь ch[i] - элемент массива ch типа Char.
41. Модуль crt. Управление звуковыми сигналами.
Sound(N); - включение звука с частотой тона N (измеряется в герцах).
Delay(M); - задержка выполнения программы на M миллисекунд.
NoSound; - выключение звука. Здесь N и M - типа Word.
Sound(F); Delay(N); NoSound;
Формула расчета частоты звука:
F=Round(440*Exp(Ln(2)*(No-(10-Nn)/12)));
где No - номер октавы -3<= No <=4; Для основной октавы No=0.
Nn - номер ноты 1 - До, 2 - До#, 3 - Ре, и т. д. 12 - Cи.
При сквозной нумерации нот принять для No<0 - Nn<1, для No>0 - Nn>12.
42. Модуль Graph. Инициализация и закрытие графического режима.
InitGraph.
Для запуска графической системы необходимо:
Подключить модуль GRAPH — библиотеку графических процедур:
USES Graph;
Установить графический режим с помощью двух переменных и инициализировать графическую систему :
VAR DriverVar, ModeVar:Integer;
BEGIN
DriverVar := Detect;
InitGraph(DriverVar , ModeVar, '<путь к файлу драйвера>');
Таблица 3. Константы графических драйверов (DriverVar)
-
Константа
Значение
CurrentDrivgr
-128
Detect
0
CGA
1
MCGA
2
EGA
3
EGA64
4
EGAMono
5
IBM8514
6
HercMono
7
ATT400
8
VGA
9
PC3270
10
43.Модуль Graph.Базовые процедуры и функции: окно, текущий указатель, точка,линия. Система координат
координата Х
(0,0)
(GetMaxX,0)
координата Y
(0,GetMaxY) (GetMaxX,GetMaxY)
Рис. 1