[工学]搜索算法.ppt

主程序: begin readdata; x:=1; y:=1; try(1); end. 五、寻找国都名 给出一个矩阵及一些国都名：要求从这个矩阵中找出这些国都名，并输出它们的起始位置及方向。 输入：在文本文件country.in中的第一行有一个整数M和N，表示该字符矩阵的长和宽。接下来就是M*N的字符矩阵。字符矩阵后有一个整数K，表示国家都名的个数，接下来的K行，每一行都是一个国都名。 输出：在文本文件country.out中共有K行，第I行写入第I个国都名的起始位置及方向。如果一个国都名多次出现，只输出一种即可，起始位置用坐标表示，方向定义见图。如没有找到国都名，输出‘No found’。 8 8 o k d k b l i w a l p u o c e n r a s m u s m b o s lo n d o n y i b l g l r c k b r u r w i h o a r b x m d z t p q g l a m v 输入： 输出： (1,3) 76117 (5,6) 753 (8,1) 4444 (8,2) 614 (8,2) 4684 No found 6 dublin lima tokyo prbu paris china Const Fx : Array[1..8,1..2] Of Shortint {定义八个方向} =((0,1),(0,-1),(1,0),(-1,0),(1,-1),(-1,1),(1,1),(-1,-1)); max = 100; {最大字符矩阵} Var A:Array[0..max+1,0..max+1] of Char; {为了节约边界条件的判断，故增加边界范围} B:Array[1..max,1..max] Of Boolean; {标志数组，标志已经搜索过的路径} c:array[1..max] of integer;{记录方向} S:String; N,M,I,J,K,ij,x1,y1 :Integer; found :Boolean; Procedure Init; Var I,J :Integer; Begin Assign(Input,country.in); Reset(Input); Assign(Output,country.out); Rewrite(Output); Readln(M,N); For I:=1 To M Do Begin For J:=1 To N Do Read(A[I,J]); Readln; End; End; procedure print; var ii:integer; begin write((,x1,,,y1,)); for ii:=2 to length(s) do write(c[ii]);{length(s)=t-1} writeln; end; Procedure Work(T,X0,Y0:Integer);{从坐标X0，Y0开始搜索国都名的第t个字符} Var I,x,y : Integer; Begin If t=Length(S)+1 Then begin {搜索完，打印输出} found:=true; print; exit; end; For I:=1 To 8 Do {八个方向进行搜索} Begin x:=x0+fx[i,1];y:=y0+fx[i,2]; If (A[X,Y]=S[T])And(B[X,Y]) Then Begin c[t]:=i; {记录路径} B[X,Y]:=False; {设置已经搜索} Work(T+1,X,Y); {继续搜索下一个} B[X,Y]:=True;{恢复标志} if found then exit;{如果已找到，不再找，排除从同一开始位置的相同国度名} End; End; End; Begin {主程序} Init; Readln(k); For ij:=1 To k Do {