作者agody (講不聽)
看板Fortran
標題Re: [問題] linux上的指令
時間Thu Dec 4 16:02:13 2008
不支援RECURSIVE就用間接的
寫兩個一樣的function互call
program factor
read(*,*) n
nres=ifn1(n)
write(*,*)'n=>',nres
end
function ifn1(n)
if (n .eq. 1) then
ifn1=1
else
ifn1=n*ifn2(n-1)
end if
return
end
function ifn2(n)
if (n .eq. 1) then
ifn2=1
else
ifn2=n*ifn1(n-1)
end if
return
end
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.120.99