error_2.prg

来自「刚才那个的补充」· PRG 代码 · 共 15 行

CLEAR
nResult=0
FORn=1 TO 10
	nResult=nResult+jcc(n-1)/jcc(n)
END
?nResult
***********以下部分为自定义函数
FUNCTION JC
	PARAMETERS  num		&&传递一个数值参数num，返回num的阶乘
	s=1
	FOR  n =1  TO  num
		s=s*n
	ENDFOR
RETURN  s