初二，去外婆家

年初二去了外婆家，有近一个月没有去了
外婆、外公都挺健康，但是外婆的记忆力越来越差了
刚来过一个亲戚，后来走了。之后问外婆，她就不记得了……
全家聚在一起，共享节日的欢乐。
后来拍合影时，共有十九个人。
在电脑上修剪照片，利用Cut&Paste轻松地“修补”了外婆的牙齿……
技术力量真的是很可怕的…… 照片伪造也tei容易了一些

SGU 121 AC!

终于AC了~~~
修正了非常多的小BUG，使用随机测试非常多次，终于AC了~
从最初的100行左右，涨到了22x行~~~
新年新气象啊~
下面是验证程序~ 不过不判无解的~
const
maxn=100;

var
c,t,p,q,n:longint;
l,r:array[1..maxn,1..maxn]of longint;
d:array[1..maxn]of longint;
col:array[1..maxn,1..2]of byte;
s:string;

begin
assign(input,’sgu121.in’);reset(input);
readln(n);
for t:=1 to n do
begin
read(p);
while p<>0 do
begin
inc(d[t]);
l[t,d[t]]:=p;
read(p);
end;
end;
close(input);
p:=0;
assign(input,’sgu121.out’);reset(input);
readln(s);
if s=’No solution’ then
begin
writeln(‘Reported No solution…’);
exit;
end;
reset(input);
for t:=1 to n do
begin
read(p);c:=0;
while p<>0 do
begin
c:=c+1;
if l[t,c]=0 then
begin
writeln(‘Error:Edge not present!’);
halt(1);
end else
if r[t,l[t,c]]=0 then
begin
r[t,l[t,c]]:=p;
r[l[t,c],t]:=p;
end else
if r[t,l[t,c]]<>p then
begin
writeln(‘Error:Color Not Suit!’);
halt(2);
end;
col[t,p]:=1;
read(p);
end;
if (col[t,1]+col[t,2]<>2)and(d[t]>=2) then
begin
writeln(‘Error:Condition not furfilled!’);
halt(3);
end;
write(t,’ ‘);
end;
writeln;
close(input);
end.

下面是生成程序：
const
n=100;
fm=200;
fz=198;

var
t,p,q:longint;
l:array[1..n,1..n]of byte;

begin
randomize;
fillchar(l,sizeof(l),0);
for t:=1 to n do
for p:=t+1 to n do
begin
q:=random(fm);
if q>fz then
begin
l[t,p]:=1;
l[p,t]:=1;
end;
end;
writeln(n);
for t:=1 to n do
begin
for p:=1 to n do
if l[t,p]=1 then write(p,’ ‘);
writeln(0);
end;
end.

希望对大家有帮助~