→ gilocustom:既然電腦一直出現錯誤，怎麼不看看錯誤訊息呢？ 11/10 01:53
推 sjgau:Fortran 的陣列，除非你有宣告，否則從 1 開始 11/10 05:51
→ cisboy:謝謝妳了 我宣告後就對了 11/10 16:06
→ sjgau:不客氣！助人為快樂之本 11/10 16:32
試求從1開始的20個連續Fibonacci Number。Fibonacci Sequence的規則是
f(0)=0
f(1)=1
f(n)=f(n-1)+f(n-2) for n>1
這是我最近的作業
但是我這樣寫電腦一直出現錯誤
請問是哪邊有錯?
integer::i,f(20)
do i=0,20
IF(i==0)then
f(i)=0
write(*,*)f(i)
elseif(i==1)then
f(i)=1
write(*,*)f(i)
else
f(i)=f(i-1)+f(i-2)
write(*,*)f
endif
end do
end
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.118.229.61
※ 編輯: cisboy 來自: 140.118.229.61 (11/10 01:32)