[洛谷1101]单词方阵
题目来源
www.luogu.org
原网址
http://www.luogu.org/problem/show?pid=1101#
题目描述
给一nXn的字母方阵，内可能蕴含多个“yizhong”单词。单词在方阵中是沿着同一方向连续摆放的。摆放可沿着8个方向的任一方向，同一单词摆放时不再改变方向，单词与单词之间不交叉,因此不共用字母。输出时，将不是单词的字母用“*”代替，以突出显示单词。例如：输入：8 输出：
qyizhong *yizhong
gydthkjy gy******
nwidghji n*i*****
orbzsfgz o**z****
hhgrhwth h***h***
zzzzzozo z****o**
iwdfrgng i*****n*
yyyygggg y******g
输入输出格式
输入格式： 第一行输入一个数n。(7<=n<=100)。
第二行开始输入nXn的字母矩阵。
突出显示单词的nXn矩阵。
输入输出样例
输入样例#1：7
aaaaaaa
aaaaaaa
aaaaaaa
aaaaaaa
aaaaaaa
aaaaaaa
aaaaaaa
输出样例#1：
*******
*******
*******
*******
*******
*******
*******
n,i,j,k:longint;
ss:string;
s:array[1..100] of string;
p:array[1..100,1..100] of 0..1;
procedure nn(t:longint;s1:string;fx,dq,x,y:longint);
var
i,j,k:longint;
begin
if t>7 then exit;
if s1<>ss[t] then exit;
if fx=0 then fx:=dq;
if t=7 then
begin
j:=x;k:=y;
if fx=1 then for i:=1 to 7 do
begin
p[j,k]:=1;
j:=j-1;
end;
if fx=2 then for i:=1 to 7 do
begin
p[j,k]:=1;
j:=j-1;k:=k-1;
end;
if fx=3 then for i:=1 to 7 do
begin
p[j,k]:=1;
j:=j-1;k:=k+1;
end;
if fx=4 then for i:=1 to 7 do
begin
p[j,k]:=1;
j:=j+1;
end;
if fx=5 then for i:=1 to 7 do
begin
p[j,k]:=1;
j:=j+1;k:=k-1;
end;
if fx=6 then for i:=1 to 7 do
begin
p[j,k]:=1;
j:=j+1;k:=k+1;
end;
if fx=7 then for i:=1 to 7 do
begin
p[j,k]:=1;
k:=k+1;
end;
if fx=8 then for i:=1 to 7 do
begin
p[j,k]:=1;
k:=k-1;
end;
exit;
end;
if fx=0 then
begin
nn(t+1,s[x+1][y],0,1,x+1,y);
nn(t+1,s[x+1][y+1],0,2,x+1,y+1);
nn(t+1,s[x+1][y-1],0,3,x+1,y-1);
nn(t+1,s[x-1][y],0,4,x-1,y);
nn(t+1,s[x-1][y+1],0,5,x-1,y+1);
nn(t+1,s[x-1][y-1],0,6,x-1,y-1);
nn(t+1,s[x][y-1],0,7,x,y-1);
nn(t+1,s[x][y+1],0,8,x,y+1);
end
else
begin
if fx=1 then nn(t+1,s[x+1][y],0,1,x+1,y);
if fx=2 then nn(t+1,s[x+1][y+1],0,2,x+1,y+1);
if fx=3 then nn(t+1,s[x+1][y-1],0,3,x+1,y-1);
if fx=4 then nn(t+1,s[x-1][y],0,4,x-1,y);
if fx=5 then nn(t+1,s[x-1][y+1],0,5,x-1,y+1);
if fx=6 then nn(t+1,s[x-1][y-1],0,6,x-1,y-1);
if fx=7 then nn(t+1,s[x][y-1],0,7,x,y-1);
if fx=8 then nn(t+1,s[x][y+1],0,8,x,y+1);
end;
end;
begin
readln(n);
ss:='yizhong';
for i:=1 to n do readln(s[i]);
for i:=1 to n do
for j:=1 to n do
if s[i,j]=ss[1] then
nn(1,s[i,j],0,0,i,j);
for i:=1 to n do
begin
for j:=1 to n do if p[i,j]=1 then write(s[i,j]) else write('*');
writeln;
end;
end.