Вывод кода нажатой клавиши

@ПавелИтель · Регистрация: 21.02.2010

Author24 — интернет-сервис помощи студентам

Доброе время суток. Прошу помочь с программой которая выводит код нажатой клавиши.
Вот код:

Pascal

Program n30;
Uses CRT;
var x:char;
Begin
 ClrScr;
 writeln('Nagimaite klavishi:');
 repeat
 x:=readkey;
 writeln('Kod klavishi: ',x);
 delay(50000);
 ClrScr;
 end;
 until x=#27;
end.

Но, эта программа выводит не код клавиши а ее содержание.((

@Puporev · 26.06.2010, 19:40

writeln('Kod klavishi: ',ord(x));

@ПавелИтель · 29.06.2010, 02:41 **[ТС]**

Большое спасибо!

Добавлено через 2 минуты
Вот, готовая, работающая программа которая выводит код нажатой клавиши.

Pascal

Program n30;
Uses CRT;
var x:char;
Begin
 ClrScr;
 writeln('Nagimaite klavishi:');
 repeat
 x:=readkey;
 writeln('Kod klavishi: ',ord(x)); 
 delay(2000);
 ClrScr;
 until x=#27;
end.

@Хохол · 29.06.2010, 02:47

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	26.06.2010, 19:40	2
	writeln('Kod klavishi: ',ord(x)); 2

@Хохол 476 / 444 / 34 Регистрация: 20.11.2009 Сообщений: 1,293
	29.06.2010, 02:47	4
	0