zlzshubao 发表于 2015-5-15 10:13:16

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


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


求各位指教，谢谢大家！

pasuka 发表于 2015-5-15 10:54:48

随手网上搜索就一大把参考代码
Fortran fibonacci woes - Stack Overflow
http://stackoverflow.com/questions/14693551/fortran-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:41

修改意见参考注释：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:48

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

zlzshubao 发表于 2015-5-16 17:01:24

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

                     谢谢

zlzshubao 发表于 2015-5-16 17:02:31

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


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

zlzshubao 发表于 2015-5-16 17:02:52

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

                           谢谢
页: [1]
查看完整版本: 新手求救：一个简单的斐波拉契数列程序出问题了