| 查看: 532 | 回复: 5 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[交流]
求指点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？ |
回复此楼
6楼2016-03-17 09:03:00
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17670.7
- 红花: 10
- 帖子: 2108
- 在线: 175.6小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
2楼2016-03-16 20:06:02
3楼2016-03-16 22:55:44
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17670.7
- 红花: 10
- 帖子: 2108
- 在线: 175.6小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
4楼2016-03-17 08:28:46
