控制公司

题目描述

有些公司是其他公司的部分拥有者，因为他们获得了其他公司发行的股票的一部分。(此处略去一句废话）据说，如果至少满足了以下三个条件之一，公司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个公司。

写一个程序读入N组数(i,j,p)，i,j和p是都在范围(1..100)的正整数，并且找出所有的数对(h,s)，使得公司h控制公司s。

输入输出格式

输入格式：

第一行： N，表明接下来三个数的数量，即(i,j,p)的数量。

第二行到第N+1行： 每行三个整数作为一个三对数(i,j,p)，表示i公司拥有j公司 p%的股份。

输出格式：

输出零个或更多个的控制其他公司的公司。每行包括两个整数A、B,表示A公司控制了B公司。将输出的数对以升序排列。

请不要输出控制自己的公司(应该是不输出自己，互相控制的公司还是要输出的）。

输入输出样例

输入样例#1：

3
1 2 80
2 3 80
3 1 20

输出样例#1：

1 2
1 3
2 3

说明

翻译来自NOCOW

USACO 2.3

const MAXN = 100;type arr = array[1..MAXN]of longint;var M,i,N,x,y,p,node,j : longint; hash : array[1..MAXN]of boolean; a : arr; map : array[1..MAXN]of arr;begin readln(M); for i := 1to M dobegin readln(x,y,p); map[x,y] := p; N := max(N,x); N := max(N,y); end;for node := 1to N dobegin fillchar(hash,MAXN,0); hash[node] := true; a := map[node]; repeatfor i := 1to N doifnot hash[i] and (a[i] > 50)then break; if hash[i] or (a[i] <= 50)thenbeginfor i := 1to node-1doif hash[i] then writeln(node,' ',i);for i := node+1to N doif hash[i] then writeln(node,' ',i); break; end; hash[i] := true; for j := 1to N do inc(dist[j],map[i,j]); until false; end;end.