（昨天的）codevs天梯过河卒 简短的棋盘dp

题目：

　如图，A 点有一个过河卒，需要走到目标 B 点。卒行走规则：可以向下、或者向右。同时在棋盘上的任一点有一个对方的马（如上图的C点），该马所在的点和所有跳跃一步可达的点称为对方马的控制点。例如上图 C 点上的马可以控制 9 个点（图中的P1，P2 … P8 和 C）。卒不能通过对方马的控制点。

　　棋盘用坐标表示，A 点（0，0）、B 点（n,m）(n,m 为不超过 20 的整数，并由键盘输入)，同样马的位置坐标是需要给出的（约定: C不等于A，同时C不等于B）。现在要求你计算出卒从 A 点能够到达 B 点的路径的条数。

1<=n,m<=15

代码：

const

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

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

  maxn=50;

var

  f:array [-1..maxn,-1..maxn] of longint;

  flag:array [-1..maxn,-1..maxn] of boolean;

  n,m,x,y:longint;

procedure init;

var

  i,j:longint;

begin

  readln(n,m,x,y);

  fillchar(flag,sizeof(flag),true);

  flag[x,y]:=false;

  f[0,0]:=1;

  for i:=1 to 8 do

    if (x+dx[i]>=0) and (x+dx[i]<=n) and (y+dy[i]>=0) and (y+dy[i]<=m) then

      flag[x+dx[i],y+dy[i]]:=false;

  for i:=1 to n do

    flag[i,-1]:=false;

  for i:=1 to m do

    flag[-1,i]:=false;

end;

procedure main;

var

  i,j:longint;

begin

  for i:=0 to n do

    for j:=0 to m do

      if flag[i,j] and ((i<>0) or (j<>0))then

        begin

          if flag[i-1,j] and (f[i-1,j]<>0) then

            inc(f[i,j],f[i-1,j]);

          if flag[i,j-1] and (f[i,j-1]<>0) then

            inc(f[i,j],f[i,j-1]);

        end;

  writeln(f[n,m]);

end;

begin

  init;

  main;

end.