ZGS-回溯法例题【信息技术】.docVIP

一、老鼠走迷宫（maze.exe） 【问题描述】 一只老鼠从迷宫的左上角走到右下角（如下图），中间不能穿越障碍（阴影部分），请找出最短路经。 任务：给出迷宫的形状，输出走过的最短路经。 【输入】 第一行，为两个整数x和y（1 =x,y =20），表示迷宫总共有几行几列；第二行开始到第x+1行，每行y列为迷宫形状，“0”表示无障碍，“1”表示有障碍。 【输出】 第一行是一个整数，表示经过的最短路径长度（每个格子长度为1）； 下面输出x行、y列，表示行走最短路的迷宫形状图，用“-”表示走过的格子； 如果没有一条可行的路，则输出“-1” 。 【样例】 maze.in maze.out 6 9 000110001 010000101 010101101 010100000 011011010 000000010 14 ---110001 01---0101 0101-1101 0101----- 【算法分析】 很多问题没有现成的规律和公式，但我们可以采取穷举策略，在一个大范围中找出问题的解，回溯法也是穷举思路的一种。 回溯法的特点：不断地试探和纠正错误，“向前走，碰壁回头” ，在若干次返回后最终找到结果。 1、存储结构：用一个二维数组A[x,y]来表示迷宫，元素为1或0。其中，A[x,y]=1表示坐标(x,y)对应着障碍物,否则对应着通路。 初始时候老鼠的坐标为(1,1)，终点坐标为(6,9)。 对于任一点(x,y)，有四个移动方向：(x-1,y)、(x,y+1)、(x+1,y)、(x,y-1)，除边角点以外。 用两个数组Fx和Fy分别记录四个方向的增量，每移动一步，只要将当前坐标分别加上方向号的增量。 2、老鼠每一步移动的状态。 设当前坐标为(x,y)则then begin if 当前路径最短 then 记录最短路径 end else Try(p+1) 从路径删去当前位置； end end. 非递归算法如下： procedure Search; begin dep:=1;dir:=0; repeat inc(dir); if dir 4(超过4个方向) then begin dec(dep); if dep 0 then dir:=d[dep]; end else if 新位置符合条件 then begin d[dep]:=dir(记录当前搜索方向)； if 是出口 then 记录路径 else begin inc(dep);dir:=0 end end until dep:=0; end. 可以看出，非递归算法比递归算法难，思路也不是很清晰，但非递归算法的好处是不需要很大的栈空间，适用于搜索路径长、占空间大的问题。 参考程序 PROGRAM maze; type node=record x:byte; y:byte; fat:word; end; const fi=maze.in; fo=maze.out; maxQ=1000; go:array[1..4,1..2]of shortint=((-1,0),(0,-1),(1,0),(0,1)); var N,M:byte; mem:array[0..21,0..21]of byte; sign:array[1..20,1..20]of boolean; PROCEDURE Init; var i,j:byte; tmp:char; begin fillchar(mem,sizeof(mem),1); assign(input,fi); reset(input); readln(N,M); for i:=1 to N do begin for j:=1 to M do begin read(tmp); mem[i,j]:=ord(tmp)-48;