新手求救：一个简单的斐波拉契数列程序出问题了

zlzshubao

这个程序是希望把斐波拉契数列的前n项打印出来，条件是第n项不大于100000或者n不大于30.


求各位指教，谢谢大家！

pasuka

随手网上搜索就一大把参考代码
Fortran fibonacci woes - Stack Overflow
http://stackoverflow.com/questio ... tran-fibonacci-woes
Fibonacci numbers (FORTRAN) - LiteratePrograms
http://en.literateprograms.org/Fibonacci_numbers_%28FORTRAN%29
如何用Fortran求Fibonacci数列的前100项[求助] - 『 高性能计算 』 - 动力论坛 - Powered by Discuz!
http://bbs.lasg.ac.cn/bbs/thread-15094-1-1.html

fcode

修改意见参考注释：

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn
  Implicit None
  integer :: i = 3
  integer :: a(1000)!//必须定长
  a(1:2)=1
  Do while( i<30 .and. a(i)<100000)
    a(i) = a(i-1)+a(i-2)
    write(*,*) a(i)
    i=i+1 !//先输出后+1
  End Do
End Program www_fcode_cn

百事可乐

斐波拉契数列编程实现很简单的，还需要看文献？

zlzshubao

pasuka 发表于 2015-5-15 10:54
随手网上搜索就一大把参考代码
Fortran fibonacci woes - Stack Overflow
http://stackoverflow.com/questi ...

                       谢谢

zlzshubao

fcode 发表于 2015-5-15 20:00
修改意见参考注释：[mw_shl_code=fortran,true]Program www_fcode_cn
  Implicit None
  integer :: i = 3

非常感谢，新手上路，诸多不懂，麻烦你了~祝生活开心！

zlzshubao

百事可乐 发表于 2015-5-16 14:13
斐波拉契数列编程实现很简单的，还需要看文献？

                             谢谢