Fortran Coder

标题: 递归函数 [打印本页]

作者: 胆怯滴大侠 时间: 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

program fac_pro

    implicit none

    integer n

    real fac

    write(*,*) 'input'

    read（*,*) n  

    write(*,*) n,'!=',fac(n)

end program

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

01.PNG (969 Bytes, 下载次数: 228)

作者: Transpose 时间: 2020-7-31 16:36

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

read（*,*) n

中文字符

作者: kyra 时间: 2020-7-31 16:48
有个高亮的编辑器和以区分的字体，是多么重要。

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

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)