作者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