typhoon 2008-12-09 20:55:00
点我顶贴
收藏
删除
program Project1;
var i,j,n,m,k1,k2:integer;
a:array[1..12,1..12]of integer;
b:array[1..200]of integer;
procedure sou;
var y1,y2,y3:integer;
begin
y3:=0;
for y1:=1 to n do begin
for y2:=1 to n do
if a[y1,y2]=1 then y3:=1;
if y3=0 then begin k2:=y1; exit; end;
y3:=0;
end;
end;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=0;
for i:=1 to n do begin
read(m);
for j:=1 to m do begin
read(k1);
a[i,k1]:=1;
end;
readln;
end;
k1:=1;
repeat
sou;
b[k1]:=k2;
inc(k1);
for i:=1 to n do a[i,k2]:=0;
for j:=1 to n do a[k2,j]:=1;
until k1=n+1;
for i:=1 to n-1 do write(b[i],’ ’);
writeln(b[n]);
readln;
end.