过河卒的悲惨历程

过河卒（gh.pas）

题目描述 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 点的路径的条数。

输入:

　输入文件名p.in
　　　B点的坐标（n,m）以及对方马的坐标（X,Y）

输出:
　　输出文件名p.ans
　　　　一个整数（路径的条数）。

输入输出样例:
　　输入：
　　　6 6 3 2
　　输出：
　　　17

思路总结：一上去，首先就能想到动态规划或是宽度搜索，但是仔细看题目，去发现如果用BFS，能过得可能性很小，于是乎，我们毅然决然的走上了动归这条黑船……

分析到此，恭喜你，题目已经做对了一半，至于找状态方程的事情啦，很简单嘛！！！一看就知道的啦！！此处不在多说了。

参考程序：

const dx:array[1..8]oflongint=(-2,-1,1,2,2,1,-1,-2);

     dy:array[1..8]of longint=(1,2,2,1,-1,-2,-2,-1);

var a:array[-1..20,-1..20]of longint;

   v:array[-1..20,-1..20]of int64;

   i,j,k,x1,x2,y1,y2:longint;

procedure inti;

 begin

   fillchar(a,sizeof(a),0);

   fillchar(v,sizeof(v),0);

   readln(x1,y1,x2,y2);

   a[x2,y2]:=1;

   for k:=1 to 8 do

     if (x2+dx[k]>=0) and (x2+dx[k]<=x1) and (y2+dy[k]>=0) and(y2+dy[k]<=y1) then

     a[x2+dx[k],y2+dy[k]]:=1;

 end;

procedure search;{找路径}

 begin

   v[0,0]:=1;

   for i:=0 to x1 do

     for j:=0 to y1 do

       begin

          if a[i,j]<>1 then

            v[i,j]:=v[i-1,j]+v[i,j-1]+v[i,j];{状态方程终于写上啦！！！}

       end;

 end;

begin

 assign(input,'p.in');

 reset(input);

 assign(output,'p.ans');

 rewrite(output);

 inti;

 search;

 writeln(v[x1,y1]);

 close(input);

 close(output);

end.