[問題] 陣列的問題
試求從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)
→
11/10 01:53, , 1F
11/10 01:53, 1F
推
11/10 05:51, , 2F
11/10 05:51, 2F
→
11/10 16:06, , 3F
11/10 16:06, 3F
→
11/10 16:32, , 4F
11/10 16:32, 4F