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
: 科科,亂寫的,應該會過吧
我測試跑過了 出現這個結果 應該是說 沒有主程式喔
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
推
12/04 12:40, , 1F
12/04 12:40, 1F
→
12/04 12:46, , 2F
12/04 12:46, 2F
→
12/04 12:49, , 3F
12/04 12:49, 3F
→
12/04 12:50, , 4F
12/04 12:50, 4F
→
12/04 12:56, , 5F
12/04 12:56, 5F
→
12/04 12:57, , 6F
12/04 12:57, 6F
→
04/14 14:50,
5年前
, 7F
04/14 14:50, 7F
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章