以下程序执行后,输出的第一行是 (4) ,第二行是 (5) 。
PROGRAMmainIMPLICITNONEINTEGER::n
REAL::x,p
x=3.0; n=2
WRITE(,'("VALUE=",F6.2)')p(x,n)x=2.0; n=3
WRITE(,'("VALUE=",F6.2)')p(x,n)ENDPROGRAM main
!
RECURSIVEFUNCTIONp(x,n)RESULT(g)IMPLICITNONE
INTEGER::n
REAL::x,g
IF(n==0)THENg=1.0
ELSEIF(n==1)THENg=x
ELSE
g=((2n-1)xp(x,n-1)-(n-1)p(x,n-2))/nENDIF
ENDFUNCTIONp
【正确答案】(4)VALUE=1300
(5)VALUE=1700
【答案解析】