JZOJ1270.【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是正解
为什么要用dfs？
如果三个公司x、y、z，其中y是x的子公司，z是y的子公司，那么z也是x的子公司
为了避免某些奇奇怪怪的WA，这里用dfs
从一个公司的每一个子公司（这里的子公司肯定被占有50%以上股票）开始
再找子公司的子公司（与上面同理）
最后判断输出即可
（这里用存边的方法，一次n枚举太慢）

代码：

var
        a,f:array[0..100,0..100]of longint;
        bz:array[0..100]of boolean;
        dis:array[0..100]of longint;
        n,i,j,x,y:longint;
procedure dfs(x:longint);
var
        i:longint;
begin
        if bz[x] then bz[x]:=false
        else exit;
        for i:=1 to a[x,0] do inc(dis[a[x,i]],f[x,a[x,i]]);
        for i:=1 to a[x,0] do
        if dis[a[x,i]]>50 then dfs(a[x,i]);
end;
begin
        read(n);
        for i:=1 to n do
        begin
                read(x,y,f[x,y]);
                inc(a[x,0]);
                a[x,a[x,0]]:=y;
        end;
        for i:=1 to 100 do
        begin
                fillchar(dis,sizeof(dis),0);
                fillchar(bz,sizeof(bz),true);
                dfs(i);
                for j:=1 to 100 do
                if (dis[j]>50)and(i<>j) then writeln(i,' ',j);
        end;
end.