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

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

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

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

textual
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


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