Составьте программу на Pascal — калькулятор, которая запрашивает тип арифметической операции: 1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление, а также два числа и производит над ними соответствующую арифметическую операцию. Ввод чисел заканчивается нажатием клавиши 0. Протокол работы программы: Выберите тип арифметической операции: 1-сложение, 2-вычитание, 3-умножение, 4-деление, 0-выход. 1 Введите два числа: 15 16 Ответ: 15+16=31 Выберите тип арифметической операции: 1-сложение, 2-вычитание, 3-умножение, 4-деление, 0-выход. 3 Введите два числа: 5 8 Ответ: 5*8=40 Выберите тип арифметической операции: 1-сложение, 2-вычитание, 3-умножение, 4-деление, 0-выход. 0 Пока!

Можно решить задачу циклом: программа спрашивает номер операции, выполняет действие и повторяет работу, пока пользователь не введёт 0.

Программа на Pascal:
program Calculator;
var
op: integer;
a, b: real;
begin
repeat
writeln('Выберите тип арифметической операции:');
writeln('1-сложение, 2-вычитание, 3-умножение, 4-деление, 0-выход.');
readln(op);

if op in [1..4] then
begin
writeln('Введите два числа:');
readln(a, b);

case op of
1: writeln('Ответ: ', a:0:0, '+', b:0:0, '=', a + b:0:0);
2: writeln('Ответ: ', a:0:0, '-', b:0:0, '=', a - b:0:0);
3: writeln('Ответ: ', a:0:0, '*', b:0:0, '=', a * b:0:0);
4: if b = 0 then
writeln('На ноль делить нельзя')
else
writeln('Ответ: ', a:0:0, '/', b:0:0, '=', a / b:0:2);
end;
end
else if op = 0 then
writeln('Пока!')
else
writeln('Нет такой операции');

until op = 0;
end.

Здесь переменная op хранит номер выбранной операции, а case выбирает нужное действие.

0 0 Пожаловаться