查找湖南问题

skysun原创，转载请注明出处

一、 查找湖南问题(hunan.pas)。

有一个含有N×N(N<=20)的大写字母方阵，试编程找出其中隐含的所有“HUNAN”字样，五个字母只能以上下左右方向连续。

    输入：方阵由文本文件读入，文本文件第一行存放Ｎ的值，第二行开始依次存放各行的字母。

    输出：写入文件中，每一行一个方案，每行内容为方案中依次经过字符的行号和列号，若无法找到，则输出“NO ANSWER！”。

输入输出举例：

输入：input.TXT：　　　　 则输出output.TXT

  6　　　　                    NO.1  (1,2) (2,2) (3,2) (4,2) (4,1)

          AHUBBJ   　　　　NO.2  (1,2) (2,2) (3,2) (3,3) (3,4)

          UUKDAE  　　　　 NO.3  (6,3) (6,4) (6,5) (6,6) (5,6)

          BNANNH

          NAANWA

          SPOUCN 

　　　　RTHUNA

{由于排版问题，格式不大美观，来源不详……自己在湖南的相关测试里找吧。。}

细节问题大部分在程序里有注释

输出优先级为使y坐标尽可能小，然后使x坐标尽可能小

skysun原创转载请注明出处 http://www.cnblogs.com/skysun

 

program sky;
var
   px     : array[1..4] of longint=(0,-1,1,0);
   py     : array[1..4] of longint=(-1,0,0,1);
   f     : array[0..5,1..2] of longint;
   c     : array[0..21,0..21] of char;
   i,j,n : longint;
   tot     : longint;
   s     : string[5];
   v     : array[0..20,0..20] of boolean;
   {p 数组定义时方向顺序很重要}
procedure dfs(x,y,k :longint );
var
   i,j: longint;{淫荡的一个地方，j要是里面不开的话就死循环了......}
begin
   for i:=1 to 4 do
      if c[x+px[i],y+py[i]]=s[k+1] then
     if not v[x+px[i],y+py[i]] then {v数组还是要的，不然因为‘HUNAN’第三位和第五位一样。会尴尬的。。}
     if k=4 then
     begin
        inc(tot);
        write('NO.',tot,' (');
        for j:=1 to 4 do write(f[j,1],',',f[j,2],') (');
        writeln(x+px[i],',',y+py[i],')');
     end else
     begin
        f[k+1,1]:=x+px[i]; f[k+1,2]:=y+py[i];{之前打错了啊。。。。。}
        v[x+px[i],y+py[i]]:=true;
        dfs(x+px[i],y+py[i],k+1);
        v[x+px[i],y+py[i]]:=false;
     end;
     
end;
begin
   assign(input,'hunan.in'); reset(input);
   assign(output,'hunan.out'); rewrite(output);
   readln(n); s:='HUNAN';
   for i:=1 to n do
   begin
      for j:=1 to n do read(c[i,j]);
      readln;
   end;
   for i:=1 to n do
      for j:=1 to n do
     if c[j,i]='H' then
     begin
        f[1,1]:=j; f[1,2]:=i;
        dfs(j,i,1);
     end;
   if tot=0 then writeln('NO ANSWER!');
   close(input); close(output);
end.

至于题目解法，必然搜索吧 。就看怎么写更简洁，不爱出错了。