洛谷p2298 bfs

题目描述

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

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

输入输出格式

输入格式：

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

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

输出格式：

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

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

裸bfs

const flag:array[1..4,0..1]of longint=((1,0),(-1,0),(0,1),(0,-1));
var n,m,head,tail,bx,by:longint;
    q:array[0..4000005]of record
                            x,y,z:longint;
                           end;
    map:array[0..2005,0..2005]of char;
    vis:array[0..2005,0..2005]of boolean;
 procedure init;
  var i,j:longint;
   begin
     //assign(input,'bfs.in');reset(input);
     //assign(output,'bfs.out');rewrite(output);
      readln(n,m);
      for i:=1 to n do
       begin
         for j:=1 to m do
          begin
            read(map[i,j]);
            if map[i,j]='m' then begin bx:=i;by:=j;end;
           end;
          readln;
        end;
   end;
 function check(x,y:longint):boolean;
  begin
    if (vis[x,y]=true)or(map[x,y]='#') then exit(false);
    if (x<1)or(x>n)or(y<1)or(y>m) then exit(false);
    exit(true);
   end;
 procedure find(x,y:longint);
  begin
    inc(tail);vis[x,y]:=true;
    q[tail].x:=x;q[tail].y:=y;q[tail].z:=q[head].z+1;
    if map[x,y]='d' then begin write(q[tail].z);halt;end;
   end;
 procedure main;
  var i,j,x,y:longint;
   begin
     fillchar(vis,sizeof(vis),0);
     head:=0;tail:=1;
     q[1].x:=bx;q[1].y:=by;q[1].z:=0;vis[bx,by]:=true;
     while head<tail do
      begin
        inc(head);
        x:=q[head].x;y:=q[head].y;
        for i:=1 to 4 do
         if check(x+flag[i,0],y+flag[i,1]) then find(x+flag[i,0],y+flag[i,1])
       end;
    end;
 procedure print;
  begin
    write('No Way!');
    //close(input);close(output);
   end;
 begin
   init;
   main;
   print;
  end.

蒟蒻代码！