| 查看: 342 | 回复: 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 ] |
回复此楼» 猜你喜欢
315求调剂
已经有8人回复
-
312求调剂
已经有5人回复
-
一志愿郑州大学材料与化工085600，求调剂
已经有4人回复
-
315分 085602 求调剂
已经有7人回复
-
298分 070300求调剂
已经有5人回复
-
349求调剂
已经有9人回复
-
302求调剂
已经有4人回复
-
化工调剂303分，过四级
已经有10人回复
-
321求调剂
已经有14人回复
-
296材料专硕求调剂
已经有14人回复
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
