百事可乐 发表于 2015-5-16 14:13 谢谢 |
fcode 发表于 2015-5-15 20:00 非常感谢,新手上路,诸多不懂,麻烦你了~祝生活开心! |
pasuka 发表于 2015-5-15 10:54 谢谢 |
斐波拉契数列编程实现很简单的,还需要看文献? |
修改意见参考注释: [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 |
随手网上搜索就一大把参考代码 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 |
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-5-4 19:42