24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

kardrine

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 84.3
帖子: 17
在线: 5.3小时
虫号: 4320200
注册: 2015-12-29
专业: 固体力学

[交流] 求指点2已有1人参与

program GUESS
implicit none
real,parameter::weight=45.0
real,parameter::e=0.001
real::guess=0.0
do while(abs(guess-weight)>e)
write(*,*) "weight:"
read(*,*) guess
enddo
write(*,*)"you are right"
stop
end
这个程序测试下，可是为什么输出正确答案后，窗口一闪就没了么？不会停留，不眨眼睛的看，也就只能看一眼“you are right”
而且，循环里的循环条件不应该是abs(guess-weight)<e吗？为什么是abs(guess-weight)>e？

回复此楼

» 猜你喜欢

2025冷门绝学什么时候出结果已经有3人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复
AI论文写作工具：是科研加速器还是学术作弊器？已经有3人回复
孩子确诊有中度注意力缺陷已经有6人回复
2026博士申请-功能高分子，水凝胶方向已经有6人回复
论文投稿，期刊推荐已经有4人回复
硕士和导师闹得不愉快已经有13人回复
请问2026国家基金面上项目会启动申2停1吗已经有5人回复
同一篇文章，用不同账号投稿对编辑决定是否送审有没有影响？已经有3人回复

1楼2016-03-16 15:42:51

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

kardrine

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 84.3
帖子: 17
在线: 5.3小时
虫号: 4320200
注册: 2015-12-29
专业: 固体力学

谢谢您

发自小木虫Android客户端

回复此楼

6楼2016-03-17 09:03:00

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 6 个回答

7152075

铁杆木虫 (著名写手)

解决问题的方法比遇到的问题多

应助: 44 (小学生)
金币: 17670.7
红花: 10
帖子: 2108
在线: 175.6小时
虫号: 3086834
注册: 2014-03-25
性别: GG
专业: 理论和计算化学

★
小木虫: 金币+0.5, 给个红包，谢谢回帖

首先，你的主程序名叫GUESS和你后面real名称guess是一样的，这种习惯非常不好，尽可能使主程序名与你后面声明的变量名不要一样（Fortran是不区分大小写的）。
然后，如果你没有看见“you are right”的话，你在stop前加一个read(*,*)，我猜你用的是IVF编译器。
最后，循环条件是abs(guess-weight)>e才对。do while()括号里的条件意思是：只要括号里条件成立则一直循环，否则跳出循环。如果你写<e，意思是只要你猜的体重和实际体重小于e，则就循环，与你实际的逻辑是不符的。