【USACO题库】2.3.5 Controlling Companies控制公司

题目描述

有些公司是其他公司的部分拥有者，因为他们获得了其他公司发行的股票的一部分。例如，福特公司拥有马自达公司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个公司。
写一个程序读入三对数（i，j，p），i，j和p是都在范围(1..100)的正整数，并且找出所有的数对（h，s），使得公司h控制公司s。

PROGRAM NAME: concom
INPUT FORMAT
第一行： N，表明接下来三对数的数量。
第二行到第N+1行： 每行三个整数作为一个三对数（i，j，p），如上文所述。

SAMPLE INPUT (file concom.in)
3
1 2 80
2 3 80

3 1 20

OUTPUT FORMAT

输出零个或更多个的控制其他公司的公司。每行包括两个整数表明序号为第一个整数的公司控制了序号为第二个整数的公司。将输出的每行以第一个数字升序排列（并且第二个数字也升序排列来避免并列）。请不要输出控制自己的公司。

SAMPLE OUTPUT (file concom.out)
1 2
1 3

2 3

这道题其实很简单，构建一个图，dfs的时候记录一下，把当前搜到的第k个公司的值用f数组储存起来，从哪里搜就从哪个公司加，最后判断f数组。

var
        i,j,n,x,y:longint;
        f:array[1..100] of longint;
        a,s:array[1..100,0..100] of longint;
        bz:array[1..100] of boolean;
procedure dfs(k:longint);
var
        i:longint;
begin
        for i:=1 to a[k,0] do
                inc(f[a[k,i]],s[k,a[k,i]]);
        for i:=1 to a[k,0] do
                if (f[a[k,i]]>50) and bz[a[k,i]] then
                begin
                        bz[a[k,i]]:=false;
                        dfs(a[k,i]);
                        bz[a[k,i]]:=true;
                end;
end;
begin
        readln(n);
        for i:=1 to n do
        begin
                readln(x,y,s[x,y]);
                inc(a[x,0]);
                a[x,a[x,0]]:=y;
        end;

        fillchar(bz,sizeof(bz),1);
        for i:=1 to 100 do
        begin
                fillchar(f,sizeof(f),0);
                bz[i]:=false;
                dfs(i);
                bz[i]:=true;
                for j:=1 to 100 do
                        if (f[j]>50) and (i<>j) then writeln(i,' ',j);
        end;
end.