test_proc.prg

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

********自定义函数JC()用于计算阶乘
FUNCTION jc
PARAMETERS  num		&&传递一个数值参数num，返回num的阶乘
s=1
FOR  n =1  TO  num
	s=s*n
ENDFOR
RETURN  s
********自定义函数LJH()用于计算累加和
FUNCTION ljh
PARAMETERS  num		&&传递一个数值参数num，返回num的累加和
s=0
FOR  n =1  TO  num
	s=s+n
ENDFOR
RETURN  s