Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
ЛР-2010-16-робота з файлами.doc
Скачиваний:
0
Добавлен:
12.12.2019
Размер:
75.78 Кб
Скачать

Текст програми для визначення коду клавіші клавіатури

program klavishi_i_ESC;

{Програма дає можливість одержати коди клавіш клавіатури. Але

не всі клавіші мають код - наприклад, Shift, Ctrl тощо. Деякі

клавіші мають подвійний код, який називається розширеним кодом:

0 І ще якесь число - наприклад, клавіші PgDn, Del, End тощо.}

uses crt;

Var vidp:char;

begin

repeat

vidp:=readkey; {при використанні функції ReadKey

зчитаний символ на екран не відображається}

write(vidp);

writeln(' - ',ord(vidp));

until vidp=#27; {код ESC}

readln;

end.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]