版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

当前主题已经存档。

yudf65

金虫 (正式写手)

应助: 1 (幼儿园)
金币: 1290.3
帖子: 940
在线: 214.1小时
虫号: 731618
注册: 2009-03-26
专业: 环境变化与预测

[交流] 【求助】fortran阶乘命令是什么呢？

fortran阶乘命令是什么呢？
知道的大侠请说下，谢谢！

回复此楼

» 猜你喜欢

参与限项已经有3人回复
假如你的研究生提出不合理要求已经有7人回复
实验室接单子已经有4人回复
全日制（定向）博士已经有4人回复
对氯苯硼酸纯化已经有3人回复
求助:我三月中下旬出站，青基依托单位怎么办？已经有12人回复
不自信的我已经有12人回复
所感已经有4人回复
要不要辞职读博？已经有7人回复
北核录用已经有3人回复

为什么我的眼里满含泪水？因为我对这土地爱的深沉

1楼 2009-10-07 21:52:46

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

wolf3769

木虫 (著名写手)

应助: 0 (幼儿园)
金币: 1663.7
红花: 3
帖子: 1531
在线: 82.9小时
虫号: 711496
注册: 2009-02-28
专业: 战略管理

★
nono2009(金币-1,VIP+0):请不要在此灌水！谢谢！ 10-8 07:22

顶一个

回复此楼

2楼2009-10-08 00:38:02

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

黄胖胖

木虫 (正式写手)

应助: 0 (幼儿园)
金币: 4895.8
帖子: 412
在线: 77.3小时
虫号: 316449
注册: 2007-03-03
专业: 数值预报与数值模拟

★
yudf65(金币+1,VIP+0): 10-8 20:33

IMSL函数库中有

回复此楼

3楼2009-10-08 11:27:19

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

除非库的支持，一般这种简单的，可以自己写个嘛，也不难，呵呵……

赞一下

回复此楼

4楼2009-10-08 14:29:29

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

jjdg

版主 (知名作家)

程序强帖: 9
应助: 223 (大学生)
贵宾: 3.926
金币: 51003.4
红花: 238
帖子: 7227
在线: 474.2小时
虫号: 27000
注册: 2003-10-21
专业: 药物代谢与药物动力学
管辖: 程序语言

★
余泽成(金币+1,VIP+0):支持讨论，欢迎常来程序软件版！ 10-8 16:39

已经有人贴出来了直接转：
FORTRAN求阶乘的代码

FORTRAN
2009-10-08 14:00
阅读1
评论0
字号：大大

program main
implicit none
integer ans,i
ans=1
do,i=1,10
  ans=ans*i
end do
write(*,*) ans

赞一下(6人)

回复此楼

努力学习！以正当途径！获得需要的知识！

5楼2009-10-08 15:33:12

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

jjdg

版主 (知名作家)

程序强帖: 9
应助: 223 (大学生)
贵宾: 3.926
金币: 51003.4
红花: 238
帖子: 7227
在线: 474.2小时
虫号: 27000
注册: 2003-10-21
专业: 药物代谢与药物动力学
管辖: 程序语言

★
yudf65(金币+1,VIP+0): 10-8 20:34

或者参考下面的：

下面的程序中FUN是一个求阶乘的函数，每次调用此函数时，把最后一项乘数放在变量N0中，把阶乘的值放在变量F中。当下次调用此函数时，如果最后一项乘数大于等于上次最后一项，则不必再从头开始进行连乘运算，只需把上次的函数值再乘以N0+1、N0+2、…、N即可。

   PROGRAM MAIN
   WRITE(*,*)
   WRITE(*,*) 'Enter N:'
   READ(*,*) N
   DO 10 WHILE(N.GE.0)
      WRITE(*,'(1X,A,F7.1)')'FUN=',FUN(N)
      WRITE(*,*)'Enter N:'
      READ(*,*) N
10  CONTINUE
   END

   FUNCTION FUN(N)
   SAVE N0,F
   DATA N0/0/,F/1/
   IF(N.LT.0)THEN
   WRITE(*,*) 'Data error!!'
   FUN=-1
   RETURN
   ELSE IF(N.LE.N0)THEN
   F=1
   N0=1
   END IF
   DO 10 I=N0+1,N
   F=F*I
10  CONTINUE
   FUN=F
   N0=N
   END

详见：http://lj1982002.blog.163.com/blog/static/5339430320094237533873/

赞一下

回复此楼

努力学习！以正当途径！获得需要的知识！

6楼2009-10-08 15:35:50

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

yudf65

金虫 (正式写手)

应助: 1 (幼儿园)
金币: 1290.3
帖子: 940
在线: 214.1小时
虫号: 731618
注册: 2009-03-26
专业: 环境变化与预测

引用回帖:

Originally posted by jjdg at 2009-10-8 15:33:
已经有人贴出来了直接转：
FORTRAN求阶乘的代码

FORTRAN
2009-10-08 14:00
阅读1
评论0
字号：大大

program main
implicit none
integer ans,i
ans=1
do,i=1,10
  ans=ans*i
end ...

哈哈哈，那个就是我的blog，胡辣汤，我下午自己编了一个，我想应该有函数的，到下午没有找到，就自己编了一个，do循环，很简单

赞一下

回复此楼

为什么我的眼里满含泪水？因为我对这土地爱的深沉

7楼2009-10-08 16:32:16

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 yudf65 的主题更新

返回列表