用vf编程：请分别把求阶乘的功能设计为子程序，过程，自定义函数，并在计算5!-3!+7!时进行调用？

Question

请分别把求阶乘的功能设计为子程序，过程，自定义函数，并在计算5!-3!+7!时进行调用？

Answer 1

函数方式：
set talk off
?sub(5)-sub(3)+sub(7)
set talk on
cancel

proc sub(n)
p=1
for j=1 to n
p=p*j
endfor
return p

子程序方式：
clear
set talk off
p=0
n=5
do sub
s=s+p
n=3
do sub
s=s-p
n=7
do sub
s=s+p
?s
cancel

*sub.prg
proc sub
p=1
for j=1 to n
p=p*j
endfor
return

Answer 2

set talk off
clear
z=(jc(9)+jc(3))*jc(5)/(jc(7)-jc(4))
?z
set talk on
cancel

func jc(x)
if x=1 or x=0
return 1
else
return x*jc(x-1)
endif
endfunc

Answer 3

自己看吧

参考资料：http://wenda.tianya.cn/wenda/thread?tid=287dc7d66128d700