Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 递归函数

递归函数

查看数: 9963 | 评论数: 2 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

胆怯滴大侠

发布时间: 2020-7-31 15:11

正文摘要:

本帖最后由 kyra 于 2020-7-31 16:47 编辑 [Fortran] 查看源码复制源码recursive function fac(n) result (fac1) if (n==1) then fac1=1 else fac1=n*fac(n-1) end if end function ...

kyra 发表于 2020-7-31 16:48:35

有个高亮的编辑器和以区分的字体，是多么重要。

QQ截图20200731164759.jpg (10.42 KB, 下载次数: 629)

Transpose 发表于 2020-7-31 16:36:33

[Fortran] 查看源码 复制源码

recursive function fac(n) result (fac1)
if (n==1) then
    fac1=1
else
    fac1=n*fac(n-1)
end if
end function
program fac_pro
    implicit none
    integer n
    real fac
    write(*,*) 'input'
    read（*,*) n  
    write(*,*) n,'!=',fac(n)
end program

中文字符

递归函数

正文摘要:

回复