洛谷 P1002 过河卒
题目
题目描述
棋盘上A点有一个过河卒,需要走到目标B点。卒行走的规则:可以向下、或者向右。同时在棋盘上C点有一个对方的马,该马所在的点和所有跳跃一步可达的点称为对方马的控制点。因此称之为“马拦过河卒”。
棋盘用坐标表示,A点(0, 0)、B点(n, m)(n, m为不超过20的整数),同样马的位置坐标是需要给出的。
现在要求你计算出卒从A点能够到达B点的路径的条数,假设马的位置是固定不动的,并不是卒走一步马走一步。
输入输出格式
输入格式:
一行四个数据,分别表示B点坐标和马的坐标。
输出格式:
一个数据,表示所有的路径条数。
输入输出样例
输入样例#1:
6 6 3 3
输出样例#1:
6
说明
结果可能很大!
题解
DP,注意数组要用int64(long long)
代码(Pascal)
const flag:array[0..8,0..1]of longint=((0,0),(1,2),(1,-2),(-1,2),(-1,-2),(2,1),(-2,1),(2,-1),(-2,-1));
var n,m,x,y:longint;
f:array[-1..25,-1..25]of int64;
procedure init;
begin
readln(n,m,x,y);
end;
function check(a,b:longint):boolean;
var i:longint;
begin
for i:=0 to 8 do if (x+flag[i,0]=a)and(y+flag[i,1]=b) then exit(false);
exit(true);
end;
procedure main;
var i,j:longint;
begin
fillchar(f,sizeof(f),0);
f[0,0]:=1;
for i:=0 to n do
for j:=0 to m do
if ((i<>0)or(j<>0))and(check(i,j)) then f[i,j]:=f[i-1,j]+f[i,j-1];
end;
procedure print;
begin
write(f[n,m]);
end;
begin
init;
main;
print;
end.