家谱树(gentree)

【题目描述】
有个人的家族很大，辈分关系很混乱，请你帮整理一下这种关系。
给出每个人的孩子的信息。
输入一个序列，使得每个人的后辈都比那个人后列出。

【输入】
第一行一个整数（1<=N<=100），表示家族的人数。
接下来N行，第I行表示第I个人的儿子。
每行最后是0表示描述完毕。

【输出】
输出一个序列，使得每个人的后辈都比那个人后列出。
如果有多解输出任意一解。

【输入样例】
5
0
4 5 1 0
1 0
5 3
0
3 0

【输出样例】
2 4 5 3 1

思路

裸题拓补排序

program gentree;
var
  ok,n,i,now,top,pin,apple,j:longint;
  ru,chu:array[0..100] of longint;
  vis:array[1..100] of boolean;
  a:array[1..100,1..100] of longint;

procedure init;
begin
  readln(n);
  for i:= 1 to n do
    begin
     repeat
       inc(chu[i]);
       read(a[i,chu[i]]);
       inc(ru[a[i,chu[i]]]);
     until a[i,chu[i]]=0;
     dec(chu[i]);
    end;
end;
{
procedure addstack;
begin
    for i:= 1 to n do
      if ru[i]=0 then
        begin
            inc(top);
            stack[top]:=i;
        end;
end;  }

procedure db(apple:longint);
begin

   for j:= 1 to chu[apple] do
    dec(ru[a[apple,j]]);

end;

procedure topo;
begin

  repeat
    for i:= 1 to n do
      if (ru[i]=0) and (not(vis[i])) then
        begin
            write(i,' ');
            db(i);
            inc(ok);
            vis[i]:=true;
        end;
  until ok=n;

end;

begin
  assign(input,'gentree.in');
  assign(output,'gentree.out');
  reset(input);
  rewrite(output);

  init;
  topo;

  close(input);
  close(output);
end.