每周回顾与作业（七）.doc

每周回顾与作业（七）_ 一、递归定义：pascal语言中，如果在一个函数、过程等定义内部又直接或间接地出现有对自身的引用，则称它们是递归的或者是递归定义的。在程序中，递归是通过函数或过程的调用来实现的。函数或过程直接调用其自身，称为直接递归；函数或过程间接调用其自身，称为间接递归。 procedure fac; begin . . . fac; . . end; 这种方式是直接调用. procedure fac; procedure abc; begin begin . . abc; fac; . . end; end; 这种方式是间接调用. 二、递归动作分解： 在调用过程或函数之前，系统需完成三件事： ⑴为被调用过程的局部变量分配存储区； ⑵将所有的实在参数、返回地址等信息传递给被调用过程保存； ⑶将控制转移到被调过程的入口 从被调用过程返回调用过程之前，系统也应完成三件工作： ⑴保存被调过程的计算结果； ⑵释放被调过程的数据区； ⑶依照被调过程保存的返回地址将控制转移到调用过程 三、递归条件 如何设计递归算法? 1.确定递归公式 2.确定边界(终了)条件 四：递归的优点：长处是，它能使一个蕴含递归关系且结构复杂的程序简介精炼，增加可读性。 特别是在难于找到从边界到解的全过程的情况下，如果把问题推进一步,其结果仍维持原问题的关系，则采用递归算法编程比较合适。 递归的缺点：递归算法的效率往往很低，费时和费内存空间。 例1：计算n! program hs_exam1; var n:integer; function fac(a:integer):longint; var k:integer; t:longint; begin t:=1; for k:=2 to a do t:=t*k; fac:=t; end; begin read(n) write(fac(n)); end. program hs_exam1； var n:integer； function fac(a：integer)：longint； begin if a=0 then fac:=1 else fac:=a*fac(a-1)； end； begin read(n) write(fac(n)); end． 例2：输入一串以‘!’结束的字符，按逆序输出。 program p4(input，output)； procedure rever； var c：char； begin read(c)； if c! then rever; write(c)； end； begin {主程序} rever； end． 运行： 输入 hey! 输出 !yeh 例3：用递归方法求两个正整数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． 例4：用递归算法把任一给定的十进制正整数（=32000）转换成八进制数输出 利用短除法不断除以8取余数这个重复过程，将原数据不断缩小，形成递归关系，当数据规模缩小至0时，递归结束。 procedure tran(n:longint); {递归过程} var k:longint; begin k:=n mod 8; {取除以8以后的余数} n:=n div 8; {取除以8以后的商} if n0 then tran(n); {直到商为0，结束递归过程} write(k:1) end; 例5 ：0，1，1，2，3，5，8，13，21，34，55……从第三项起，每一项都是紧挨着的前两项的和。写出计算斐波那切数列的任意一个数据项递归函数形式。 function fic(m：integer)：longint； begin if m=1 then fic:=0 el