控制公司(dfs)
来源:互联网 发布:知乎live怎么免费听 编辑:程序博客网 时间:2024/05/19 15:24
题意
有些公司是其他公司的部分拥有者,因为他们获得了其他公司发行的股票的一部分。例如,福特公司拥有马自达公司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.
- 控制公司(dfs)
- USACO 2.3 控制公司 (DFS)
- 控制公司
- usaco 2.3.5控制公司
- 【USACO2.3.5】控制公司 BFS
- 搜索——控制公司
- 开公司(排列枚举、DFS)
- 公司公司代码业务范围成本控制范围概念
- 【DFS】CODE[VS] 1091 传染病控制
- 洛谷 1041 [NOIP2003] 传染病控制 dfs
- 咨询公司应注意成本控制
- 公司需求控制失败的案例
- MS ISA2006 + BS 完美控制公司网络
- 给公司代码分配信贷控制范围
- LiveChat创立者重新控制公司
- 在公司如何远程控制家中电脑
- 给公司代码分配信贷控制范围
- [USACO2.3]控制公司 Controlling Companies
- Selenium配合chromedriver提示“Message: 'chromedriver' executable needs to be in PATH.Please see ...”
- 约瑟夫环
- UnityShader官方案例讲解——SurfaceShader(3)
- 关键字 extern
- docker pull 下来的镜像文件存放的位置
- 控制公司(dfs)
- Hibernate中Session.load/get方法
- 总结的前端入门方法
- eclipse 当中,小白们所不知道的 CRTL+1 快捷键
- JSP文件和Servlet在文件目录以及服务器中配置的不同
- 自定义ViewGroup-自定义LayoutParams支持显示方位
- 排序
- 应用java mail和阿里云发送邮件和上传附件
- 使用HTML5制作云层效果