你好,问题出在
read *,a,b,op
这个语句上,因为表控格式的 read 遇到 / 就会中止。从而导致 op 的值并不会读取。
因此,可以改用格式符读取。
此外,b==0 最好不要这样写,因为浮点数存在误差,所以不要做相等判断。
[Fortran] 纯文本查看 复制代码 real a,b
character op
read(*,*) a , b !// 先表控格式读取 a b
read(*,"(a)") op !// 然后利用格式符读取 op
select case(op)
case('+')
print *,'两个数之和为:',a+b
case('-')
if (a<b) then
print *,'被减数不能小于减数'
else
print *,'两个数之差为',a-b
end if
case('*')
print *,'两个数之积为:',a*b
case('/')
if ( abs(b)<1.0e-6 ) then !// 浮点数不要做相等判断
print *,'除数不能为零'
else
print *,'两个数之商为:',a/b
end if
case default
print *,"输入错误,请重新输入"
end select
end |