8讲 枚举类型和子界类.pptVIP

递归调用： 1．递归的定义： Pascal语言中，如果在一个函数、过程等的定义或说明内部又直接或间接地出现有对自身的引用，则称它们是递归的或者是递归定义的。 例如：在数学上，所有偶数的集合可递归地定义为： 0是一个偶数； 一个偶数和2的和是一个偶数。 可见，仅需两句话就能定义一个由无穷多个元素组成的集合。 2．递归的实现： 通过函数或过程的调用来实现。 函数或过程直接调用其自身，称为直接递归；函数或过程间接调用其自身，称为间接递归。 3．几个例题： 【例15】：用递归计算n! n!可以由下列公式表示： program ex15; var n:integer; 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. 【例16】：用递归方法求两个数m和n的最大公约数（m0,n0）。 找出递归公式： program ex16; var m,n,g:integer; function gcd(m,n:integer):integer; var r:integer; begin r:=m mod n; if r=0 then gcd:=n else gcd:=gcd(n,r); end; begin read(m,n); g:=gcd(m,n); writeln(‘m=’,m,‘n=’,n,‘gcd=’,g) end. 【例17】：输入一串以‘！’结束的字符，按逆序输出。 program ex17; procedure rever; var c:char; begin read(c); if c‘!’ then rever; write(c); end; begin rever; end. 【例18】：计算下列函数的值。 输入x、k1和k2，输出递归计算函数f(x)和g(x)的过程。例如 输入 4 1 2 输出 f(4)g(3)f(2)g(1)f(0)=0g(1)f(2)g(3)f(4)=6 g(4)f(3)g(2)f(1)g(0)=0f(1)g(2)f(3)g(4)=6 program ex18; var x,k1,k2:integer; a:longint; function f(x:integer):longint; forward; function g(x:integer):longint; begin if x0 then begin write(’g(’,x,’)-’); g:=f(x-1)+k2; write(’g(’,x,’)-’); end else begin g:=0;write(’g(’,x,’)=’,0); end; end; 例19：有n个半径各不相同的圆盘，按半径从大到小，自下而上依次套在A柱上，另外还有B、C两根空柱。要求将A柱上的n个圆盘全部搬到C柱上去，每次只能搬动一个盘子，且必须始终保持每根柱子上是小盘在上，大盘在下。 分析：在移动盘子的过程当中发现要搬动n个盘子，必须先将n-1个盘子从A柱搬到B柱去，再将A柱上的最后一个盘子搬到C柱，最后从B柱上将n-1个盘子搬到C柱去。搬动n个盘子和搬动n-1个盘子时的方法是一样的，当盘子搬到只剩一个时，递归结束。 程序如下： var a,b,c,number:integer; procedure move(n,a,b,c:integer); begin ???? if n=1 then writeln(a,-,c) ???? else ???????? begin ????????????? move(n-1,a,c,b); ????????????? writeln(a,-,c); ????????????? move(n-1,b,a,c) ???????? end; end; begin ???? write(the number of dish:); ???? readln(number); ???? move(number,1,2,3); ???? readln end. 4.小结： 递归是算法设计中的一种重要方法，它的优势在于能用有限的语句来定义对象的无限集合。对于某些问题，用递归处理起来简单明了，程序结构清晰、精练，但是由于递归处理的过程需占用大量的机时和空间，因而程