為什麼這篇階乘相加鄉民發文收入到精華區：因為在階乘相加這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者weichich (木頭著火)看板Fortran標題Re: [問題] 階乘相加程式?時間Thu ...
階乘相加 在 如履的電影筆記 Instagram 的最讚貼文
2020-05-03 21:48:24
《#陰櫥》身為父母最擔心害怕的事情 (7.8/10) ⠀ #主頁部落格有圖文好讀版 @looryfilmnotes ⠀ 《陰櫥》是一部韓國恐怖驚悚電影，由金光彬執導，河正宇、金南佶、金詩雅、許律主演，劇情講述尚元在妻子意外過世後，因為跟女兒伊娜關係越來越疏遠，決定帶著她搬到鄉下修復彼此的關係，不過隨...
※ 引述《asmalljulie (chu)》之銘言：
: 我是新手~~~
: 在想階乘怎相加呢?
: 像是1/1!+1/2!+1/3!+1/4!+1/5!=
: 這樣要如何寫程式呢?
可以使用兩個迴圈累加
內層迴圈→即為階層倒數計算
外層迴圈→則是累加計算
附上程式給你參考
也可以使用一個迴圈計算(一層do loop)
至於怎麼寫自己動動腦唄~~
====================程式碼分隔線====================
PROGRAM TEST
IMPLICIT NONE
INTEGER :: I,J
REAL(8) :: STEP,TEMP
DO I=1,5,1
STEP=1.D0
DO J=1,I,1
STEP=STEP/J
ENDDO
WRITE(*,'(A,I1,A,F12.5)') "1/",I,"!=" , STEP
TEMP=TEMP+STEP
ENDDO
WRITE(*,'(A,F12.5)')"Total=",TEMP
END PROGRAM
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.155.90
※ 編輯: weichich 來自: 140.116.155.90 (03/31 21:35)