您的位置：首页 > 其它

过河卒的悲惨历程

2015-06-20 19:27 148 查看
过河卒（gh.pas）
题目描述 Description

　　如图，A 点有一个过河卒，需要走到目标 B 点。卒行走规则：可以向下、或者向右。同时在棋盘上的任一点有一个对方的马（如上图的C点），该马所在的点和所有跳跃一步可达的点称为对方马的控制点。例如上图 C 点上的马可以控制 9 个点（图中的P1，P2 … P8 和 C）。卒不能通过对方马的控制点。






　　棋盘用坐标表示，A 点（0，0）、B 点（n,m）(n,m 为不超过 20 的整数，并由键盘输入)，同样马的位置坐标是需要给出的（约定: C<>A，同时C<>B）。现在要求你计算出卒从 A 点能够到达 B 点的路径的条数。

输入:

　输入文件名p.in

　　　B点的坐标（n,m）以及对方马的坐标（X,Y）

输出:

　　输出文件名p.ans

　　　　一个整数（路径的条数）。

输入输出样例:

　　输入：

　　　6 6 3 2

　　输出：

　　　17

思路总结：一上去，首先就能想到动态规划或是宽度搜索，但是仔细看题目，去发现如果用BFS，能过得可能性很小，于是乎，我们毅然决然的走上了动归这条黑船……

分析到此，恭喜你，题目已经做对了一半，至于找状态方程的事情啦，很简单嘛！！！一看就知道的啦！！此处不在多说了。

参考程序：

const dx:array[1..8]oflongint=(-2,-1,1,2,2,1,-1,-2);

dy:array[1..8]of longint=(1,2,2,1,-1,-2,-2,-1);

var a:array[-1..20,-1..20]of longint;

v:array[-1..20,-1..20]of int64;

i,j,k,x1,x2,y1,y2:longint;

procedure inti;

begin

fillchar(a,sizeof(a),0);

fillchar(v,sizeof(v),0);

readln(x1,y1,x2,y2);

a[x2,y2]:=1;

for k:=1 to 8 do

if (x2+dx[k]>=0) and (x2+dx[k]<=x1) and (y2+dy[k]>=0) and(y2+dy[k]<=y1) then

a[x2+dx[k],y2+dy[k]]:=1;

end;

procedure search;{找路径}

begin

v[0,0]:=1;

for i:=0 to x1 do

for j:=0 to y1 do

begin

if a[i,j]<>1 then

v[i,j]:=v[i-1,j]+v[i,j-1]+v[i,j];{状态方程终于写上啦！！！}

end;

end;

begin

assign(input,'p.in');

reset(input);

assign(output,'p.ans');

rewrite(output);

inti;

search;

writeln(v[x1,y1]);

close(input);

close(output);

end.
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签： 
相关文章推荐
新的分享
章节导航