比赛 暑假培训七 评测结果 AAAWWA
题目名称 过河卒 最终得分 40
用户昵称 chengyang 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-07-24 17:48:40
显示代码纯文本
program pj024(f1,f2);
var
  a:array[-3..23,-3..23,1..2]of longint;
  i,j,n,m,c,b:integer;
  ans:longint;
  f1,f2:text;
begin
  assign(f1,'pj024.in'); assign(f2,'pj024.out');
  reset(f1);  rewrite(f2);
  read(f1,n,m,c,b);
  for i:=-3 to 23 do begin
    for j:=-3 to 23do a[i,j,2]:=0;
  end;
  for i:=0 to n do begin
    for j:=0 to m do begin
      a[i,j,2]:=1;
      a[i,j,1]:=0;
    end;
  end;
  a[0,0,1]:=1; a[c,b,2]:=0;
  a[c+2,b+1,2]:=0; a[c-2,b+1,2]:=0;
  a[c+1,b+2,2]:=0; a[c-1,b+2,2]:=0;
  a[c+2,b-1,2]:=0; a[c-2,b-1,2]:=0;
  a[c+1,b-2,2]:=0; a[c-1,b-2,2]:=0;
  for i:=0 to n do begin
    for j:=0 to m do begin
      if a[i+1,j,2]=1 then a[i+1,j,1]:=a[i+1,j,1]+a[i,j,1];
      if a[i,j+1,2]=1 then a[i,j+1,1]:=a[i,j+1,1]+a[i,j,1];
    end;
  end;
  writeln(f2,a[n,m,1]);
  close(f1); close(f2);
end.