test_prg.prg

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

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