家族
来源:互联网 发布:帝国全面战争 知乎 编辑:程序博客网 时间:2024/06/10 09:06
Description
若某个家族人员过于庞大,要判断两个是否是亲戚,确实还很不容易,现在给出某个亲戚关系图,求任意给出的两个人是否具有亲戚关系。
规定:x和y是亲戚,y和z是亲戚,那么x和z也是亲戚。如果x,y是亲戚,那么x的亲戚都是y的亲戚,y的亲戚也都是x的亲戚。
Input
第一行:三个整数n,m,p,(n<=50000,m<=50000,p<=50000),分别表示有n个人,m个亲戚关系,询问p对亲戚关系。以下m行:每行两个数Mi,Mj,1<=Mi,Mj<=N,表示Ai和Bi具有亲戚关系。接下来p行:每行两个数Pi,Pj,询问Pi和Pj是否具有亲戚关系。
Output
P行,每行一个’Yes’或’No’。表示第i个询问的答案为“具有”或“不具有”亲戚关系。
Sample Input
6 5 3
41 2
1 5
3 4
5 2
1 3
1 4
2 3
5 6
Sample Output
Yes
Yes
No
程序:
varn,m,k:longint;r,p:array[0..60000]of longint; w=function find(x:longint):longint;vary,w,root:longint;begin y:=x; while p[y]>0 do y:=p[y]; root:=y; y:=x; while p[y]>0 do begin w:=p[y];p[y]:=root;y:=w; end; find:=root;end;procedure union(x,y:longint);varu,v:longint;begin u:=find(x); v:=find(y); if r[u]<=r[v] then begin p[u]:=v; if r[u]=r[v] then r[v]:=r[v]+1; end else p[v]:=u;end;procedure init;vari,x,y:longint;begin readln(n,m,k); for i:=1 to m do begin readln(x,y); if find(x)<>find(y) then union(x,y); end;end;procedure main;vari,x,y:longint;begin for i:=1 to k do begin readln(x,y); if find(x)=find(y) then writeln('Yes') else writeln('No'); end;end;begin init; main;end.
阅读全文
0 0
- 家族
- 家族
- 家族
- 家族
- 家族
- 家族
- 家族
- VA家族
- SQL家族
- Watir 家族
- UNIX家族
- Watir 家族
- 施耐德家族
- 802.11 家族
- scanf 家族
- printf 家族
- WebSphere家族
- grep 家族
- iOS 计算富文本高度和设置段落样式
- 进制转化,原反补,类型转换
- C++ 中的访问权限与继承方式
- 【强化学习】入门和资料
- vs2015 不安装在C盘引发的几个问题以及解决方法
- 家族
- ecshop二次开发100个修改
- 高斯日记(c语言习题)
- The Way To Go- A Thorough Introduction To The Go Programming Language.pdf 英文原版 免费下载
- eclipse的svn怎么去忽略文件
- 奈奎斯特定理和香农定理(计算机网络物理层)
- (转)python中的time模块
- binder驱动框架注册服务
- 游园购票的打折与抹零