递归求n!阶乘

excavator · 发表于 2023-8-5 10:32:25

请问为什么一直提示“Variable "n" masks variable in parent scope[行：9，列：18]”？当然不建议在返回单个数字的时候用interface，这段代码只是练习

[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
    end if

    ans = n*fact(n - 1)

    return
  end function fact

excavator · 发表于 2023-8-5 16:54:32

找到原因了，主程序有一个叫n的变量，子程序中也有一个，所以会警告但不报错，只要把变量的名字改一下就好了

fcode · 发表于 2023-8-6 17:00:56

没问题呀，主程序里面有 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

[求助] 递归求n!阶乘

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章