Witam
oto fragment mojego kodu:
var
i : integer;
ch : char;
procedure beep(i : integer);
begin
writeln('Dźwięk o częstotliwości ',i,'Herców. ');
Sound(i); { dźwięk o częstotliwości i herców }
writeln('Naciśnij dowolny klawisz...');
repeat until KeyPressed;
Nosound
end;
begin
repeat
ClrScr;
writeln('podaj częstotliwość z zakresu 1-1000Hz');
readln(i);
beep(i);
ch:=ReadKey;
writeln('Esc - wychodzi z programu');
until ch=#27;
end.
chodzi o to, że ten readkey w ogóle nie działa, jak daję STEP OVER (używam freePascala 2.0.2), to program wczytuje znak który wpisałem wcześniej a chcę żeby w momencia gdy dochodzi do linijki:
ch:=ReadKey;
writeln('Esc - wychodzi z programu');
czekał aż coś nacisnę
może ktoś wie jak to zrobić?
dzięki i pozdrawiam(1 raz na tym forum)