Fortran Coder

查看: 32|回复: 2

[求助] 递归函数

[复制链接]

9

帖子

4

主题

0

精华

入门

F 币
55 元
贡献
36 点
发表于 6 天前 | 显示全部楼层 |阅读模式
本帖最后由 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
program fac_pro
    implicit none
    integer n
    real fac
    write(*,*) 'input'
    read(*,*) n  
    write(*,*) n,'!=',fac(n)
end program

         请教一下,在这一行出现了错误, read(*,*) n

01.PNG
回复

使用道具 举报

15

帖子

0

主题

0

精华

熟手

Vim

F 币
174 元
贡献
84 点
发表于 6 天前 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
read(*,*) n  


中文字符

152

帖子

0

主题

0

精华

版主

World Analyser

F 币
319 元
贡献
299 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
发表于 6 天前 | 显示全部楼层
有个高亮的编辑器和以区分的字体,是多么重要。
QQ截图20200731164759.jpg
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2020-8-6 23:54

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表