24小时热门版块排行榜

返回列表

自由神

木虫 (正式写手)

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

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

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

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

回复此楼

» 猜你喜欢

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

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

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的回帖

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

返回列表