| 查看: 422 | 回复: 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 ] |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有5人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有4人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有3人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有5人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有5人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有5人回复
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
