24小时热门版块排行榜

返回列表

自由神

木虫 (正式写手)

应助: 3 (幼儿园)
金币: 980.9
红花: 1
帖子: 319
在线: 108.4小时
虫号: 267872
注册: 2006-07-23
性别: GG
专业: 高分子物理与高分子物理化

[交流] 【求助】求助简单程序

任意简单阶乘运算的程序，fortran编写，只要能看懂就行，本人还没入门，会读不会写，想学习一下

[ Last edited by 余泽成 on 2010-8-15 at 13:09 ]

回复此楼

» 猜你喜欢

“人文社科而论，许多学术研究还没有达到民国时期的水平” 已经有4人回复
过年走亲戚时感受到了所开私家车的鄙视链已经有11人回复
什么是人一生最重要的？已经有4人回复
版面费该交吗已经有3人回复
今年春晚有几个节目很不错，点赞！已经有12人回复
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低已经有12人回复
基金正文30页指的是报告正文还是整个申请书已经有5人回复

» 本主题相关价值贴推荐，对您同样有帮助:

1楼 2010-08-14 22:05:50

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

snoopyzhao

至尊木虫 (职业作家)

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

★
余泽成(金币+1):辛苦了！暑假愉快！ 2010-08-15 13:10:11
自由神(金币+5): 2010-08-15 20:55:44

输入一个数，然后计算该数的阶乘……

CODE:

      PROGRAM MAIN

      IMPLICIT NONE

      INTEGER ANS,I,J

      WRITE(*,*) 'PLEASE INPUT THE NUMBER'

      READ(*,*) J

      ANS=1

      DO 10 I=1,J

        ANS=ANS*I

   10 CONTINUE

      WRITE(*,*) ANS

      END

赞一下(1人)

回复此楼

2楼2010-08-15 09:29:14

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

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

返回列表