Re: [問題] linux上的指令
不支援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
討論串 (同標題文章)
完整討論串 (本文為第 5 之 5 篇)：
7
14
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
