Question

vfp编制一个子程序，其功能是计算A！+B！/C！

Answer 1

CLEAR
SET TALK OFF 
a=2
b=2
c=0
? fact(a)+fact(b)/fact(c)
RETURN


FUNCTION fact(n)
PRIVATE i,t
IF n=0
	RETURN(1)
ENDIF 	 
t=1
FOR i=1 to n
	t=t*i
NEXT i
RETURN(t)
 	

追问

编的子程序是计算阶乘的，怎么用子程序嵌套编一个计算程序？

追答

clear
? f(2,3,4)
return

function f(a,b,c)
private t
t=fact(a)+fact(b)/fact(c)
RETURN(t)

FUNCTION fact(n)
PRIVATE i,t
IF n=0
RETURN(1)
ENDIF
t=1
FOR i=1 to n
t=t*i
NEXT i
RETURN(t)