Re: [問題] linux上的指令

[agody (講不聽)]

不支援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