| 查看: 2869 | 回复: 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 |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有13人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有10人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有10人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有12人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有11人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有9人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有11人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有11人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有8人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 配置一台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人回复
princeado
金虫 (正式写手)
- 应助: 4 (幼儿园)
- 金币: 2729.5
- 红花: 5
- 帖子: 874
- 在线: 868.6小时
- 虫号: 1031978
- 注册: 2010-05-30
- 性别: GG
- 专业: 水文、水资源
8楼2011-11-08 16:39:47
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
