作者weichich (木头着火)
看板Fortran
标题Re: [问题] 阶乘相加程式?
时间Thu Mar 31 21:32:40 2011
※ 引述《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)