Re: [問題] 階乘相加程式?
※ 引述《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)
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
