| 查看: 332 | 回复: 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 ] |
回复此楼» 猜你喜欢
过年走亲戚时感受到了所开私家车的鄙视链
已经有10人回复
-
今年春晚有几个节目很不错，点赞！
已经有12人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有13人回复
-
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有12人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有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