Fortran Coder

查看: 9736|回复: 6
打印 上一主题 下一主题

[通用算法] 新手求救:一个简单的斐波拉契数列程序出问题了

[复制链接]

12

帖子

4

主题

0

精华

入门

F 币
63 元
贡献
40 点
跳转到指定楼层
楼主
发表于 2015-5-15 10:13:16 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

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


求各位指教,谢谢大家!

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

490

帖子

4

主题

0

精华

大宗师

F 币
3298 元
贡献
1948 点

水王勋章元老勋章热心勋章

沙发
发表于 2015-5-15 10:54:48 | 只看该作者
随手网上搜索就一大把参考代码
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

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

板凳
发表于 2015-5-15 20:00:41 | 只看该作者
修改意见参考注释:
[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

100

帖子

0

主题

0

精华

专家

F 币
550 元
贡献
291 点

规矩勋章元老勋章

QQ
地板
发表于 2015-5-16 14:13:48 | 只看该作者
斐波拉契数列编程实现很简单的,还需要看文献?

12

帖子

4

主题

0

精华

入门

F 币
63 元
贡献
40 点
5#
 楼主| 发表于 2015-5-16 17:01:24 | 只看该作者
pasuka 发表于 2015-5-15 10:54
随手网上搜索就一大把参考代码
Fortran fibonacci woes - Stack Overflow
http://stackoverflow.com/questi ...

                       谢谢

12

帖子

4

主题

0

精华

入门

F 币
63 元
贡献
40 点
6#
 楼主| 发表于 2015-5-16 17:02:31 | 只看该作者
fcode 发表于 2015-5-15 20:00
修改意见参考注释:[mw_shl_code=fortran,true]Program www_fcode_cn
  Implicit None
  integer :: i = 3

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

12

帖子

4

主题

0

精华

入门

F 币
63 元
贡献
40 点
7#
 楼主| 发表于 2015-5-16 17:02:52 | 只看该作者
百事可乐 发表于 2015-5-16 14:13
斐波拉契数列编程实现很简单的,还需要看文献?

                             谢谢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-26 05:22

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表