PDA

Просмотр полной версии : Выход из цикла по нажитию клавиши



Viktor059
28.12.2012, 20:58
Подскажите пожалуйста как сделать выход из цикла по нажатию клавиши, любой кроме цифр.
Используя readkey, возникают проблемы с readln. Заранее спасибо.
Pascal ABC.


Program Pr02;
uses box,trapeze,simson,crt;
label
m1;
var
z,i,n,r,a,b,xa,xb,g: integer;
x,y:real;
s: array [1..100] of real;

ch:char;
begin
R:=32; a:=21; b:=35; xa:=-6; xb:=34; i:=1;
repeat
writeln('Введите Число разбиений n');
readln (n);
s[i]:=pryamo(n,r,a,b,xa,xb);
s[i+1]:=trap(n,r,a,b,xa,xb);
s[i+2]:=sim(n,r,a,b,xa,xb);
s[i+3]:=n;
i:=i+4;
ClrScr;
writeln ('введите 1 для остановки программы, или 2 для продолжния ');
readln (ch);

until ch='1';
ClrScr;
writeln(' ------------------------------------------------------- ');
writeln('| Число разбиений | Результат |');
writeln('| |------------------------------------ |');
writeln('| n | A | B | C |');
writeln(' ------------------------------------------------------- ');
z:=1;
while z<=i-4 do
begin
writeln('| ',s[z+3]:5:3,' | ',s[z]:5:3,' | ',s[z+1]:5:3,' | ',s[z+2]:5:3,' |');
writeln(' ------------------------------------------------------- ');
z:=z+4;
end;
end.