| 查看: 1100 | 回复: 6 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】fortran阶乘命令是什么呢？
|
|||
|
fortran阶乘命令是什么呢？ 知道的大侠请说下，谢谢！ |
回复此楼» 猜你喜欢
各位老师好，我的一志愿为北京科技大学085601材料专硕
已经有8人回复
-
求调剂，一志愿 南京航空航天大学 ，080500材料科学与工程学硕，总分289分
已经有4人回复
-
279求调剂
已经有4人回复
-
求调剂一志愿武汉理工大学材料工程（085601）
已经有8人回复
-
297求调剂
已经有7人回复
-
343求调剂
已经有3人回复
-
085600，专业课化工原理，321分求调剂
已经有5人回复
-
311求调剂
已经有5人回复
-
南京大学化学调剂
已经有6人回复
-
一志愿华东师范大学有机化学专业，初试351分，复试被刷求调剂!
已经有4人回复
7楼2009-10-08 16:32:16
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2009-10-08 14:29:29
jjdg
版主 (知名作家)
- 程序强帖: 9
- 应助: 223 (大学生)
- 贵宾: 3.926
- 金币: 51005.2
- 红花: 238
- 帖子: 7227
- 在线: 474.2小时
- 虫号: 27000
- 注册: 2003-10-21
- 专业: 药物代谢与药物动力学
- 管辖: 程序语言
5楼2009-10-08 15:33:12
jjdg
版主 (知名作家)
- 程序强帖: 9
- 应助: 223 (大学生)
- 贵宾: 3.926
- 金币: 51005.2
- 红花: 238
- 帖子: 7227
- 在线: 474.2小时
- 虫号: 27000
- 注册: 2003-10-21
- 专业: 药物代谢与药物动力学
- 管辖: 程序语言
★
yudf65(金币+1,VIP+0): 10-8 20:34
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
