ans = 1 end if return end subroutine fact. 上述副程式可改用以下函數來寫作： recursive function fact(n) result(ans) implicit none integer, intent(in) :: n.
確定！ 回上一頁
