Fortran Coder

标题: 新手求救：一个简单的斐波拉契数列程序出问题了 [打印本页]

作者: zlzshubao 时间: 2015-5-15 10:13
标题: 新手求救：一个简单的斐波拉契数列程序出问题了

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

求各位指教，谢谢大家！

作者: pasuka 时间: 2015-5-15 10:54
随手网上搜索就一大把参考代码
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 时间: 2015-5-15 20:00
修改意见参考注释：

[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

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

作者: zlzshubao 时间: 2015-5-16 17:01

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

谢谢

作者: zlzshubao 时间: 2015-5-16 17:02

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

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

作者: zlzshubao 时间: 2015-5-16 17:02

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

谢谢

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)