子程序的递归与嵌套.pptVIP

子程序的嵌套与递归;1、复习函数与过程——子程序;【例1】：输入一个正整数，如果是回文素数则输出“Yes”，否则输出“No”;注意： 1）内、外层子程序不得相互交叉，内层必须完全嵌套在外层之中； 2）一般情况下，在子程序内部需要使用的变量应在子程序的内部进行定义。外层子程序不能访问内层子程序所定义的变量。;function fac(k:integer):longint; var i:integer; t:real; begin t:=1; for i:=2 to k do t:=t*i; fac:=t; end; function cnm(n,m:integer):real; begin cnm:=fac(n)/(fac(m)*fac(n-m)); end;;【例3】：求组合数（ ）/7！ 的和。;3.递归调用： ①递归的定义： Pascal语言中，如果在一个函数、过程等的定义或说明内部又直接或间接地出现有对自身的引用，则称它们是递归的或者是递归定义的。 例如：在数学上，所有偶数的集合可递归地定义为： 0是一个偶数； 一个偶数和2的和是一个偶数。 可见，仅需两句话就能定义一个由无穷多个元素组成的集合。 ②递归的实现： 通过函数或过程的调用来实现。 函数或过程直接调用其自身，称为直接递归；函数或过程间接调用其自身，称为间接递归。;递归应用 ;程序如下： Program ex5; Function num(x:integer):integer; //采用函数编写 begin if x=5 then num:=10 //递归边界 else num:=num(x+1) +2; //递归式 end; BEGIN writeln(The Num is ,num(1)); END.;课堂练习1、program lx1(input,output); var s,n:integer; function f(n:integer):integer; ?begin ? if n=1 then f:=1 else f:=n*n+f(n-1) ?end; begin ?write(‘input n:’);readln(n);s:=f(n);writeln(‘f(’,n,‘)=’,s) end. 该程序的功能是：　　　　　　　。当n的值为６时，程序的运行结果是：　　　　　　　 ;②在处理子问题时，如果又调用原问题的处理子程序，但形参值应是不断改变的量(表达式);;如何设计递归算法？; n!;栈;递归过程;分析;分析;参考程序：;执行过程分析;递归结构的优点：结构清晰、容易阅读和理解。 递归结构的缺点：需要保留每次递归调用时的参数和局部变 量，占用内存大，耗费机时多，程序运行 的效率较低 。 递归算法的实用情况： 1.符合递归的描述：需要解决的问题可以化为子问题求解， 而子问题求解的方法与原问题相同，只 是数量增大或减少。 2.递归调用的次数是有限的。 3.必须有递归结束的条件。;例9、汉诺塔问题 ;var a,b,c,number:integer; procedure move(n: integer;a,b,c:char); 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,’A’,’B’,’C’); end.;【例10】求找出具有下列性质的数的个数(包含输入的自然数n)： 先输入一个自然数n(n=500),然后对此自然数按照如下方法进行处理: ①. 不作任何处理; ②. 在它的左边加上一个自然数,但该自然数不能超过原数的一半; ③. 加上数后,继续按此规则进行处理,直到不能再加自然数为止. 样例:? 输入:? 6 满足条件的数为? ?6