Остановка программы символом !

[Nilip 777]

как прекратить цикл вводом символа !

Program From2To10;
var
n2: Longint;
n10, m, i: Integer;
begin
Write('n2 = ');
ReadLn(n2);
n10 := 0;
m := 1;
while n2 <> 0 do
begin
i := n2 mod 10;
n10 := n10 + i * m;
m := m * 2;
n2 := n2 div 10;
end;
WriteLn('n10 = ', n10);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Rikk120]

Program From2To10;
var
n2: Longint;
n10, m, i: Integer;
c:char;
begin
Write('n2 = ');
ReadLn(n2);
n10 := 0;
m := 1;
c:='';
repeat 
   Begin
      while (n2 <> 0) do
        begin
            i := n2 mod 10;
            n10 := n10 + i * m;
            m := m * 2;
            n2 := n2 div 10;
       end;
     WriteLn('n10 = ', n10);
     writeLn('Хотите завершить работу программы? - введите !, иначе    любой символ')
     readLn(c);
   end;
until (c = '!'); 

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[SaLoKiN]

прекратить в вашем понимании прервать зацикливание? или что?

если так,то чем ctrl+z плох? или ctrl+break.
не помню что там прерывает в паскале....

ну или в лоб
считывать символ каждый раз при выполнении WHILE. если он равен "!" тогда выход.

[Nilip 777]

ну как бы Ваша программа не работает. Я хотел сказать что при вводе знака ! цикл заканчивался, а чем не устраивает CTRL+BREAK PAUSE да тем что в уловии сказано прерыванием знаком !. А это я из без Вас знаю Что CTRL+BREAK

[Poma][a]

А это я из без Вас знаю Что CTRL+BREAK

"Хамите, парниша"

Или копаться в справке в Crt (или WinCrt (смотря что у Вас))

while n2 <> 0 do
begin
if (keypressed) and (readkey = '!') then begin 
   WriteLn ('Happy End'); Exit
end;
i := n2 mod 10;
n10 := n10 + i * m;
m := m * 2;
n2 := n2 div 10;
end;