Mzc和男家丁的游戏

本文主要是介绍Mzc和男家丁的游戏，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

题目背景

ｍｚｃ与ｄｊｎ的第二弹。

题目描述

ｍｚｃ家很有钱（开玩笑），他家有ｎ个男家丁（做过上一弹的都知道）。他把她们召集在了一起，他们决定玩捉迷藏。现在mzc要来寻找他的男家丁，大家一起来帮忙啊！

由于男家丁数目不多，再加上mzc大大的找人【laopo】水平很好，所以一次只需要找一个男家丁。

输入输出格式

输入格式：
第一行有两个数ｎ，m，表示有n行m列供男家丁躲藏，

之后n行m列的矩阵，‘m‘表示mzc，‘d’表示男家丁，‘#’表示不能走，‘.‘表示空地。

输出格式：
一行，若有解：一个数ｓｕｍ，表示找到男家丁的最短移动次数。

若无解：输出“No Way!”。

输入输出样例

输入样例#1：
5 6
.#..#.
….#.
d…..

.

m…..
输出样例#1：
12
说明

3= < M,n<=2000

由于mzc大大十分着急，所以他只能等待1S。
.
.
.
.
.
.

.

程序：

const
dx:array[1..4] of longint=(0,1,0,-1);
dy:array[1..4] of longint=(1,0,-1,0);
var
n,m,i,j,h,t,x,y,x1,y1,x2,y2:longint;
f:array[1..4000000] of longint;
a:array[1..2000,1..2000] of boolean;
ch:char;
b:array[1..4000000,1..2] of longint;
beginreadln(n,m);for i:=1 to n dobeginfor j:=1 to m dobeginread(ch);if ch='#' then a[i,j]:=false else a[i,j]:=true;if ch='d' thenbeginx2:=i;y2:=j;end;if ch='m' thenbeginx1:=i;y1:=j;end;end;readln;end;h:=0;t:=1;f[t]:=0;b[t,1]:=x1;b[t,2]:=y1;while h<=t dobegininc(h);for i:=1 to 4 dobeginx:=b[h,1]+dx[i];y:=b[h,2]+dy[i];if (x>0) and (y>0) and (x<=n) and (y<=m) and a[x,y] thenbegina[x,y]:=false;inc(t);b[t,1]:=x;b[t,2]:=y;f[t]:=f[h]+1;if (x=x2) and (y=y2) thenbeginwriteln(f[t]);halt;end;end;end;end;writeln('No Way!');
end.

这篇关于Mzc和男家丁的游戏的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---