【a802】最少转弯问题

最少转弯问题

问题描述

　　给出一张地图，这张地图被分为n*m(n,m<=100)个方块，任何一个方块不是平地就是高山。平地可以通过，高山则不能。现在你处在地图的(x1,y1)这块平地，问：你至少需要转几个弯才能到达目的地(x2,y2)?　　
　　你只能沿着水平和垂直方向的平地上行进，转弯次数就等于行进方向的改变(从水平到垂直或从垂直到水平)的次数。

输入

　　第一行：n和m。
　　第二至n+1行：一个矩阵，为地图。
　　第n+2行：x1,y1,x2和y2。

输出

　　只有一行，为最少的转弯次数。

Sample input

5 7
1 0 0 0 0 1 0
0 0 1 0 1 0 0
0 0 0 0 1 0 1
0 1 1 0 0 0 0
0 0 0 0 1 1 0
1 3 1 7

Sample output

5

题解

　　一道广搜题，套用广搜代码，然后做一点点的修改：搜索到该点之后不停止，继续往该点与上一点的直线搜索下去，更新最少所搜索的点的最少转弯次数。
　　附上Pascal代码：

program a802;
const dx:array[1..4] of -1..1 = (1,-1,0,0);
      dy:array[1..4] of -1..1 = (0,0,1,-1);
var a:array[0..101,0..101] of longint;
    t:array[0..10001,1..3] of longint;
    f:array[0..101,0..101] of boolean;
    m,n,x,y,i,j,head,tail,x1,x2,y1,y2:longint;


procedure bfs(x1,y1:longint);
var i,j:longint;
begin
  head:=0;
  tail:=1;
  f[x1,y1]:=false;
  t[1,1]:=x1;         //t[i,1] 存储横坐标
  t[1,2]:=y1;         //t[i,2] 存储纵坐标
  t[1,3]:=0;          //t[i,3] 存储某点最少转弯次数
  repeat
    inc(head);
    for i:=1 to 4 do
    begin
       x:=t[head,1]+dx[i];
       y:=t[head,2]+dy[i];
       if f[x,y] then
          while a[x,y] = 0 do
              begin
                inc(tail);
                t[tail,1]:=x;
                t[tail,2]:=y;
                t[tail,3]:=t[head,3]+1;  //更新次数
                f[x,y]:=false;           //判重
                if (x=x2) and (y=y2) then
                  begin writeln(t[tail,3]-1);halt;end;
                x:=x+dx[i];
                y:=y+dy[i];
              end;
    end;
  until head>tail;
end;

begin
fillchar(f,sizeof(f),true);
readln(n,m);
for i:=1 to n do
  for j:=1 to m do
    read(a[i,j]);
for i:=1 to m do
  begin
    a[0,i]:=1;
    a[n+1,i]:=1;
  end;
for i:=1 to n do
  begin
    a[i,0]:=1;
    a[i,m+1]:=1;
  end;
readln(x1,y1,x2,y2);
bfs(x1,y1);
end.