最少转弯问题

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

【输入格式】

第1 行：n  m

第2 至n+1行：整个地图地形描述（0：空地；1：高山），

如（图1）第2 行地形描述为：1 0 0 0 0 1 0 

第3 行地形描述为：0 0 1 0 1 0 0

……

第n+2 行：x1 y1 x2 y2 （分别为起点、终点坐标）

【输出格式】

s （即最少的拐弯次数）

【输入输出样例】（见图1）：

   

【解题思路】

这是一只宽搜的经典题目，过程不多讲，一定要判断初始方向，不能一开始就转向，刚开始就错在这了。

program t4;
const fx:array[1..4] of longint=(0,1,0,-1);
       fy:array[1..4] of longint=(-1,0,1,0);
var dt:array[1..100000,1..2] of longint;
    d,ans:array[1..100000] of longint;
    f:array[1..100,1..100] of longint;
    pd:array[1..100,1..100] of longint;
    x1,x2,y1,y2,i,j,h,t,sum,n,m:Longint;
begin
    filldword(pd,sizeof(pd) div 4,maxlongint div 2);
    read(n,m);
    for i:=1 to n do
        for j:=1 to m do read(f[i,j]);
    read(x1,y1,x2,y2);
    for i:=1 to 4 do
    begin
        if (x1+fx[i]>0) and(x1+fx[i]<=n) and(y1+fy[i]>0) and (y1+fy[i]<=n)
        and(f[x1+fx[i],y1+fy[i]]=0) then//重点在这
        begin
            inc(t);
            dt[t,1]:=x1;
            dt[t,2]:=y1;
            d[t]:=i;
        end;
    end;
    while h<=t do
    begin
        inc(h);
        sum:=1;
        while (dt[h,1]+fx[d[h]]*sum>0) and (dt[h,2]+fy[d[h]]*sum>0)
           and (dt[h,1]+fx[d[h]]*sum<=n) and (dt[h,2]+fy[d[h]]*sum<=m)
           and (f[dt[h,1]+fx[d[h]]*sum,dt[h,2]+fy[d[h]]*sum]<>1)
           //and (not pd[dt[h,1]+fx[d[h]]*sum,dt[h,2]+fy[d[h]]*sum])
           do
           begin
                inc(t);
                dt[t,1]:=dt[h,1]+fx[d[h]]*sum;
                dt[t,2]:=dt[h,2]+fy[d[h]]*sum;
                d[t]:=d[h];
                ans[t]:=ans[h];
',dt[h,2]+fy[d[h]]*sum,' ',ans[t]);
                if (dt[h,1]+fx[d[h]]*sum=x2)and(dt[h,2]+fy[d[h]]*sum=y2) then
                begin
                    writeln(ans[h]);
                    halt;
                end;
                inc(sum);
           end;
           for i:=1 to 4 do
            if i mod 2<>d[h] mod 2 then
            begin
                if (dt[h,1]+fx[i]>0) and (dt[h,2]+fy[i]>0) and
                (dt[h,1]+fx[i]<=n) and (dt[h,2]+fy[i]<=m) and
                (f[dt[h,1]+fx[i],dt[h,2]+fy[i]]<>1)
                then
                begin
                    inc(t);
                    dt[t,1]:=dt[h,1]+fx[i];
                    dt[t,2]:=dt[h,2]+fy[i];
                    d[t]:=i;
                    ans[t]:=ans[h]+1;
                    //writeln(dt[h,1]+fx[i],' ',dt[h,2]+fy[i],' ',ans[t]);
                    if (dt[h,1]+fx[i]=x2)and(dt[h,2]+fy[i] =y2) then
                begin
                    writeln(ans[t]);
                    halt;
                end;
                end;
            end;

    end;
end.