noip讲义2递推法详解.ppt

递推法 采用具体化、特殊化的方法寻找规律 练习1 练习2 练习3 练习4 Hanoi双塔问题 通过合理分步、恰当分类找出递推关系 登楼梯 错位排列 染色问题 传球问题 凸多边形划分 求路径总数 街道路径 过河卒 传球游戏 传球问题 整数划分 倒推法 骑士游历 乘火车 设有一个N＊M（1=N=50，1=M=50）的街道，规定行人从A(1,1)出发，在街道上只能向东或北行走。 若在此街道中，设置一个矩形障碍区域（包括围住该区域的的街道）不让行人通行，如上图中用“＊”表示的部分。此矩形障碍区域用2对顶点坐标给出，如上图中的2对顶点坐标为(2，2),(8，4)，此时从A出发到达B的路径有两条。 现给出N、M，同时再给出此街道中的矩形障碍区域的2对顶点坐标(x1,y1)，（x2,y2），请求出此时所有从A出发到达B的路径的条数。 由于在街上只能向东或北方向行走，因此要想达到坐标为（i,j）的顶点的话，必定要经过坐标为（i-1,j）的顶点或坐标为（i,j-1）的顶点，假设从起始顶点到达坐标为（i,j）的顶点的路径总数为a[i,j]，则a[i,j]= a[i-1,j] +a[i,j-1]。因此我们可以采用逐行递推的方法来求出从起始顶点到达任意一个顶点的路径总数。 var n,m,i,j,x1,x2,y1,y2:integer; a:array[1..50,1..50] of longint; b:array[1..50,1..50] of boolean; begin readln(n,m);{行列要分清} readln(x1,y1,x2,y2); fillchar(a,sizeof(a),0) ; fillchar(b,sizeof(b),true); for i:=y1 to y2 do for j:=x1 to x2 do b[i,j]:=false; for i:=1 to m do begin if not(b[i,1]) then break ; a[i,1]:=1; end; for j:=1 to n do begin if not(b[1,j]) then break ; a[1,j]:=1; end; for i:=2 to m do for j:=2 to n do if b[i,j] then a[i,j]:=a[i-1,j]+a[i,j-1]; write(a[m,n]); end. 有可能障碍区域靠边 如输入 9 5 2 8 4 应输出 1 Var{加入高精度运算} n,m,i,j,x1,x2,y1,y2,k,g:integer; a:array[1..50,1..50,1..30] of longint; b:array[1..50,1..50] of boolean; begin readln(n,m); readln(x1,y1,x2,y2); fillchar(a,sizeof(a),0); fillchar(b,sizeof(b),true); for i:=y1 to y2 do for j:=x1 to x2 do b[i,j]:=false; for i:=1 to m do begin if not(b[i,1]) then break; a[i,1,1]:=1; end; for j:=1 to n do begin if not(b[1,j]) then break; a[1,j,1]:=1; end; for i:=2 to m do for j:=2 to n do if b[i,j] then begin g:=0; for k:=1 to 30 do begin a[i,j,k]:=a[i-1,j,k]+a[i,j-1,k]+g;