Вот калькулятор, с выводом в конце программы всех введённых пользователем действий и чисел var a: integer; b,c: real; begin writeln('введите действие. 1 - сложение; 2 - вычитание; 3 - умножение; 4 - деление; 5 - корень квадратный; 0 - выход'); readln(a); while a < > 0 do begin
if a = 1 then begin writeln('выбрано сложение'); writeln('введите первое слагаемое'); readln(b); writeln('введите второе слагаемое'); readln(c); writeln('результат: ',b+c); end; if a = 2 then begin writeln('выбрано вычитание'); writeln('введите уменьшаемое'); readln(b);
writeln('введите вычитатель'); readln(c); writeln('результат: ',b-c); end; if a = 3 then begin writeln('выбрано умножение'); writeln('введите первый множитель'); readln(b); writeln('введите второй множитель'); readln(c); writeln('результат: ',b*c); end; if a = 4 then begin
writeln('выбрано деление'); writeln('введите делимое'); readln(b); writeln('введите делитель'); readln(c); if c = 0 then writeln ('делитель не должен быть равен нулю')else writeln('результат: ',b/c); end; if a = 5 then begin writeln('выбран квадратный корень'); writeln('введите
подкоренное выражение'); readln(b); if b < 0 then writeln ('подкоренное выражение должно быть неотрицательным')else writeln ('результат: ',sqrt(b)); end; writeln('введите действие. 1 - сложение; 2 - вычитание; 3 - умножение; 4 - деление; 5 - корень квадратный; 0 - выход'); readln(a);
end; end.