Witam!
Może mi ktoś podpowiedzieć jak zrobić, żeby po naciśnięciu klawisza ESC program przerywał działanie ???
Program wyszukuje największą liczbe spośród n podanych liczb. Jeżeli podam że chce wyszukać spośród 100 liczb i po wpisaniu 50 znudzi mi się klepanie w klawisze i chce przerwać, to naciskam ESC i program kończy działanie.
Tak wygląda fragment programu:
procedure najwieksza;
begin
clrscr;
gotoxy(10, 10);
writeln ('TEMAT: Wybor najwiekszej liczby z danych liczb');
gotoxy(10, 19);
writeln('DANE:');
gotoxy(20,20);
write('Prosze podac ilosc liczb: ');
{$I-}
readln(n);
{$I+}
while (IOResult<>0) do
begin
gotoxy(20,20);
Write('BLAD!!! Prosze podac poprawna ilosc liczb: ');
clreol;
{$I-}
Readln(n);
{$I+}
end;
i := 1;
gotoxy(20, 21);
write('Prosze podac wartosc liczby ',i,': ');
{$I-}
readln(ai);
{$I+}
While (IOResult<>0) do
begin
gotoxy(20,21);
Write('BLAD!!! Prosze podac poprawna wartosc liczby ',i,': ');
{$I-}
readln(ai);
{$I+}
end;
begin
max := ai;
for i:=2 to n do
begin
gotoxy(20, 21);
write('Prosze podac wartosc liczby ',i,': ');
clreol;
{$I-}
readln(ai);
{$I+}
While (IOResult<>0) do
begin
gotoxy(20,21);
Write('BLAD!!! Prosze podac poprawna wartosc liczby ',i,': ');
{$I-}
readln(ai);
{$I+}
end;
if ai > max then max := ai;
end;
gotoxy(10,28 );
writeln('WYNIK: ');
textcolor(31);
gotoxy(20, 29);
writeln('Liczba najwieksza to ',max);
readln;
end;
end;
Będe baaardzo wdzięczny za podpowiedź.