END PROGRAM EXAM
RECURSZVE FUNCTION XN(N0 RESULT(RES) INTEGER ,INTENT(IN)::N REAL::RES IF(N=0)THEN RES=1 ELSE
RES=I*N(N-1)
EDN IF END FUNCTION XN 输入N的值为3
I的3次方为8.000000
(3)PROGRAM EXAM IMPLICIT NONE INTERFACE
RECURSZVE FUN(TON) P(X,N) RESUIT(RES) REAL,INTENT(IN)::N INTEGER,INTENT(IN)::N REAL::RES
END FUNCTION END INTERFACE REAL::X INTEGER::N REAO*,N
PRINT*,P(X,N)
END PROGRAM EXAM
RECURSZVE FUNCTION PX,N) RESULT(RES) REAL,INTENT(2N)::X INTEGER, INTENT(IN)::N REAL::RES IF(N==0)THEN RES=1 ELSE
IF(N==1) THEN RES+X ELSE
RES=((2*N-1)*X*P(X,N-1)-(N-1)*P(X,N-2))/N EDN IF EDN IF
EDN FUNCTION P 输入N的值：2，
输出：17.000000