Хотел решать задачу которая изложена топиком ниже (про перемещение прямоугольника), но забыл ascii коды стрелок и решил их найти, если я пробовал writeln(ord(readkey)) то упорно выдавало нули, потом я решил попробовать вот так :
uses crt;
var
b : byte;
begin
clrscr;
b := ord(readkey);
writeln(b);
readln;
end.
Объясняю...
Клавиши управления курсором - расширенные, т.е. возвращают сначала #0, а уж потом - расширенный код. Вот так лучше работать с расширенными кодами клавиш:
uses crt;
var
ch: char;
begin
clrscr;
ch := readkey;
case ch of
#0:
writeln(ord(readkey));
else;
end;
readln;
end.
Класc :D