ans0604.f90

来自「这是fortran95的第六章的课后答案」· F90 代码 · 共 18 行

program main
  implicit none
  integer, parameter :: max=10
  integer i
  real item
  real ans
  
  ans = 1.0  
  item = 1.0
  do i=2,max
    item = item/real(i)
    ans = ans+item
  end do
  write(*,*) ans

  stop
end program