作业帮过河卒(pascal)
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/19 17:23:24
过河卒(pascal)
棋盘上A点有一个过河卒,需要走到目标B点.卒行走的规则：可以向下、或者向右.同时在棋盘上的任一点有一个对方的马（如下图中的C点）,该马所在的点和所有跳跃一步可达的点称为对方马的控制点（如下图中的C点和P1,P2,……,P8）.卒不能通过对方马的控制点.棋盘用坐标表示,A点(0,0)、B点(n,m) (n,m为不超过20的整数),同样马的位置坐标是需要给出的,C≠A且C≠B.现在从键盘输入n,m,要你计算出卒从A点能够到达B点的路径的条数.
棋盘上A点有一个过河卒,需要走到目标B点.卒行走的规则：可以向下、或者向右.同时在棋盘上的任一点有一个对方的马（如下图中的C点）,该马所在的点和所有跳跃一步可达的点称为对方马的控制点（如下图中的C点和P1,P2,……,P8）.卒不能通过对方马的控制点.棋盘用坐标表示,A点(0,0)、B点(n,m) (n,m为不超过20的整数),同样马的位置坐标是需要给出的,C≠A且C≠B.现在从键盘输入n,m,要你计算出卒从A点能够到达B点的路径的条数.
program ex1(input,output);
const
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
n, m, x, y, i, j: Byte;
g: array[0 .. 20, 0 .. 20] of Byte;
f: array[0 .. 20, 0 .. 20] of Comp;
begin
Readln(n, m, x, y);
Fillchar(g, Sizeof(g), 0);
g[x, y] := 1;
for i := 1 to 8 do
if (x + dx[i] >= 0) and (x + dx[i] = 0) and (y + dy[i]
const
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
n, m, x, y, i, j: Byte;
g: array[0 .. 20, 0 .. 20] of Byte;
f: array[0 .. 20, 0 .. 20] of Comp;
begin
Readln(n, m, x, y);
Fillchar(g, Sizeof(g), 0);
g[x, y] := 1;
for i := 1 to 8 do
if (x + dx[i] >= 0) and (x + dx[i] = 0) and (y + dy[i]