Re: [問題] linux上的指令

[agody (講不聽)]

如果題目是要算階乘(我不知道題目是啥啦)
又規定要用函式來用遞迴

       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)
推 fragmentwing: function 要先宣告數值型態吧 real function 之類的
→ fragmentwing: 好奇怪 下一篇也是這樣然後說跑得過