FORTRAN用DO LOOP怎样求他的乘数,就好像S=1*2*3。。。N,

2025-04-10 13:28:43
推荐回答(2个)
回答(1):

阶乘的算法,用一个循环就行了:
program main
inplicit none
integer :: N !!! 阶乘的阶
integer :: i
real*8 :: s
s = 1.0d0
do i= 1, n
s = s * dble(i)
end do
end

回答(2):

S = 1
Do i = 1 , N

S = S * i
End Do