Question

fortran试用递归函数计算等差数列1 2 3 ... 99 100的值

Answer 1

module module1
  real(4):: n
contains
  recursive subroutine sub1(x,y)
    real(4),intent(inout):: x
    if (x < n) then
       x = x + 1
       y=y+x
       call sub1(x,y)
    end if
  end subroutine sub1
end module module1

program main
  use module1
  real(4):: x = 0,y=0
  print *, 'Enter number of repeats'
  n=100
  call sub1(x,y)
  write(*,*)y
end program main

希望能够帮到你！