pascal马拦过河卒

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/11/06 07:28:32

pascal马拦过河卒
棋盘上A点有一个过河卒,需要走到目标B点.卒行走的规则：可以向下、或者向右.同时在棋盘上C点有一个对方的马,该马所在的点和所有跳跃一步可达的点称为对方马的控制点.因此称之为“马拦过河卒”.
棋盘用坐标表示,A点(0,0)、B点(n,m)(n,m为不超过20的整数),同样马的位置坐标是需要给出的.现在要求你计算出卒从A点能够到达B点的路径的条数,假设马的位置是固定不动的,并不是卒走一步马走一步.
【输入】
一行四个整数,分别表示B点坐标和马的坐标.
【输出】
一行一个整数,表示所有的路径条数.
【样例】
输入:
6 6 3 3
输出:
6

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.

pascal马拦过河卒 pascal马拦过河卒问题 pascal马栏过河卒修改 pascal编程：过河卒过河卒(pascal) 过河卒,24点 pascal语言程序.（我是初学者写的易懂点能省过程、函数尽量省） C语言 16*16棋盘马数小于4的马拦过河卒问题宇宙过河卒怎么样 pascal pascal pascal! 马拦过河卒 C语言特别经典的递如图,A 点有一个过河卒,需要走到目标 B 点.卒行走规则：可以向下、或者向右 C语言——马拦过河卒.看看我的算法错哪了,并改正. 赶红,黑,白,黄四匹马过河.红马过河要4分钟,黑马过河要6分钟,白马过河要3分钟,黄马过河要9分钟.每次只能赶两匹马过河