您所在位置：主题：[讨论]求阶乘之和但是不知道哪里出错
tianhy2010
[专家分：60] 发布于 2010-01-29 21:46:00
这是书上的程序，i=k,m,求i得阶乘之和，出错原因可能是p的值在中间发生了改变，但是不知道怎么改正。或许有其他错。请大家帮忙看下
PROGRAM EX
IMPLICIT NONE
INTEGER :: K,M,I
integer:: S,P
READ*,K,M
S=0
DO I=K,M
CALL JX(I,P)
S=S+P
ENDDO
PRINT *,S
CONTAINS
SUBROUTINE JX(N,P)
INTEGER :: N,P,t
P=1
DO I=1,N
P=P*I
ENDDO
END SUBROUTINE
END PROGRAM EX
