Tyvj-Begin P1036 Begin2 - Unit1 - 数独验证

http://begin.tyvj.cn:8080/Problem_Show.asp?id=1036 背景 Background XX学校风靡一款智力游戏，也就是数独（九宫格），先给你一个数独，并需要你验证是否符合规则。 描述 Description 具体规则如下:
每一行都用到1,2,3,4,5,6,7,8,9，位置不限，
每一列都用到1,2,3,4,5,6,7,8,9，位置不限，
每3×3的格子（共九个这样的格子）都用到1,2,3,4,5,6,7,8,9，位置不限，
游戏的过程就是用1,2,3,4,5,6,7,8,9填充空白，并要求满足每行、每列、每个九宫格都用到1,2,3,4,5,6,7,8,9。
如下是一个正确的数独:
5 8 1 4 9 3 7 6 2
9 6 3 7 1 2 5 8 4
2 7 4 8 6 5 9 3 1
1 2 9 5 4 6 3 7 8
4 3 6 1 8 7 2 9 5
7 5 8 3 2 9 1 4 6
8 9 2 6 7 1 4 5 3
6 1 5 9 3 4 8 2 7
3 4 7 2 5 8 6 1 9

输入格式 Input Format 输入n个数独，你来验证它是否违反规则.
第一行为数独个数，第二行开始为第一个数独，之后为第二个，至第n个.
注意！每个数独之间有一个回车隔开! 输出格式 Output Format 若正确则输出”Right”若不正确则输出”Wrong” 输出一个换一行

样例输入 Sample Input

2
5 8 1 4 9 3 7 6 2
9 6 3 7 1 2 5 8 4
2 7 4 8 6 5 9 3 1
1 2 9 5 4 6 3 7 8
4 3 6 1 8 7 2 9 5
7 5 8 3 2 9 1 4 6
8 9 2 6 7 1 4 5 3
6 1 5 9 3 4 8 2 7
3 4 7 2 5 8 6 1 9 1 2 3 4 5 6 7 8 9
2 3 4 5 6 7 8 9 1
3 4 5 6 7 8 9 1 2
4 5 6 7 8 9 1 2 3
5 6 7 8 9 1 2 3 4
6 7 8 9 1 2 3 4 5
7 8 9 1 2 3 4 5 6
8 9 1 2 3 4 5 6 7
9 1 2 3 4 5 6 7 8

样例输出 Sample Output Right Wrong 时间限制 Time Limitation 各个测试点1s 注释 Hint 1<=n<=20 （输入的数独个数）
不论输入的数独是错误的还是正确的,数据都保证每个数在1-9之间,即只会出现因为有相同的数而导致违反规则,而不会因为数字超出了1-9的范围而违反规则.

NC了一把，第一次横竖直接扔一起判断了，不过数据倒是很给面子，就错了一个点，要是考试时不爽翻了，思路错了一块还能AC9个点，盯着代码2分钟后检查出来错误最后一点AC。。

program p1036;
type
sd = array[1..9,1..9]of byte;
var
rh:array[1..20]of boolean;
a:sd;
n,i,k,j:integer;
function judgehs(z:sd):boolean;
var
p:array[1..9]of boolean;
t,o,b:integer;
begin
judgehs:=true;
for t := 1 to 9 do
begin
for b := 1 to 9 do p[b]:=false;
for o := 1 to 9 do
p[z[t,o]]:=true;
for b := 1 to 9 do if not(p[b]) then exit(false);
end;
end;
function judgejg(w:sd):boolean;
var
q:array[1..9]of boolean;
e:array[1..3]of integer;
x,y,r,s,u,v:integer;
begin
judgejg:=true;
e[1]:=1;e[2]:=4;e[3]:=7;
for r := 1 to 3 do
begin
v:=e[r];
for s := 1 to 3 do
begin
u:=e[s];
for x := 1 to 9 do q[x]:=false;
for x := v to v+2 do
for y := u to u+2 do
q[w[x,y]]:=true;
for x := 1 to 9 do if not(q[x]) then exit(false);
end;
end;
end;
begin
readln (n);
for k := 1 to n do
begin
for i := 1 to 9 do
for j := 1 to 9 do
read (a[i,j]);
if k < n then readln;
if judgehs (a) then
begin
if judgejg(a) then rh[k]:=true else rh[k]:=false;
end else rh[k]:=false;
end;
for k := 1 to n do
if rh[k] then writeln ('Right') else writeln ('Wrong');
end.