子程序的嵌套解读.ppt

* 3.递归调用： ①递归的定义： Pascal语言中，如果在一个函数、过程等的定义或说明内部又直接或间接地出现有对自身的引用，则称它们是递归的或者是递归定义的。 ②递归的实现： 通过函数或过程的调用来实现。 函数或过程直接调用其自身，称为直接递归；函数或过程间接调用其自身，称为间接递归。 使用递归求解问题，通常可以将一个比较大的问题层层转化为一个与原问题相类似的、规模较小的问题进行求解，最终达到对原问题的求解。 ③几个例题： 【例14】：用递归计算n! n!可以由下面公式表示： n! 1 n=0 n(n-1)! n0 var n,s:integer; function fac(a:integer):integer; begin if a=0 then fac:=1 else fac:=a*fac(a-1); end; begin readln(n); s:=fac(n); writeln(n,‘!=’,s) end. …… fac(5)=5* …… fac(5)=5* fac(4)=4* fac(3)=3* …… fac(5)=5* fac(4)=4* …… fac(5)=5* fac(4)=4* fac(3)=3* fac(2)=2* fac(5)=5* fac(4)=4* fac(3)=3* fac(2)=2* fac(1)=1* fac(5)=5* fac(4)=4* fac(3)=3* fac(2)=2* fac(0)=1 fac(1)=1* 栈 Program lx1; Var a,p:integer; Function fun (n:integer):integer; Begin If n=0 then fun=0 Else if n0 then fun:=fun(n-2)+2 Else fun:=fun(n+3)+3 End; Begin Read (a) P:=fun(a); Write(p);end. 读入5,输出: *