Программа калькулятора, осуществляющего простейшие арифметические действия


Задание: написать программу калькулятор, осуществляющего простейшие арифметические действия над вещественными числами.

Program C;{калькулятор}
uses crt;
var y,a,b:real;
ch:char;label 1;
begin
repeat
writeln ('введи два числа a,b');
readln (a,b);
writeln ('введи операцию над числами (+,-,*,/)');
ch:=readkey;
case ch of
'+' :y:=a+b;
'-' :y:=a-b;
'*' :y:=a*b;
'/' :y:=a/b;
else
begin
writeln ('неверные данные');
goto 1;
end
end;
writeln (a:8:5,ch,b:8:5,'=',y:8:5);
1: writeln ('продолжим вычисления? y/n');
ch:=readkey
until ch='n'
end

Пояснения
1. Программа демонстрирует использование оператора case, который в зависимости от значения введенного символа («+», «-», «*», «/») выполняет соответствующее действие: сложение, вычитание, умножение, деление.

2. Вычисления продолжаются до тех пор пока на запрос:
ПРОДОЛЖИМ ВЫЧИСЛЕНИЯ ? y/n

пользователь не нажмет кнопку n.


Комментарии запрещены.




Статистика