控制公司(dfs)

题意

有些公司是其他公司的部分拥有者，因为他们获得了其他公司发行的股票的一部分。例如，福特公司拥有马自达公司12%的股票。据说，如果至少满足了以下条件之一，公司A就可以控制公司B了：
• 公司A = 公司B。
• 公司A拥有大于50%的公司B的股票。
• 公司A控制K(K >= 1)个公司，记为C1, ..., CK，每个公司Ci拥有xi%的公司B的股票，并且x1+ .... + xK > 50%。
你将被给予一系列的三对数（i，j，p），表明公司i享有公司j的p%的股票。计算所有的数对（h，s），表明公司h控制公司s。至多有100个公司。

const
maxn=100;
var
i,j,k,x,y,n:longint;
b:array[0..maxn]of longint;
a,c:array[0..maxn,0..maxn]of longint;
f:array[0..maxn]of boolean;
procedure init;
var
i:longint;
begin
    readln(n);
    for i:=1 to n do
    begin
        readln(x,y,c[x,y]);
        inc(a[x,0]);
        a[x,a[x,0]]:=y;
    end;
    fillchar(f,sizeof(f),1)
end;
procedure dfs(k:longint);
var
i:longint;
begin
    for i:= 1 to a[k,0] do
    inc(b[a[k,i]],c[k,a[k,i]]);
    for i:=1 to a[k,0] do
    begin
        if (b[a[k,i]]>50) and f[a[k,i]] then
        begin
            f[a[k,i]]:=false;
            dfs(a[k,i]);
            f[a[k,i]]:=true;
        end;
    end;
end;
procedure main;
var
i:longint;
begin
    for i:=1 to 100 do
    begin
        fillchar(b,sizeof(b),0);
        f[i]:=false;
        dfs(i);
        f[i]:=true;
        for j:=1 to 100 do
        if (b[j]>50) and (i<>j) then writeln(i,' ',j);
    end;
end;
begin
    init;
    main;
end.