Калькулятор на pascal(Нужна помощь)
Не могу понять как сделать по нормальному
Получается только в виде + 5 4, то есть сначала знак нужно поставить(смотреть в коде), иначе нельзя(между a и b), не получается.Что делать? Интересно, для саморазвития
Код:
var a, b, c : real;
x: char;
begin
writeln('Введите пример');read(x, a, b);
if x = '+' then c:=a + b;
if x = '-' then c:=a - b;
if x = '/' then c:=a / b;
if x = '*' then c:=a * b;
writeln(a, x, b, '=', c);
end.
Не могу понять как сделать по нормальному
Получается только в виде + 5 4, то есть сначала знак нужно поставить(смотреть в коде), иначе нельзя(между a и b), не получается.Что делать? Интересно, для саморазвития
Код:
var a, b, c : real;
x: char;
begin
writeln('Введите пример');read(x, a, b);
if x = '+' then c:=a + b;
if x = '-' then c:=a - b;
if x = '/' then c:=a / b;
if x = '*' then c:=a * b;
writeln(a, x, b, '=', c);
end.
Answers & Comments
===== PascalABC.NET =====
begin
var s := ReadString.ToWords;
var a, b: real;
if not s[0].TryToReal(a) then
begin
Print('Значение', s[0], 'не является записью числа');
exit
end;
if not s[2].TryToReal(b) then
begin
Print('Значение', s[2], 'не является записью числа');
exit
end;
case s[1][1] of
'+': Print(a + b);
'-': Print(a - b);
'*': Print(a * b);
'/': Print(a / b);
else
Print('Разрешены операции <+>, <->, <*> и </>')
end;
end.