| 查看: 2185 | 回复: 20 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
princeado金虫 (正式写手)
|
[求助]
大家帮我看一个fortran的程序，我总是计算不出正确的结果
|
||
|
最近刚学fortran，开始编小小程序试手，下面是我弄的一个程序，没有错误，但总是运行不出正确的结果，程序是想通过do循环对数组a进行赋值，用的是语句a(i)=jiecheng(i)，jiecheng是我自定义的函数，求每个数对应的阶乘。所有程序如下，哪位高手帮我看看问题在哪里。 program test01 implicit none integer :: i real :: a(5) real,external :: jiecheng do i=1,5 a(i)=jiecheng(i) end do write(*,*) a stop end function jiecheng(x) implicit none integer x real jiecheng integer :: ii=1 integer :: m=1 do ii=1,x m=m*ii end do jiecheng=m return stop end |
回复此楼» 猜你喜欢
土木水利328分求调剂
已经有5人回复
-
调剂
已经有3人回复
-
265求调剂
已经有10人回复
-
338求调剂，一志愿能源动力，外语是日语203
已经有4人回复
-
一志愿安徽大学0817化学工程与技术，求调剂
已经有13人回复
-
309求调剂
已经有12人回复
-
312求调剂
已经有7人回复
-
288求调剂 一志愿哈工大 材料与化工
已经有34人回复
-
一志愿a区211，085601-307分求调剂
已经有25人回复
-
求材料调剂，一志愿郑州大学289分
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 配置一台1万左右的计算机跑Fortran程序以及高斯的计算
已经有8人回复
- 求高人帮忙看一下我这个Fortran程序的错误出在哪里？
已经有12人回复
- 我编的Simpson积分法fortran程序给不出结果，大侠们看看哪里出了问题？
已经有4人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- 请问，我想用fortran计算统计中的p值以及95%信度空间
已经有4人回复
- 写了一个fortran90的小程序，编译通不过，请大侠帮忙
已经有59人回复
- 【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
- 【求助】同样一个问题用matlab和fortran编程计算，结果相差比较大，不知道为什么
已经有4人回复
- 【求助】请教如何在超算上运行fortran程序
已经有4人回复
- 【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙
已经有8人回复
- 【求助】Fortran的计算结果
已经有11人回复
- 【求助】FORTRAN中增加计算区域后出错，
已经有5人回复
- 【求助】求助个Fortran计算，应该不难，半天搞不定，请高手帮忙
已经有11人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
★ ★
余泽成(金币+2): 谢谢参与应助！ 2011-11-08 18:10:59
余泽成: 专家考核存档！ 2011-11-08 18:11:11
余泽成(金币+2): 谢谢参与应助！ 2011-11-08 18:10:59
余泽成: 专家考核存档！ 2011-11-08 18:11:11
|
区别在于 integer :: m m=1 中的 m是一个局变变量，不具有 SAVE 属性，每次调用该子程时，m 都会被重新赋值。 而 integer :: m=1 中的 m 虽然是一个局部变量，但具有 SAVE 属性，这里的 1 只是主程序初始化时的取值，在随后的执行中，它的值会是上一次该子程序执行结束时的值。 至于什么是 SAVE 属性，去查一下标准吧，我还真讲不清楚。大概的意思是，该变量的最值取值会被保留下来，直到主程序结束。 |
9楼2011-11-08 16:53:36
hhucy
实习版主 (著名写手)
DOE锅炉工
- 应助: 53 (初中生)
- 贵宾: 0.264
- 金币: 7775.6
- 散金: 1861
- 红花: 13
- 沙发: 7
- 帖子: 2588
- 在线: 1275.5小时
- 虫号: 1079650
- 注册: 2010-08-22
- 性别: GG
- 管辖: 能源
3楼2011-11-08 16:06:34
princeado
金虫 (正式写手)
- 应助: 4 (幼儿园)
- 金币: 2729.5
- 红花: 5
- 帖子: 874
- 在线: 868.6小时
- 虫号: 1031978
- 注册: 2010-05-30
- 性别: GG
- 专业: 水文、水资源
4楼2011-11-08 16:18:12
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
5楼2011-11-08 16:18:53
