您所在位置：主题：请教一个弱智的问题，望各位大侠帮忙
licherlxq
[专家分：0] 发布于 2011-08-07 17:31:00
program male
implicit none
real a,b,ans
character operator
read(*,*)a
read(*,*)operator
read(*,*)b
select case(operator)
case('+')
ans=a+b
case('**')
ans=a**3
case("-")
ans=a-b
case('*')
ans=a*b
case('/')
ans=a/b
case default
write(*,"('unknown operator',A2)")operator
stop
end select
write(*,"(F6.2,A2,F6.2,'=',F6.2)")a,operator,b,ans
stop
end
请教为什么我输入 2,**,3。得到的结果是确是，2.00*3.00=6.00，为什么不是乘方
implicit none
real a,b,ans
character operator
read(*,*)a
read(*,*)operator
read(*,*)b
select case(operator)
case('+')
ans=a+b
case('**')
ans=a**3
case("-")
ans=a-b
case('*')
ans=a*b
case('/')
ans=a/b
case default
write(*,"('unknown operator',A2)")operator
stop
end select
write(*,"(F6.2,A2,F6.2,'=',F6.2)")a,operator,b,ans
stop
end
请教为什么我输入 2,**,3。得到的结果是确是，2.00*3.00=6.00，为什么不是乘方
