作业帮pascal马拦过河卒棋盘上A点有一个过河卒,需要走到目标B点.卒行走的规则：可以向下、或者向右.同时在棋盘上C点有一个对方的马,该马所在的点和所有跳跃一步可达的点称为对方马的控制点.
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/01 03:38:45
pascal马拦过河卒棋盘上A点有一个过河卒,需要走到目标B点.卒行走的规则：可以向下、或者向右.同时在棋盘上C点有一个对方的马,该马所在的点和所有跳跃一步可达的点称为对方马的控制点.
pascal马拦过河卒
棋盘上A点有一个过河卒,需要走到目标B点.卒行走的规则：可以向下、或者向右.同时在棋盘上C点有一个对方的马,该马所在的点和所有跳跃一步可达的点称为对方马的控制点.因此称之为“马拦过河卒”.
棋盘用坐标表示,A点(0,0)、B点(n,m)(n,m为不超过20的整数),同样马的位置坐标是需要给出的.现在要求你计算出卒从A点能够到达B点的路径的条数,假设马的位置是固定不动的,并不是卒走一步马走一步.
【输入】
一行四个整数,分别表示B点坐标和马的坐标.
【输出】
一行一个整数,表示所有的路径条数.
【样例】
输入:
6 6 3 3
输出:
6
pascal马拦过河卒棋盘上A点有一个过河卒,需要走到目标B点.卒行走的规则：可以向下、或者向右.同时在棋盘上C点有一个对方的马,该马所在的点和所有跳跃一步可达的点称为对方马的控制点.
var bool:array[-5..25,-5..25] of boolean;f:array[-5..25,-5..25] of int64;i,j,hang,lie,chang,clie:longint;
begin
read(hang,lie,chang,clie);
fillchar(bool,sizeof(bool),true);
bool[chang,clie]:=false;
bool[chang+1,clie-2]:=false; bool[chang+2,clie-1]:=false;
bool[chang-1,clie-2]:=false; bool[chang-2,clie-1]:=false;
bool[chang-2,clie+1]:=false; bool[chang-1,clie+2]:=false;
bool[chang+1,clie+2]:=false; bool[chang+2,clie+1]:=false;
f[0,0]:=1;
for i:=1 to lie do
if not(bool[0,i]) then break else f[0,i]:=f[0,i-1];
for i:=1 to hang do
if not(bool[i,0]) then break else f[i,0]:=f[i-1,0];
for i:=1 to hang do
for j:=1 to lie do
if bool[i,j] then
f[i,j]:=f[i-1,j]+f[i,j-1];
write(f[hang,lie]);
end.