论坛首页    职业区    学术与写作    工程技术区    软件区    资料区    商务合作区    社区办公室
 您好! 欢迎 登录注册 最新帖子 邀请注册 活动聚焦 统计排行 社区服务 帮助
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
  • 4587阅读
  • 47回复

[每日基础考试题]求助计算机题(fortran77编程语言) [复制链接]

上一主题 下一主题
离线咖啡豆316
 

发帖
20
土币
178
威望
1
原创币
0
只看楼主 倒序阅读 使用道具 楼主  发表于: 2012-06-20
回复本帖可获得2个土币奖励!
每人最多可获奖3次,奖池剩余34个土币 (中奖几率10%)
7-60题(修改后),
有程序:K=0
                   DO  10  I=1,2
                   DO  10  J=1,2
         10      K=K+I/J
                    WRITE(*,*)K
                    END
此程序的执行结果K值为:
         A. 0            B. 2             C. 2.5           D. 1
这里,我不知道DO循环是怎么运行的,与我计算的结果不一致,请大家帮忙指导一下,谢谢!,另外还有一道关于数组的问题,也很头疼,明天再上传另一道题。
谢谢了~~~~~

离线jianing999

发帖
828
土币
110562440
威望
3827
原创币
0
只看该作者 1楼 发表于: 2012-06-21
第一环,K=1
以后各环,K=上次计算值。
write语名在Do循环的外面,所以只输出最后值。
I=1
   J=1   K=1*1/1=1
   J=2   K1*1/2=1/2
I=2
   J=1   K=(1/2)*(2/1)=1
   J=2   K=1*(2/2)=1
输出最后的K值
K=1
房荒,买房人慌,卖房人慌
离线jianing999

发帖
828
土币
110562440
威望
3827
原创币
0
只看该作者 2楼 发表于: 2012-06-21
回帖奖励+ 2
如果K为整型变量,则计算结果为0
房荒,买房人慌,卖房人慌
离线咖啡豆316

发帖
20
土币
178
威望
1
原创币
0
只看该作者 3楼 发表于: 2012-06-21
首先感谢楼上的。
但是,题目的公式是K=K + I/J,   不是*。

我也是按你这么算的,我的结果是4.
离线咖啡豆316

发帖
20
土币
178
威望
1
原创币
0
只看该作者 4楼 发表于: 2012-06-21
不好意思,我说的是7-60题,不是61题。 抱歉啊~~~~
离线jianing999

发帖
828
土币
110562440
威望
3827
原创币
0
只看该作者 5楼 发表于: 2012-06-21
有程序:K=0
                   DO  10  I=1,2
                   DO  10  J=1,2
10                      K=K+I/J
                    WRITE(*,*)K
                    END
运行过程:
I=1
    J=1  K=0+1/1=1
    J=2  K=1+1/2=1
I=2
    J=1  K=1+2/1=3
    J=2  K=3+2/2=4
write(*,*) K=4
房荒,买房人慌,卖房人慌
离线84255820

发帖
1448
土币
13804
威望
62
原创币
0
只看该作者 6楼 发表于: 2012-06-21

没有10指针的对象
离线84255820

发帖
1448
土币
13804
威望
62
原创币
0
只看该作者 7楼 发表于: 2012-06-21
路过,学习了
离线84255820

发帖
1448
土币
13804
威望
62
原创币
0
只看该作者 8楼 发表于: 2012-06-21
沙发
离线84255820

发帖
1448
土币
13804
威望
62
原创币
0
只看该作者 9楼 发表于: 2012-06-21
10针在哪里?
离线84255820

发帖
1448
土币
13804
威望
62
原创币
0
只看该作者 10楼 发表于: 2012-06-21
A应该是正确答案
离线zfbcs

发帖
3
土币
52
威望
0
原创币
0
只看该作者 11楼 发表于: 2012-06-21
标号为10的语句都不知道是哪个,这个题少给了条件了吧,如果10标号语句指的是k=k+1/2,我觉得答案应该是4啊
快速回复
限100 字节
温馨提示:欢迎交流讨论,请勿纯表情、纯引用!
 
上一个 下一个

      https://beian.mps.gov.cn/ 粤公网安备 44010602012919号 广州半山岩土网络科技有限公司 粤ICP备2024274469号

      工业和信息化部备案管理系统网站