題目背景

ｍｚｃ與ｄｊｎ的第二彈。

題目描述

ｍｚｃ家很有錢（開玩笑），他家有ｎ個男家丁（做過上一彈的都知道）。他把她們召集在了一起，他們決定玩捉迷藏。現在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.

轉載于:https://www.cnblogs.com/YYC-0304/p/9499966.html

總結

以上是生活随笔為你收集整理的Mzc和男家丁的游戏的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。