Jlcocb
10.10.2015, 02:56
Помогите пожалуйста, нужно написать калькулятор который будет считывать сразу (2+3) например, ставить = и ответ, то есть что бы считывал цицру,фукцию что с ней делать и другую цифру сразу.Спасибо заранее, вот пока что у меня получилось. Главное то бы все это было одной строчкой.
program z4;
USES graphabc;
var a,b:integer;
rez:real;
c:char;
begin
readln(a);
readln(c);
readln(b);
case c of
'+': rez:=a+b;
'-': rez:=a-b;
'*': rez:=a*b;
'/': rez:=a/b;
end;
writeln (a,c,b,'=',rez);
end.
program z4;
USES graphabc;
var a,b:integer;
rez:real;
c:char;
begin
readln(a);
readln(c);
readln(b);
case c of
'+': rez:=a+b;
'-': rez:=a-b;
'*': rez:=a*b;
'/': rez:=a/b;
end;
writeln (a,c,b,'=',rez);
end.