LAngel » 20 ноя 2006, 16:00
потому что, ch = 0 будет только у F1, остальные будут только свой код передавать.
попробуй так:
[syntax:281b1bc87a="pascal"]Program keys;
uses crt;
Var
done: boolean;
ch:char;
Begin
textbackground(blue);
clrScr;
Write('Program key pressed . . .');
gotoxy(2,5);
write('Нажми кнопку: ');
textcolor(red);
done:=false;
repeat
ch:=readkey;
if ch=#0 then
ch:=readkey;
case ch of
#13: writeln('Нажата клавиша ENTER');
#32: writeln('Нажата клавиша SPACE');
#27: writeln('Нажата клавиша ESC');
#59: done:=true; { F1 - ВЫХОД }
end;
until done;
END.[/syntax:281b1bc87a]
потому что, ch = 0 будет только у F1, остальные будут только свой код передавать.
попробуй так:
[syntax:281b1bc87a="pascal"]Program keys;
uses crt;
Var
done: boolean;
ch:char;
Begin
textbackground(blue);
clrScr;
Write('Program key pressed . . .');
gotoxy(2,5);
write('Нажми кнопку: ');
textcolor(red);
done:=false;
repeat
ch:=readkey;
if ch=#0 then
ch:=readkey;
case ch of
#13: writeln('Нажата клавиша ENTER');
#32: writeln('Нажата клавиша SPACE');
#27: writeln('Нажата клавиша ESC');
#59: done:=true; { F1 - ВЫХОД }
end;
until done;
END.[/syntax:281b1bc87a]