| 查看: 341 | 回复: 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 ] |
回复此楼
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
