讨论 / Easy
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.

查看更多回复
提交回复