[size=14.3999996185303px]在这个程序的cycle部分,我想实现 : 如果x在0和1之间就退出循环,否则不断要求输入x和n。编译成功,但输入正确后,仍然循环,如输入0.5 100。恳请大家指教^^
[size=14.3999996185303px]IVF, Win7, fortran 95
[Fortran] 纯文本查看 复制代码 program ln
implicit none
real::x,term,sum=0
integer::n
do
print*,'please input x and n'
read*,x,n
if(x>1.or.x<0.000001) cycle
end do
do
term=(x**n)/n
sum=sum+term
n=n-1
if(n==0) exit
end do
print*,sum
end program ln
|