Выход из программы по заданому символу

@Mercenary · Регистрация: 10.12.2009

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

Есть программа, которая после нажатия на любую клавишу продолжает свою работу, но нужно, чтобы программа останавливалась при нажатии на клавишу Esc. Подскажите пожалуйста, как это сделать ?

Pascal

uses crt;
var
i,z:byte;
label start;
begin
textColor(7); textbackground(0); clrscr;
randomize;
for i:= 1 to 100 do
    begin
    textbackground(0);clrscr;
    z:=Random(10);
    window(15+z,6+z,60+z,15+z);
    textBackground(i);
    textColor(8);   clrscr;
    start: write(i); readkey;
    end;
    readln;
    end.

@WolfCF · 20.12.2009, 15:56

использовать цикл repeat until с=#27 c:char

@Mercenary · 20.12.2009, 18:35 **[ТС]**

не получилось через repeat until, сделал через if else, но всеравно спасибо за помощь!
Вот, может пригодится таким как я:

Pascal

uses crt;
var
i,z:byte;
S:char;
label start;
begin
textColor(7); textbackground(0); clrscr;
randomize;
for i:= 1 to 100 do
    begin
    textbackground(0);clrscr;
    z:=Random(10);
    window(15+z,6+z,60+z,15+z);
    textBackground(i);
    textColor(8);   clrscr;
    start: write(i); S:=readkey;
    if S=#27 then exit
    else continue;
    end;
    readln;
    end.

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	20.12.2009, 15:56	2
	использовать цикл repeat until с=#27 c:char 1

	20.12.2009, 18:35