CLEAR
?space(5),"数列值",space(5), "项数"
FOR I=1 TO 500
S=FIB(I)
IF S>1000 AND SU(S)
EXIT
ENDIF
?s,i
ENDFOR
?"数列中第一个大于1000的素数项是:"+ALLT(STR(S))+",它是数列的第"+ALLT(STR(I))+"项"
FUNCTION SU(N)
Y=INT(SQRT(N))
FOR B=2 TO Y
IF MOD(N,B)=0
EXIT
ENDIF
ENDFOR
ENDFUN
FUNCTION FIB(M)
IF M=1
RETURN 1
ENDIF
IF M=2
RETURN 1
ENDIF
IF M<>1 AND M<>2
RETURN FIB(M-1)+FIB(M-2)
ENDIF
ENDFUN
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024