作者agody (讲不听)
看板Fortran
标题Re: [问题] linux上的指令
时间Thu Dec 4 02:52:54 2008
如果题目是要算阶乘(我不知道题目是啥啦)
又规定要用函式来用递回
program factor
read(*,*) n
nres=ifn(n)
write(*,*)'n=>',nres
end
RECURSIVE function ifn(n)
if (n .eq. 1) then
ifn=1
else
ifn=n*ifn(n-1)
end if
return
end
科科,乱写的,应该会过吧
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.134.25.80
※ 编辑: agody 来自: 220.134.25.80 (12/04 02:58)
1F：推 fragmentwing: function 要先宣告数值型态吧 real function 之类的 04/14 14:49
2F：→ fragmentwing: 好奇怪 下一篇也是这样然後说跑得过 04/14 14:50