作者cisboy (阿Q)
看板Fortran
標題[問題] 陣列的問題
時間Tue Nov 10 01:17:19 2009
試求從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)
1F：→ gilocustom:既然電腦一直出現錯誤，怎麼不看看錯誤訊息呢？ 11/10 01:53
2F：推 sjgau:Fortran 的陣列，除非你有宣告，否則從 1 開始 11/10 05:51
3F：→ cisboy:謝謝妳了 我宣告後就對了 11/10 16:06
4F：→ sjgau:不客氣！助人為快樂之本 11/10 16:32