2008递推算法递归算法课件.pptVIP

递推算法 递推算法是一种若干步、重复的简单运算（规律）解决问题的算法。 已知—未知 例1 ABCDE植树。问A植几棵树，比B多2棵。问B植几棵树，比C多2棵。……E说植了10棵树。求A植几棵？ 已知条件：a5=10 递推式（规律）：a 4 =a5 +2 var a:array[1..5]of longint; i:longint; begin a[5]:=10; for i:=4 downto 1 do a[i]:=a[i+1]+2; writeln(a[1]); end. 例2 fanbonacci数列0.1.1.2.3.5.8.13...... var n,a,b,c,i:longint; begin a:=0; b:=1; read(n); for i:=3 to n do begin c:=a+b; a:=b; b:=c; end; if n=2 then writeln(1) else writeln(c); end. 例3 monkey eat peach .pas var i,today:longint; begin today:=1; for i:=10 downto 2 do today:=(today+1)*2; writeln(today); end. 例4 stairs. Pas(fanbonacci) var n,i,a,b,c:longint; begin readln(n); a:=1; b:=2; for i:=3 to n do begin c:=a+b; a:=b; b:=c; end; writeln(c); end. 例5 立方=连续奇数和 var i,j,n,a:longint; begin readln(n); a:=-1; for i:=1 to n-1 do for j:=1 to i do a:=a+2; for i:=1 to n do begin a:=a+2; write(a, ); end; end. 例6 rabbit . Pas兔子繁殖问题。 var n,i,lx,nx,px,now:longint; begin px:=0; lx:=1; now:=0; readln(n); for i:=1 to n do begin nx:=px+lx; now:=now+nx; px:=lx; lx:=nx; end; if n=1 then writeln(2) else writeln(now*2); end. 递归算法 递归算法：函数/过程体中出现对自己的调用，称作递归。 未知—已知—未知 例7 ABCDE植树。问A植几棵树，比B多2棵。问B植几棵树，比C多2棵……E说植了10棵树。求A植几棵？ 算法分析： END条件：a5=10 递归式（规律）：a n=a n+1 +2 函数： var n:longint; function tree(n:longint):longint; begin if n=5 then tree:=10 else tree:=tree(n+1)+2; end; BEGIN read(n); writeln(tree(n)); END. 过程： var n,s:longint; BEGIN procedure tree(n:longint); readln(n); begin tree(n); if n=5 then s:=10 writeln(s); else END. begin tree(n+1); s:=s+2; end; end; 例8 rabbit . Pas兔子繁殖问题。//P98-4. 算法分析： END条件：rabbit（1）rabbit（2）=1 递归式（规律）：rabbit（n） =rabbit（n-1）+rabbit（n-2） var n:longint; function