24小时热门版块排行榜    

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

自由神

木虫 (正式写手)

[交流] 【求助】求人帮忙

帮忙编个 Fortran程序
http://d.namipan.com/d/a86c65687 ... 08bcb45c51900420000

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

snoopyzhao

至尊木虫 (职业作家)


nono2009(金币+1):鼓励应助。 2010-08-16 08:20:35
自由神(金币+10):非常感谢于百忙中帮忙 2010-08-17 11:30:45
CODE:
C234567
      PROGRAM TEST
      IMPLICIT NONE
      INTEGER I, M, J, K, FACT
      REAL A, SUM
      WRITE(*,*) 'PLEASE INPUT I, M, A'
      READ(*,*) I, M, A
      SUM = 0.0
      DO 20 J=1, I
        DO 10 K=1, M
          SUM = SUM+(J+K)**2*J**(J+K-1)*A**K*(1-A)**J/(FACT(J)*FACT(K))
10       CONTINUE
20    CONTINUE
      WRITE(*,*) SUM
      END
      INTEGER FUNCTION FACT(I)
      IMPLICIT NONE
      INTEGER I, J
      FACT = 1
      DO 10 J=1,I
        FACT = FACT*J
10    CONTINUE
      END

2楼2010-08-15 22:50:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 自由神 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 环境285分,过六级,求调剂 +7 xhr12 2026-04-02 7/350 2026-04-02 22:45 by chran16
[考研] 一志愿郑州大学材料与化工085600,求调剂 +8 吃的不少 2026-04-02 8/400 2026-04-02 22:28 by 今天星期八LQ
[考研] 085600 295分求调剂 +16 W55j 2026-03-30 20/1000 2026-04-02 22:22 by chran16
[考研] 求调剂22408 288分 +4 new382 2026-04-02 4/200 2026-04-02 16:07 by 氮气气气
[考研] 286分调剂 +20 Faune 2026-03-30 22/1100 2026-04-02 13:24 by clyblh
[考研] 材料化工340求调剂 +5 jhx777 2026-03-30 5/250 2026-04-02 12:45 by smileboy2006
[考研] 一志愿厦门大学材料工程专硕354找调剂!!! +7 贝呗钡钡 2026-03-30 7/350 2026-04-02 12:19 by 1753564080
[考研] 0710生物学336分求调剂 +3 kiyy 2026-04-01 3/150 2026-04-02 10:54 by w虫虫123
[考研] 0710生物学求调剂 +9 manman511 2026-04-01 9/450 2026-04-02 10:00 by zxl830724
[考研] 0817化工学硕调剂 +11 努力上岸中! 2026-03-31 11/550 2026-04-01 20:30 by 赖春艳
[考研] 309求调剂 +19 谁不是少年 2026-03-29 19/950 2026-04-01 15:47 by jp9609
[考研] 一志愿 南京航空航天大学 ,080500材料科学与工程学硕 +7 @taotao 2026-03-30 7/350 2026-04-01 14:30 by chenqifeng666
[考研] 318求调剂 +10 陈晨79 2026-03-30 10/500 2026-03-31 17:37 by 544594351
[考研] 315求调剂 +6 akie... 2026-03-28 7/350 2026-03-31 16:48 by asdfzly
[考研] 340求调剂 +4 希望如此i 2026-03-31 4/200 2026-03-31 16:40 by 690616278
[考研] 求收留 +8 1943443204 2026-03-28 8/400 2026-03-31 15:00 by -迷了路啊路
[考研] 266求调剂 +3 哇呼哼呼哼 2026-03-29 3/150 2026-03-31 10:06 by cal0306
[考研] 328求调剂 +8 嗯滴的基本都 2026-03-27 8/400 2026-03-30 17:20 by Wang200018
[考研] 0703 化学 求调剂,一志愿山东大学 342 分 +7 Shern—- 2026-03-28 7/350 2026-03-30 16:31 by nothing投稿中
[考研] 085600,专业课化工原理,321分求调剂 +5 大馋小子 2026-03-28 5/250 2026-03-29 08:56 by qingfeng258
信息提示
请填处理意见