第五章 递归程序设计.pptVIP

第五章 递归程序设计 1.递归的概念 一个对象部分地由自己组成或按它自己定义的则称为递归的。递归在自然界是经常要遇到的。在数学定义中，递归更是十分有用的工具。同样，在程序设计中使用递归也十分重要。 一个函数过程或者数据结构，如果在它们定义的内部又出现定义本身的应用，则称它们是递归的或者称为递归定义的。 一般，一个递归程序可以表示为基语句S（不包含P）和P自身的组合 ，即 若程序P包含着对自己的引用，则称它为是直接递归的；若P包含着对另一程序Q的引用，而Q又直接或间接地引用P，则称为是间接递归的。 递归算法的准确表示为 其中B是递归调用受限条件，所以，递归同样要考虑终止问题。 int fact(int n) { if (n==0) return 1; else return n*fact(n-1); } 例1 计算阶乘的函数 阶乘的计算公式为 我们可方便的表示成如下递归函数或过程： 1）函数 program A51 (IMPUT,OUTPUT); var I : INTEGER; function FACT (N : INTEGER) : INTEGER; begin if N=0 then FACT : =1 else FACT : =N*FACT(N-1); end; begin READ(I); WRITELN(FACT(I)); end. 2）过程 program A52 (IMPUT,OUTPUT); var I,J : INTEGER; procedure FACT (N : INTEGER; var R : INTEGER); var W : INTEGER; begin if N=0 then R : =1 else begin FACT(N-1,W); R : =N*W end end; begin READ(I); FACT(I,J); WRITELN(J) end. 以上函数或过程都调用本身，所以是递归定义的。 例2 计算Fibonacci数列0，1，1，2，3，5，8，…… 该数列的计算公式为 用函数，则可以写成 program A53 (INPUT,OUTPUT); var I : INTEGER; function F(N : INTEGER) : INTEGER; begin if N=1 then F : =0 else if N=2 then F : =1 else F : =F(N-1)+F(N-2) end; begin READ(I); WRITERLN(F(I)); end. 一般来说，递归从编程序来看是比较直观、精炼、逻辑又清楚，又逼近数学公式的表示，所以编起来比较方便，读起来容易，但是，大多数程序实现时，效率比较低。对每一次的过程或函数的调用，都必须进行参数替换、环境保护等。另外，还要进行很多重复的大量计算。 在例2中，我们可以看到，对于n1，每调用一次要引起两个新的调用。因此，调用的总次数按指数增长。当n=5时，如图5.1所示，共需调用14次，这就大大降低了递归的执行效率 2. 递归与迭代程序 从效率来看，递归不一定可取。例如，为使程序效率提高，或者使用的计算机速度不快时，我们常用递推程序来代替递归程序。而像FORTRAN语言本身就限止使用递归程序。 对于n!，我们又有程序 program A54 (INPUT,OUTPUT); var I : INTEGER; function FACT(P : INTEGER) : INTEGER; var I,F : INTEGER; begin F : =1 for I : =1 to P do F : =F*Ｉ; FACT : =F end; begin READ(I); WRITERLN(F(I)) end. 对于Fibonacci数列，可表示成 program A55 (INPUT,OUTPUT); var I : INTEGER; function F(N : INTEGER) : INTEGER; var P,L,T,I : INTEGER; begin if N=1 then F : =0 else if N=2 then F : =1 else begin L : =0; T ：=1； for I : =3 to