[计算机软件及应用]2008递归.pptVIP

可见，仅需两句话就能定义一个由无穷多个元素组成的集合。在程序中，递归是通过函数或过程的调用来实现的。函数或过程直接调用其自身，称为直接递归；函数或过程间接调用其自身，称为间接递归。 例1、递归计算N！ 在调用过程或函数之前，系统需完成三件事： ⑴为被调用过程的局部变量分配存储区； ⑵将所有的实在参数、返回地址等信息传递给被调用过程保存； ⑶将控制转移到被调过程的入口。 从被调用过程返回调用过程之前，系统也应完成三 件工作： ⑴保存被调过程的计算结果； ⑵释放被调过程的数据区； ⑶依照被调过程保存的返回地址将控制转移到调用过程。 例2、用递归方法求两个正整数m和n的最大公约数。 var m,n：longint ； function gcd(m,n：longint)：longint； begin if m mod n=0 then gcd :=n else gcd:=gcd(n, m mod n)；｛递归调用｝ end； begin { 主程序 } read (m,n)； writeln (‘m=’,m ,’n=’,n ,’gcd=’, gcd( m,n) )； end． 例3、用递归算法完成折半查找。 function search(x,top,bot:integer):Integer; var mid: integer; begin if top=bot then begin mid:=(top+bot) div 2; if x=a[mid] then search:=mid else if xa[mid] then search:=search(x,top,mid-1) else search:=search(x,mid+1,bot) end else search:=-1; end; 例4、由m个A，n个B组成若干个排列。从某个排列 的位置1开始数，数到任意位置时都能保证A的个数 不少于B的个数，则称该排列为合理排列。例如： 当m=2，n=2时排列有 A A B B(合理) A B A B(合 理)A B B A(不合理) B B A A(不合理) 合理排列数有2 种 输入：只有一行两个整数m,n（1≤n≤m≤12）（用 空格分隔） 输出：一个整数（所有的合理排列数） 【样例】 输入 输出 3 2 5 分析：模拟排队的情况，从第1个人开始，第1 人只能是A，第2个可以是A也可以是B，再其后的人要保证任意位置时都能保证A的个数不少于B的个数，递归生成整个排列。 Var m,n,t:LongInt; Procedure pd(i,j:LongInt); Begin If (i=m) And (j=n) Then t:=t+1{已生成一种排列} Else Begin If im Then pd(i+1,j);{增加1个A} If (jn) And (ji) Then pd(i,j+1); End; {增加1个B} End; Begin t:=0; Read(m,n);pd(1,0);Writeln(t); End. Var A:Array[0..100] Of Integer; N,T:Integer; Procedure Find(N,I:Integer); Var J:Integer; Begin For J:=1 To N Do If (J=A[I-1]) Then Begin A[I]:=J; If N=J Then T:=T+1 Else Find(N-J,I+1); End; End; Begin Read(N); T:=0; A[0]:=0; Find(N,1); Writeln(T); End. var n：integer； procedure hanoi(n:integer;x,y,z：char)； begin 　if n=1 then