第二讲 递归与递推.pptVIP

［例1］巧数 一个合数的的各位数字之和等于它所有质因数的各数字之和称为巧数。例如合数483的各位数字相加（4+8+3）=15，如果将483分解成质因数相乘： 483=3*7*23，把这些质因数各位数字相加（3+7+2+3），其和也为15，483就是巧数。统计n(10000)以内巧数的个数。;procedure sub1(x:integer; var t:integer); {过程:分离x的各位数字 } begin {并求各位数字之和 } repeat t:=t+x mod 10; x:=x div 10; until x=0 end;;procedure sub2(x: integer; var t: integer); {过程：分解质因数 } var xx,tt:integer; begin xx:=2; while x1 do if x mod xx=0 then begin tt:=0; sub1(xx,tt); t:=t+tt; x:=x div xx end else inc(xx) end;;procedure sub3(x: integer;var yy: boolean); {过程：判断x是否为素数 } var k,m: integer; begin k:=trunc(sqrt(x)); for m:=2 to k do if x mod m=0 then yy:=false; end;;begin {主程序} for n:=1 to 500 do begin t1:=0;t2:=0; yes:=true; sub3(n,yes); {调用过程求素数 } if not yes then {如果非素数就… } begin sub1(n,t1); {调用过程求n的各位数字之和 } sub2(n,t2);{调用过程求n的各质因数的数字之和 } if t1=t2 then total:=total+1 {打印合格的合数 } end end; wtiteln(total); readln end.; 从前有座山，山里有个老和尚，老和尚对小和尚讲：从前有座山，山里有个老和尚，老和尚对小和尚讲：从前有座山，山里有个老和尚，老和尚对小和尚讲……;递归;观察下面的函数;递归的概念;直接或间接地调用自身的算法称为递归算法 用函数自身给出定义的函数称为递归函数 用过程自身给出定义的过程称为递归过程;观察与思考;S:=Fac(5);递归 ;例1：求和：sum=1+2+3+…+100;例3、用递归方法求两个正整数m和n的最大公约数。 ; function gcd(m,n：longint)：longint； begin if then gcd :=n else ； end；;递归过程例析;案例：汉诺塔;先以三个盘的移动为例，看一下移动过程。 ;分析;主要程序段;例5、由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的个数，递归生成整个排列。;1、数据的定义形式是递归的，如求Fibonacci数列问题。 2、某些问题虽然没有明显的递归关系或结构，但问题的解法是不断重复执行一种操作，只是问题规模