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