R1485785 Running 0 From jinyuming－
P1335 FPC Vivid Puppy 2009-8-28 19:36:01
到现在还是RUNNING
我的程序：
CONST
ok=[1..9];
TYPE
jh=SET OF 1..9;
VAR
h:array[1..9]OF jh;
s:array[1..9]OF jh;
n,i,j,m,num:integer;
PROCEDURE check;
BEGIN
For i:=1 TO 9 DO
BEGIN
IF (s[i]ok)OR(h[i]ok)
THEN BEGIN
WRITELN('Wrong');
EXIT;
END;
END;
WRITELN('Right');
END;
BEGIN
WHILE NOT eof DO
BEGIN
Read(n);
For i:=1 TO n DO
BEGIN
For j:=1 TO 9 DO
BEGIN
READLN;
For m:=1 TO 9 DO
BEGIN
READ(num);
s[m]:=s[m]+[num];
h[j]:=h[j]+[num];
END;
END;
check;
READLN;
END;
END;
END.
2 条评论
-
| LV 10 @ 2009-08-29 09:25:43
最后一个数独后面不用回车的
所以共只有n-1个回车
你多读了一个
系统就会在等待这个回车
所以running -
@ 2009-08-28 20:09:51
R1485906 Running 0 From jinyuming－
P1335 FPC Vivid Puppy 2009-8-28 20:08:14
又卡了
- 1
