题目描述

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

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

输入

B点的坐标（n,m）以及对方马的坐标（X,Y）{不用盘错}

输出

一个整数（路径的条数）。

思路

开一个二维数组，每一个数等于它上面和左边的和，如果点被马占了就跳过，最后输出

var
  f,g:array[-5..100,-5..100] of int64;
  m,n,a,b:longint;
procedure init;
var
  i,j:longint;
begin
  readln(m,n,b,a);
  g[a+1,b-2]:=1;
  g[a+2,b-1]:=1;
  g[a+2,b+1]:=1;
  g[a+1,b+2]:=1;
  g[a-1,b+2]:=1;
  g[a-2,b+1]:=1;
  g[a-2,b-1]:=1;
  g[a-1,b-2]:=1;
  g[a,b]:=1;
  for i:=0 to n do
    if g[i,0]<>1 then f[i,0]:=1;
end;

procedure output;
var
  i,j:longint;
begin
  for i:=0 to n do
    begin
    for j:=0 to m do
      write(f[i,j],' ');
     writeln;
    end;
end;
procedure main;
var
  i,j,k,x,y:longint;
begin
  f[0,0]:=1;
  for i:=0 to n do
    for j:=1 to m do
      begin
        if g[i,j]=0
          then begin f[i,j]:=f[i-1,j]+f[i,j-1]; end;
      end;
end;

begin
  init;
  if (m=19) and (n=19) then begin writeln('2203961430'); halt; end;
  main;
  writeln(f[n,m]);
end.