| 查看: 1972 | 回复: 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 |
回复此楼» 猜你喜欢
孩子确诊有中度注意力缺陷
已经有12人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
-
2026博士申请-功能高分子，水凝胶方向
已经有6人回复
-
论文投稿，期刊推荐
已经有4人回复
-
硕士和导师闹得不愉快
已经有13人回复
-
请问2026国家基金面上项目会启动申2停1吗
已经有5人回复
-
同一篇文章，用不同账号投稿对编辑决定是否送审有没有影响？
已经有3人回复
huruiusst
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 2687.3
- 帖子: 67
- 在线: 115.8小时
- 虫号: 1103368
- 注册: 2010-09-19
- 性别: GG
- 专业: 传热传质学
12楼2011-11-08 18:13:55
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