Question

fortran小白求解 为什么会输出NaN

如图





Answer 1

a 和 c 没有初值，你应该用 Do  if exit  End Do 结构

program baidu_thlws
  Implicit None
  real :: x , a , b = 1 , c
  read(*,*) x
  do 
    a = ((2.0/3)*b)+x/(3*b*b)
    c = b
    b = a
    if( abs(a-c) < 1.e-5 ) exit
  end do
  write(*,*) a
end program baidu_thlws