记录编号	4755	评测结果	AAAWWA
题目名称	[NOIP 2002]过河卒	最终得分	66
用户昵称	书剑飘零	是否通过	未通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2008-10-22 19:31:47	内存使用	0.12 MiB

program tz;
const
  maxn=20;maxm=20;
  dx:array[1..8] of shortint=(2,1,-1,-2,-2,-1,1,2);
  dy:array[1..8] of shortint=(1,2,2,1,-1,-2,-2,-1);
var
  f:array[0..maxn,0..maxm] of comp;
  g:array[-2..maxn+2,-2..maxm+2] of boolean;
  n,m,x,y:integer;
  i,j:integer;
  f1,f2:text;
begin
  assign(f1,'pj024.in');
  assign(f2,'pj024.out');
  reset(f1);rewrite(f2);
  readln(f1,n,m,x,y);
  fillchar(f,sizeof(f),0);
  fillchar(g,sizeof(g),true);
  g[x,y]:=false;
     for i:=1 to 8 do
        g[x+dx[i],y+dy[i]]:=false;
     if g[0,0] then f[0,0]:=1;
     for j:=1 to m do
        if g[0,j] then f[0,j]:=f[0,j-1];
     for i:=1 to n do
        if g[i,0] then f[i,0]:=f[i-1,0];
     for i:=1 to n do
        for j:=1 to m do
          if g[i,j] then f[i,j]:=f[i-1,j]+f[i,j-1];
     write(f2,f[n,m]:0:0);
close(f1);
close(f2);
end.