Re: [問題] linux上的指令

看板Fortran作者bluehaerts (5858笨58)時間15年前 (2008/12/04 12:39)推噓1(1推 0噓 6→)

留言7則, 3人參與討論串3/5 (看更多)

※ 引述《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 : 科科,亂寫的,應該會過吧我測試跑過了出現這個結果應該是說沒有主程式喔 ooop.f:7: RECURSIVE function ifn(n) 1 2 Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2) ooop.f: In program `MAIN__': ooop.f:11: ifn=n*ifn(n-1) ^ Invalid form for IF statement at (^) 所以應該不是RECURSIVE 這個地方有錯 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.134.140.40

推

noonee

12/04 12:40, , 1^F

12/04 12:40, 1^F

→

noonee

12/04 12:46, , 2^F

12/04 12:46, 2^F

→

bluehaerts

12/04 12:49, , 3^F

12/04 12:49, 3^F