十讲递归与递推式.pptVIP

第十讲 递归与递推式;递归的概念： 一个过程(或函数)直接或间接调用自己本身,这种过程(或函数)叫递归过程(或函数). ;例：计算n! 可用递归公式如下: Fac(1)=1 当 n=1 时?? fac(n)=n*fac(n-1) 当n1时;递归的关键： 1.确定递归公式（关系） 2.确定边界(终了)条件;1、 function f(m:integer):integer; var va:integer; begin if m=0 then va:=3 else va:=f(m-1)+5; f:=va; end.Begin writeln(f(3));End.;2、 var n:integer; procedure f(n:integer); begin if n0 then begin f(n-1); write(n); f(n-1); end; end; begin f(3); end.;3、已知ack(m,n)函数的计算公式如下： ack(m,n)= ;var m,n:integer; function ack(m,n:integer):integer; begin if m=0 then ack:=n+1 else if n=0 then ack:=ack(m-1,1) else ack:=ack(m-1,ack(m,n-1)); end; begin read(m,n); writeln(ack(m,n)); end.;1、楼梯有N阶，上楼可以一步上一价，也可以一次上二阶，还可以一步上三阶。编一个程序，计算共有多少种不同的走法。;2、在一个平面上有一个圆和n条直线，这些直线中每一条在圆内同其他直线相交，假设没有3条直线相交于一点，试问这些直线将圆分成多少区域。;3、问题描述将整数n分成k份，且每份不能为空，任意两种分法不能相同(不考虑顺序)。例如：n=7，k=3，下面三种分法被认为是相同的。1，1，5; 1，5，1; 5，1，1;问有多少种不同的分法。输入：n，k (6n=200，2=k=6)输出：一个整数，即不同的分法。 样例输入： 7 3输出：4 {四种分法为：1，1，5;1，2，4;1，3，3;2，2，3;};分析：用f(I,j)表示将整数I分成j分的分法，可以划分为两类： 第一类 ：j分中不包含1的分法，为保证每份都=2，可以先那出j个1分到每一份，然后再把剩下的I-j分成j份即可，分法有：f(I-j,j). 第二类 : j份中至少有一份为1的分法，可以先那出一个1作为单独的1份，剩下的I-1再分成j-1份即可，分法有：f(I-1,j-1). 所以：f(I,j)= f(I-j,j)+ f(I-1,j-1);const maxn=200; maxk=6; var n,k,i,j:longint; f:array[0..maxn,0..maxk] of longint; begin readln(n,k); f[0,0]:=1; for i:=1 to n do for j:=1 to k do if(i=j) then f[i,j]:=f[i-j,j]+f[i-1,j-1]; writeln(f[n,k]); end.;4、n个有区别的球放到m个相同的盒子中，要求无一空盒，求不同的方案数S(n,m)表示 ; var n,k:integer; function s(n,k:integer):integer; begin if r(nk) then s:=0 else if (k=1)or(n=k) then s:=1 else s:=s(n-1,k-1)+k*s(n-1,k); end; begin read(n,k); write(s(n,k)); end.;;var s:array[1..100,1..100] of longint; n,m,i,j:integer; begin read(n,m); fillchar(s,sizeof(s),0); for i:=1 to n do s[i,1]:=1; for