(ssl2239)2012年特长生试题一 营救

2012年特长生试题一 营救

Description

铁塔尼号遇险了！他发出了求救信号。距离最近的哥伦比亚号收到了讯息，时间就是生命，必须尽快赶到那里。
通过侦测，哥伦比亚号获取了一张海洋图。这张图将海洋部分化成n*n个比较小的单位，其中用1标明的是陆地，用0标明是海洋。当然，船只能在海洋上行驶，且船只能从一个格子，移到相邻的四个格子。
为了尽快赶到出事地点，哥伦比亚号最少需要走多远的距离。

Input

从文件save.in中读入数据，第一行为n,下面是一个n*n的0，1矩阵，表示海洋地图，最后一行为四个小于n的整数，分别表示哥伦比亚号和铁塔尼号的位置。

Output

哥伦比亚号到铁塔尼号的最短距离，答案精确到整数。

Sample Input

3
001
101
100
1 1 3 3

Sample Output

4

Hint

数据范围说明：N<=1000。

Source

elba

题解：

   本题就是个广搜，详细请看这里

const
 dx:array[1..4]of longint=(1,0,-1,0);
 dy:array[1..4]of longint=(0,1,0,-1);
var
 a:array[0..1001,0..1001]of char;
 d:array[0..1000000,1..3]of longint;
 n,qx,qy,px,py,i,j,ans:longint;
procedure bfs;
var
 h,t,x,y:longint;
begin
 h:=0; t:=1;
 d[1,1]:=qx; d[1,2]:=qy;
 repeat
  inc(h);
  for i:=1 to 4 do
   begin
    x:=d[h,1]+dx[i]; y:=d[h,2]+dy[i];
    if (x>0) and (x<=n) and (y>0) and (y<=n) and (a[x,y]='0')then
     begin
      inc(t);
      d[t,1]:=x; d[t,2]:=y; d[t,3]:=d[h,3]+1;
      a[x,y]:='1';
      if (x=px) and (y=py) then
       begin
        write(d[t,3]);
        halt;
       end;
     end;
   end;
 until h>=t
end;
begin
 read(n);
 for i:=1 to n do
  begin
   for j:=1 to n do read(a[i,j]);
   readln;
  end;
 read(qx,qy,px,py);
 bfs;
end.