Вопрос новичка. Опции

[Сибиряк 2]

Как закончить код программы чтоб после ее выполнения и нажатия ентер она возвращалась к первоначальному состоянию. Например var a, b, c: integer;
write('a='); readln(a);
write('b='); readln(b);
c:= a+b;
write('c')
end. Как после вывода ответа и нажатия ентер вернуться назад к вводу первого числа чтоб решить другой аналогичный пример? Спасибо.

Сообщение отредактировано: Сибиряк 2 - 19.08.2007 4:21

[Bokul]

Использовать условные циклы repeat...until (условие) или while (условие) do

[Сибиряк 2]

Я примерно понимаю это. Но если не трудно как это будет выглядеть в вышеуказанном примере? Спасибо.

[volvo]

uses crt;
var a, b, c: integer;
begin
  repeat
    write('a='); readln(a);
    write('b='); readln(b);
    c:= a+b;
    writeln('c=', c);
    writeln('Повторить? [y/n]');
  until upcase(readkey) <> 'Y';
end.

Пока будешь нажимать 'Y' или 'y' - программа будет начинаться заново.

[Сибиряк 2]

Ясно спасибо.

[spill]

А еще можно так:

Код

uses crt;
var a, b, c: integer;
Procedure Calc;
begin
  write('a='); readln(a);
  write('b='); readln(b);
  c:= a+b;
  writeln('c=', c);
  writeln('Повторить? [y/n]');
  ReadLn (A);
  If a = 'y'
  Then Calc;  
end.

[volvo]

А еще можно так:

А еще НУЖНО проверять то, что ты пишешь!

Как минимум 3 ошибки...

[Айра]

uses crt;
var a, b, c: integer;  !
...
  If a = 'y'  !
...  
end.

Хм.. не думаю, что компилятор это примет.. число равно символу(букве)?.. ты запускал код?

[daZe1]

Та да.... может a - Char???

[2ral]

writeln('Повторить? [y/n]');
ReadLn (A);
If a = 'y'

ты используешь А как число и как символ. он компиляцию даже не пройдет!