Какие коды у клавиш Enter и стрелок управления курсором? - Turbo Pascal

Формулировка задачи:

Какие коды у стрелок и "Enter" на клавиатуре?


textual

Код к задаче: «Какие коды у клавиш Enter и стрелок управления курсором? - Turbo Pascal»

Uses Crt;
Var
  Ch : Char;
Begin
  Repeat
    Ch:=ReadKey;
    If Ch=#0 then
    Begin
      Write('Нажата клавиша с расширенным кодом. ');
      Ch:=ReadKey;
    End;  
    Writeln(Ord(Ch));
  Until Ch=#27; {выход по нажатию на ESC}
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.000 из 5

Источник