递归函数

胆怯滴大侠

[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

kyra

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

Transpose

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

read（*,*) n  

中文字符