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？

回复此楼

» 猜你喜欢

2027博士申请-临床检验诊断学、病原生物学、微生物方向已经有5人回复
【长期招聘】复旦大学 AI 制药实验室博士后招聘已经有10人回复
各位基础老师们，看完中央《从严治党》的决定后，对学术界更加有信心了吧已经有4人回复
越来越担心硕士毕业后没有竞争力了已经有15人回复
申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请已经有3人回复

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

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

7152075

铁杆木虫 (著名写手)

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

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

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

引用回帖:

3楼: Originally posted by kardrine at 2016-03-16 22:55:44
谢谢，关于abs函数知道了。另外我用的是visual studio这个软件，加read，要read什么？多谢指教

就加read(*,*)，其它什么也不加。即在源程序倒数第三行多加的样子：
program GUESS1
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"
read( *,* )
stop
end

赞一下

回复此楼

Chemistry

5楼2016-03-17 08:31:56

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

查看全部 6 个回答

7152075

铁杆木虫 (著名写手)

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

应助: 44 (小学生)
金币: 17672.2
红花: 10
帖子: 2110
在线: 176.2小时
虫号: 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，则就循环，与你实际的逻辑是不符的。

赞一下

回复此楼

Chemistry

2楼2016-03-16 20:06:02

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