最少转弯问题.doc

一、最 少 转 弯 问 题 （文件名TURN.PAS） 给出一张地图，这张地图被分为n×m（n,m=100）个方块，任何一个方块不是平地就是高山。平地可以通过，高山则不能。现在你处在地图的（x1,y1）这块平地，问：你至少需要拐几个弯才能到达目的地（x2,y2）？你只能沿着水平和垂直方向的平地上行进，拐弯次数就等于行进方向的改变（从水平到垂直或从垂直到水平）的次数。 例如：如图1，最少的拐弯次数为5。 ( x1,y1) (x2,y2) （图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）： TURN.IN TURN.OUT 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 5 样例程序-1： PROGRAM LOKyrandia; const fi=Turn.in; fo=Turn.out; Way:array[0..6,1..2]of shortint=((1,0),(0,1),(-1,0),(0,-1),(1,0),(0,1),(-1,0)); ex:array[1..3]of shortint=(0,3,1); var M,N:byte; mem:array[0..101,0..101]of byte; mem2:array[1..100,1..100,0..3]of byte; X1,Y1,X2,Y2:byte; ans:byte; PROCEDURE Init; var f:text; i,j:byte; begin fillchar(mem,sizeof(mem),1); fillchar(mem2,sizeof(mem),255); assign(f,fi); reset(f); readln(f,N,M); for j:=1 to N do for i:=1 to M do read(f,mem[i,j]); read(f,Y1,X1,Y2,X2); close(f); ans:=255; end; PROCEDURE Kernel(X,Y:byte;head:byte;Turn:byte); var i,j:shortint; begin if (X=X2)and(Y=Y2) then begin if Turnans then ans:=Turn; exit; end; mem2[X,Y,head]:=Turn; mem2[X,Y,(head+1)mod 4]:=Turn+1; mem2[X,Y,(head+2)mod 4]:=Turn; mem2[X,Y,(head+3)mod 4]:=Turn+1; for j:=1 to 3 do begin i:=head+ex[j]; if mem[X+way[i,1],Y+way[i,2]]=0 then if (mem2[X,Y,i mod 4]ans) and (mem2[X,Y,i mod 4]mem2[X+way[i,1],Y+way[i,2],i mod 4]) then Kernel(X+way[i,1],Y+way[i,2],i mod 4,mem2[X,Y,i mod 4]); end; en