| 查看: 834 | 回复: 8 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】知道这个程序为什么报错嘛？ 【已解决】
|
|||
|
implicit real*8(a-h,o-z) read(*,*) n write(*,*)n, fac(n) read(*,*) m write(*,*)m, fac(m) end function fac(n) implicit real*8(a-h,o-z) data f/1/ write(*,*) '***' if(n.lt.0) return do i=1,n f=f*i enddo fac=f return end 在练习save应用的时候，写了上个小的子程序，看看Save用法的，没想到不对，报错如附件中所示，愿高手指点，奉上20金币酬谢。 上面个小程序，是输入一个数，求其的阶乘的程序， 我就只求为啥会报这个错，多谢。多谢。 [ Last edited by nono2009 on 2009-12-29 at 16:17 ] |
回复此楼» 猜你喜欢
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
申请科研项目纯靠实力能成功吗？
已经有7人回复
-
极限拉扯，如何抉择
已经有14人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有7人回复
3楼2009-12-27 19:54:45
dic213
木虫 (著名写手)
第三军团儿童团团长
- 应助: 0 (幼儿园)
- 金币: 1777.4
- 散金: 5
- 帖子: 2476
- 在线: 37.1小时
- 虫号: 42931
- 注册: 2004-04-03
- 性别: GG
- 专业: 计算数学
2楼2009-12-27 19:22:48
4楼2009-12-27 20:02:35
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
nono2009(金币+3,VIP+0):谢谢专家！辛苦了。 12-27 20:17
journalemu(金币+14,VIP+0):谢谢 12-29 12:28
nono2009(金币+3,VIP+0):谢谢专家！辛苦了。 12-27 20:17
journalemu(金币+14,VIP+0):谢谢 12-29 12:28
|
有两种修改方案： 第一： 把函数中fac中的 write(*,*) '***'去掉。因为主程序你用了一个 write(*,*) n,fac(n) 你这不是相当于把屏幕自己输在屏幕上嘛？函数仅仅返回一个值，不建议在函数中使用输出。 第二： 就是你把主程序修改一下，修改如下： 把write(*,*) n,fac(n) 修改为： t=fac(n) write(*,*) n,t 这样你函数的write(*,*)语句就不用去掉了。 这是一个挺隐蔽的错误，下次注意点。 |
5楼2009-12-27 20:11:24
200