以下的程序已修改，只要在运行时第一个数字后面加打一个空格就行了。
例如：
3 +5
123 +2000
var
result,x,y:real;
ch:char;
flag:boolean;
begin
read(x,ch,ch,y); //作了修改，多读一次ch，以去除空格
result:=0;
flag:=true;
case ch of
'+':result:=x+y;
'-':result:=x-y;
'*':result:=x*y;
'/':if y<>0 then
result:=x/y
else
flag:=false;
end;
if flag=true then
write(result)
else write('error');
readln;
end.
问题出在read(x,ch,y)这句上。你只要输入3空格+空格5就好了。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024