Question

用fortran语言编程计算1 +1/(1*2)+ 1/(2*3) +1/(3*4) +...+

/{n*(n+ 1)}的和，直至最后一项小于10**（-3）

Answer 1

程序如下, 如有问题请及时回馈.

program main
! 计算级数1+1/(1*2)+...+1/(n*(n+1))
  implicit none
  real:: s
  integer::n=1
  s=1.0
  do while(1.0/(n*(n+1))>1.e-3)
      s=s+1.0/(n*(n+1))
      n=n+1
  enddo
  print*,'第',n+1,'项的大小是',1.0/(n*(n+1))
  print*,'s=',s
end program main

Answer 2

	real a,s
	integer i
	s=1
	i=1
10	a=1.0/(i*(i+1))
	write(*,*)a
	if (a.ge.0.001) then
		s=s+a
		i=i+1
		goto 10
	endif
	write(*,*)s
	stop
	end