2002年分区联赛普级组之四 过河卒

发布于 2019-04-02  868 次阅读


题目描述

如图,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.
]]>