| 查看: 383 | 回复: 2 | ||
[求助]
一个小问题
|
|
program main implicit none integer a(10) integer i a(1)=0 a(2)=1 forall(i=3:10) a(i)=a(i-1)+a(i-2) end forall write(*,"(10i4)" ) a stop end 上面程序要实现费氏数列前十个数字，也就是分别为0 1 1 2 3 5 8 13 21 34 到了forall那边是不是有什么问题呢？用do循环就对，可是forall结果就成了0 1 1 1 0 0 0 0 0 0 [ Last edited by jjdg on 2012-9-27 at 00:24 ] |
回复此楼» 猜你喜欢
微信指数没变化，科研之友没阅读
已经有4人回复
-
这种情况还有戏吗
已经有9人回复
-
同事接到电话了，我却没有
已经有4人回复
-
准备明年的基金了
已经有5人回复
-
今年的WR进展到哪一步了？
已经有6人回复
-
时间戳他又来了
已经有11人回复
-
小木虫看见有人已经知道结果了
已经有15人回复
-
这个自发加氧反应的机理是什么？
已经有6人回复
-
J-J-W不为人知的一面
已经有18人回复
-
没消息就是被刷了呗
已经有13人回复
chembetsey
木虫 (小有名气)
- 应助: 125 (高中生)
- 金币: 3820.1
- 散金: 5
- 红花: 9
- 帖子: 262
- 在线: 281.8小时
- 虫号: 1781694
- 注册: 2012-04-27
- 专业: 理论和计算化学
2楼2012-09-26 22:54:33
3楼2012-09-27 11:08:08