Учебное пособие: Основы технологии программирования

ch:char ;

Begin

repeat

ch:=ReadKey;

if ch:=chr(0) then {нажата служебная клавиша}

begin

writeln(‘Служебная кавиша’);

ch:=ReadKey;

end;

writeln(ord(ch));

until ord(ch) = 27; { поканенажатаклавиша <Esc> }

End.

ПРИМЕР ПРОГРАММЫ «МЕНЮ»

Функция ReadKey удобна при организации меню программы. Следующая программа выводит список задач (пунктов меню), выделяет первый цветом. При нажатии клавиши “стрелка вниз” выделяет следующий пункт меню,при нажатии клавиши “стрелка вверх” – предыдущий. Нажатие клавиши <Enter> активизирует соответствующую процедуру (в данном случае – процедуру –заглушку).

Program mm;

Uses crt;

Const

norm=$17; {цветневыделенногопункта}

sel=$70; {цвет выделенного пункта }

n=3;

Var

menu:array[1 .. n] of string[12]; {названия пунктов меню}

punkt:integer; {номер веделенного пункта}

ch:char; {введенный символ}

x,y:integer; {координаты первой строки меню}

Procedure Menutoscr; {вывод меню на экран}

var i:integer;

begin clrscr;

for i:=1 to n do begin