主题:遇到问题,请各位帮一下忙!
program a(input,output);
var
oper:char;
x,y,result:real;
begin
read(x,oper,y);
case oper of
'+':result:=x+y;
'-':result:=x-y;
'*':result:=x*y;
'/':result:=x/y
end;
writeln(result);
end.
我运行不出来结果,希望大家能给点意思,真的不知道怎么回事!
谢谢!
邮件:lidelun1210@126.com
var
oper:char;
x,y,result:real;
begin
read(x,oper,y);
case oper of
'+':result:=x+y;
'-':result:=x-y;
'*':result:=x*y;
'/':result:=x/y
end;
writeln(result);
end.
我运行不出来结果,希望大家能给点意思,真的不知道怎么回事!
谢谢!
邮件:lidelun1210@126.com