как сделать повторение вычисления, если пользователь пожелает? - Паскаль

Question

Александр · Accepted Answer

это реализуется через цикл, например 
 
var a,b,x:integer; 
begin 
 x:=1; 
 repeat 
 writeln('введите 1 слагаемое'); read(a); 
 writeln('введите 2 слагаемое'); read(b); 
 writeln('сумма = ',a+b); 
 writeln('вычислить ещё? 1 - да, 0 - нет'); read(x); 
 until x=0; 
end.

Ольга Беляева · Answer

Поставь ему кнопку и пусть тыкает сколько хочет. Типа калькулятор, просто пусть условие сохраняеся

Ульяна · Answer

1) юзай функции и процедуры 
2) после каждого вычисления надо спрашивать пользователя, продолжить ли 
repeat 
 do_something(); 
 wrire('do u want to continue? '); 
 readln(some_string); 
until some_string='no' 
 
что-то типа того