(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.