24小时热门版块排行榜

返回列表

自由神

木虫 (正式写手)

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

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

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

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

回复此楼

» 猜你喜欢

评审有感已经有31人回复
提交了我也来说说感想已经有12人回复
青B发送上会通知了吗已经有9人回复
西安交大新媒学院副院长用撤稿论文结题已经有6人回复
论文撤稿了已经有8人回复
博士申请已经有7人回复
化学专业申博已经有4人回复
河北省自然科学基金已经有9人回复
某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！已经有5人回复
26/27申博自荐已经有9人回复

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

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

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

返回列表