題意

有些公司是其他公司的部分擁有者，因為他們獲得了其他公司發行的股票的一部分。例如，福特公司擁有馬自達公司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.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500154.html

總結

以上是生活随笔為你收集整理的控制公司(dfs)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。