作者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