24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 251  |  回复: 1

自由神

木虫 (正式写手)

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

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

[ Last edited by 余泽成 on 2010-8-15 at 13:09 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)


余泽成(金币+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

2楼2010-08-15 09:29:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 自由神 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085600 295分求调剂 +16 W55j 2026-03-30 20/1000 2026-04-02 22:22 by chran16
[考研] 315分 085602 求调剂 +10 26考研上岸版26 2026-04-02 10/500 2026-04-02 20:45 by dongzh2009
[考研] 319求调剂 +16 太容易1018 2026-04-01 16/800 2026-04-02 20:12 by seattle40
[考研] 318求调剂 +3 笃行致远. 2026-03-31 4/200 2026-04-02 15:56 by Jaylen.
[考博] 材料工程专业硕士申博 +3 麟正宇 2026-03-30 3/150 2026-04-02 15:04 by greychen00
[考研] 290求调剂085701 +3 1314捧花 2026-04-02 3/150 2026-04-02 13:34 by Ecowxq666!
[考研] 一志愿南师大0703化学 275求调剂 +6 Ripcord上岸 2026-03-27 6/300 2026-04-02 11:19 by TTTpp
[考研] 272求调剂,接受跨专业调剂! +4 闲鱼卢 2026-03-31 4/200 2026-04-02 11:18 by guyan1000
[考研] 各位老师好,我的一志愿为北京科技大学085601材料专硕 +13 Koxui 2026-03-28 13/650 2026-04-02 09:35 by 哒哒哒呱呱呱
[考研] 材料调剂 +12 一样YWY 2026-04-01 12/600 2026-04-02 00:21 by 百秒光年
[考研] 070300一志愿211,312分求调剂院校 +14 小黄鸭宝 2026-03-30 14/700 2026-04-01 20:19 by 赖春艳
[考研] 生物与医药考研调剂 +5 铁憨憨123425 2026-03-31 5/250 2026-04-01 18:01 by syh9288
[考研] 一志愿 南京航空航天大学 ,080500材料科学与工程学硕 +7 @taotao 2026-03-30 7/350 2026-04-01 14:30 by chenqifeng666
[考研] 环境工程调剂 +9 hyzzzzzzz. 2026-04-01 9/450 2026-04-01 14:20 by salamander`
[考研] 262求调剂 +9 励志一定发文章 2026-03-31 10/500 2026-04-01 12:22 by sunshine0013
[考研] 070300化学354求调剂 +15 101次希望 2026-03-28 15/750 2026-03-31 17:58 by jp9609
[考研] 南京大学化学调剂 +11 景随风 2026-03-29 16/800 2026-03-31 10:14 by herarysara
[考研] 本科211总分289,08工学真心求调剂 +3 utopiaE 2026-03-30 3/150 2026-03-30 23:42 by ms629
[考研] 295求调剂 +5 1428151015 2026-03-27 6/300 2026-03-28 04:04 by fmesaito
[考研] 265求调剂 +8 小木虫085600 2026-03-27 8/400 2026-03-27 22:16 by 无际的草原
信息提示
请填处理意见