UC知道Pascal 编程 计算器
来源：百度知道 编辑：UC知道 时间：2024/06/17 15:48:26
可以连续运算的计算器:
var
x,y:real;
ch:char;
begin
read(x,ch);
write(x,ch);
while (ch<>'=') do
begin
read(y);
write(y:4:2);
case ch of
'+':x:=x+y;
'-':x:=x-y;
'*':x:=x*y;
'/':x:=x/y;
end;
read(ch);
write(ch)
end;
writeln('结果=',x:4:2);
end.
此程序可以生成并运行
可运行时输入数字可以,字符提示出错.
知情认识请指点几招.. 谢谢
var
x,y:real;
ch:char;
begin
read(x,ch);
write(x,ch);
while (ch<>'=') do
begin
read(y);
write(y:4:2);
case ch of
'+':x:=x+y;
'-':x:=x-y;
'*':x:=x*y;
'/':x:=x/y;
end;
read(ch);
write(ch)
end;
writeln('结果=',x:4:2);
end.
此程序可以生成并运行
可运行时输入数字可以,字符提示出错.
知情认识请指点几招.. 谢谢
问题出在
read(x,ch);
write(x,ch);
while (ch<>'=') do
上
因为输入x和ch时要敲回车，便多输入了回车字符。
导致read(y);
时读的是回车字符，所以改为
read(x,ch);
readln;
write(x,ch);
下面同理。
顺便说一下，改了虽然没错误，但答案不正确，因为read(x,ch),ch读到的是空格，建议改个思路/
read(x,ch);改成read(x,ch,ch);