P1101 单词方阵

program dancifangzhen;//-----------------------------------------------------------------const    //  1---y,    2---i,    3---z,    4---h,    5---o,   6---n,   7---g    bian:array[‘g‘..‘z‘] of integer=(7,4,2,0,0,0,0,6,5,0,0,0,0,0,0,0,0,0,1,3);//-----------------------------------------------------------------var   n,i,j,lx,ly,pull:longint;   t:char;   count:array[1..7] of integer;   rx,ry:array[1..7,1..10000] of integer;   ju:array[1..100,1..100] of boolean;   ans:array[1..7,1..2] of integer;   inin:set of char;   inp:array[1..100,1..100] of char;   st:string;//-----------------------------------------------------------------procedure chuli;var   z:longint;begin   for z:=1 to 7 do     ju[ans[z,1],ans[z,2]]:=false;          //对应的标记为falseend;//-----------------------------------------------------------------procedure checkfirst(a,b:longint);begin    pull:=0;    if (a-lx<-1) or (a-lx>1) then exit;    //不在其上一行，下一行或同一行    if (b-ly<-1) or (b-ly>1) then exit;    //不在其左一列，有一列或同一列    if (lx=a) then pull:=1;//1表示在同一行    if (ly=b) then pull:=2;//2表示在同一列    if (lx+ly=a+b) then pull:=3;//3表示在同一 ‘/’ 斜线    if (ly-lx=b-a) then pull:=4;//4表示在同一 ‘\ ’斜线end;//-----------------------------------------------------------------function check(a,b:longint):boolean;begin    if (a-lx<-1) or (a-lx>1) then exit(false);   //不在其上一行，下一行或同一行    if (b-ly<-1) or (b-ly>1) then exit(false);   //不在其左一列，有一列或同一列    if pull=1 then if a<>lx then exit(false);//1----行    if pull=2 then if b<>ly then exit(false);//2----列     if pull=3 then if lx+ly<>a+b then exit(false);//3---- ‘/’ 斜线    if pull=4 then if ly-lx<>b-a then exit(false);//4---- ‘\’ 斜线    exit(true);end;//-----------------------------------------------------------------procedure try(d:longint);var  i,x,y:longint;begin   for i:= 1 to count[d] do   begin     x:=rx[d,i];     y:=ry[d,i];     if d<>1 then begin                              //第一个没有前一个字母                     lx:=ans[d-1,1];               ly:=ans[d-1,2];  //记录前一个字母                  end;     if d=2 then begin                   checkfirst(x,y);//第二次才开始要判断                   if pull=0 then continue;           //pull等于0时表示它不在上一个的任意一条对角线或横纵线上                 end;     if (d>2) and (check(x,y)=false) then continue;  //没通过检查     ans[d,1]:=x;   ans[d,2]:=y;                     //记录     if d<7 then try(d+1)                            //还没找完一个继续try        else chuli;                                  //找完一个就处理   end;end;//-----------------------------------------------------------------begin   inin:=[‘y‘,‘i‘,‘z‘,‘h‘,‘o‘,‘n‘,‘g‘];            //‘yizhong’集合   fillchar(ju,sizeof(ju),true);   readln(n);   for i:= 1 to n do     begin       readln(st);                           //字符串读入比较好，字符很容易出错       for j:= 1 to length(st) do       begin          inp[i,j]:=st[j];          t:=st[j];          if t in inin then begin                                inc(count[bian[t]]);                                rx[bian[t],count[bian[t]]]:=i;                                ry[bian[t],count[bian[t]]]:=j;                            end;       end;     end;   try(1);   for i:= 1 to n do   begin     for j:= 1 to n do                         //输出过程      if ju[i,j] then write(‘*‘)        else write(inp[i,j]);     writeln;   end;end.