1、家族vijos 1034
描述 Description
若某个家族人员过于庞大,要判断两个是否是亲戚,确实还很不容易,现在给出某个亲戚关系图,求任意给出的两个人是否具有亲戚关系。
规定:x和y是亲戚,y和z是亲戚,那么x和z也是亲戚。如果x,y是亲戚,那么x的亲戚都是y的亲戚,y的亲戚也都是x的亲戚。
输入格式 Input Format
第一行:三个整数n,m,p,(n<=5000,m<=5000,p<=5000),分别表示有n个人,m个亲戚关系,询问p对亲戚关系。以下m行:每行两个数Mi,Mj,1<=Mi,Mj<=N,表示Ai和Bi具有亲戚关系。接下来p行:每行两个数Pi,Pj,询问Pi和Pj是否具有亲戚关系。
输出格式 Output Format
P行,每行一个’Yes’或’No’。表示第i个询问的答案为“具有”或“不具有”亲戚关系。
样例输入 Sample Input
6 5 3
1 2
1 5
3 4
5 2
1 3
1 4
2 3
5 6
样例输出 Sample Output
Yes
Yes
No
分析:
因为要查找多次,有涉及集合,那并查集最合适不过了。
-
var i,j,k,n,m,p,x,y:longint; a:array[1..100001]of longint; function getfather(v:longint):longint; var i,j:longint; begin if a[v]=v then exit(v); a[v]:=getfather(a[v]); getfather:=a[v]; end; procedure find(x,y:longint); begin x:=getfather(x); y:=getfather(y); a[x]:=y; end; begin readln(n,m,p); for i:=1 to n do a[i]:=i; for i:=1 to m do begin readln(x,y); find(x,y); end; for i:=1 to p do begin readln(x,y); if getfather(x)=getfather(y) then writeln('Yes') else writeln('No'); end; end.