Description :
如图,A点有一个过河卒,需要走到目标B点。卒行走的规则:可以向下、或者向右。

同时在棋盘上的任一点有一个对方的马(如上图的C点),该马所在的点和所有跳跃一步可达的点称为方马的控制点。例如上图C点上的马可以控制9个点(图中的P1,P2...P8和C)。卒不能通过对方的控制点。
棋盘用坐标表示,A点(0,0)、B点(n, m)(n,m为不超过20的整数,并由键盘输入),同样马的位置坐标是需要给出的(约定:C≠A,同时C≠B)。现在要求你计算出卒从A点能够到达B点的路 径的条数。
Input
B点的坐标(n,m)以及对方马的坐标(X,Y) {不用判错}
Output
一个整数(路径的条数)。
Sample Input
6 6 3 2
Sample Output
17
方法一:用回溯的方法:(分析略,见跳马)
Code
1
//马拦过河卒(NOIP2002)
2
program guoheju;
3
const
4
dx:array[1..8] of integer=(-2,-1,1,2,2,1,-1,-2);
5
dy:array[1..8] of integer=(1,2,2,1,-1,-2,-2,-1); //马控制的8个
6
7
方向
8
var
9
n,m,x,y,i,j,ans:longint;
10
g:array[0..20,0..20] of 0..1; //描述棋盘上的点是否受马控制
11
12
procedure init;
13
begin
14
readln(n,m,x,y);
15
g[x,y]:=1;
16
ans:=0;
17
for i:=1 to 8 do
18
if(x+dx[i]>=0)and(x+dx[i]<=n)
19
and(y+dy[i]>=0)and(y+dy[i]<=m) then
20
g[x+dx[i],y+dy[i]]:=1; //计算存储马的控制点
21
end;
22
23
procedure try(x,y:integer); //x,y为卒当前所在的位置
24
begin
25
if(x=n)and(y=m) then ans:=ans+1 //到达目标
26
else
27
begin
28
if(y<m)and(g[x,y+1]=0) then try(x,y+1); //向右走
29
if(x<n)and(g[x+1,y]=0) then try(x+1,y); //向下走
30
end;
31
end;
32
33
begin
34
init;
35
try(0,0);
36
writeln(ans);
37
end.
方法二:用递推的方法:
当m,n比较小的时候,运用回溯可以求出解,但当m、n比较大的时候,就会超时。
仔细观察,要到达棋盘上的任意一点,只能从左边和上边两个方向过来。因此,要到达某一点的路径数,等于和它相邻的左、上两个点的路径数和:F[i,j] = F[i-1,j] + F[i,j-1]。所以我们可以使用逐列(或逐行)递推的方法来求出从起始顶点到重点的路径数目,即使有障碍(我们将马的控制点称为障碍),这一方法也完全适用,只要将到达该点的路径数目置为0即可,用F[i,j]表示到达点(i,j)的路径数目,g[i,j]表示点(i, j)有无障碍,递推方程如下:
F[0,0] = 1 //起点
F[i,0] = F[i-1,0] {i > 0, g[x,y] = 0}//左边界
F[0,j] = F[0,j-1] {j > 0, g[x,y] = 0}//上边界
F[i,j] = 0 { g[x,y] = 1 } //障碍点
F[i,j] = F[i-1,j] + F[i,j-1] {i > 0, j > 0, g[x, y] = 0}//递推式
与动态规划相比较,本题不是求最优值,在阶段中不做决策。
为了输出路径数量够大,采用数据类型为comp
Code
1
//马拦过河卒(NOIP2002)递推
2
program guoheju02;
3
const
4
dx:array[1..8] of integer=(-2,-1,1,2,2,1,-1,-2);
5
dy:array[1..8] of integer=(1,2,2,1,-1,-2,-2,-1);
6
var
7
n,m,x,y,i,j:integer;
8
g:array[0..20,0..20] of integer;
9
f:array[0..20,0..20] of comp; //数据类型避免使用高精度
10
11
procedure init;
12
begin
13
readln(n,m,x,y);
14
fillchar(g,sizeof(g),0);
15
g[x,y]:=1;
16
for i:=1 to 8 do
17
if(x+dx[i]>=0)and(x+dx[i]<=n)
18
and(y+dy[i]>=0)and(y+dy[i]<=m) then
19
g[x+dx[i],y+dy[i]]:=1;
20
end;
21
22
procedure main;
23
begin
24
f[0,0]:=1; //起点
25
for i:=1 to n do
26
if g[i,0]=0 then f[i,0]:=f[i-1,0];//左边界
27
for j:=1 to m do
28
if g[0,j]=0 then f[0,j]:=f[0,j-1];//上边界
29
for i:=1 to n do
30
for j:=1 to m do
31
if g[i,j]=0 then
32
f[i,j]:=f[i-1,j]+f[i,j-1];
33
end;
34
35
begin
36
init;
37
main;
38
writeln(f[n,m]:0:0);//注意输出格式
39
end.