递归求n!阶乘

fcode

没问题呀，主程序里面有 n，不影响子程序里面有 n 的。你的代码我这里运行毫无问题。

尽管你的代码没有问题，但有一些语句没有必要。帮你注释出来。

[Fortran] 纯文本查看 复制代码

program recursive_test
    implicit none
    INTEGER :: n
    interface
      RECURSIVE INTEGER function fact(n)! result(ans)
        !LOGICAL :: count 不必要
        INTEGER :: n
      end function fact
    end interface
    write (*, "('N = ', I3)")
    read (*, *) n
    write (*, "(I3, '! = ', I8)") n, fact(n)
    ! stop 不必要
  end program recursive_test

  RECURSIVE INTEGER function fact(n) result(ans)
    implicit none
    INTEGER :: n
    !LOGICAL :: count
    if (n < 0) then
      ans = -999
      !count = .false.
      !return
    else if (n <= 1) then
      ans = 1
      !count = .true.
      !return
    else
      ans = n*fact(n - 1)      
    end if
    !return
  end function fact