Калькулятор на 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.

Акинаки Акинаки    2   16.02.2020 01:19    0

Ответы
12654321ььь 12654321ььь  11.10.2020 05:14

===== 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.


Калькулятор на pascal(Нужна Не могу понять как сделать по нормальномуПолучается только в виде + 5 4,
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика