阶乘的算法,用一个循环就行了:program maininplicit noneinteger :: N !!! 阶乘的阶integer :: ireal*8 :: ss = 1.0d0do i= 1, n s = s * dble(i)end doend
S = 1Do i = 1 , N S = S * iEnd Do