(ssl1896)P1551 家族

家族

Time Limit:10000MS

Memory Limit:65536K

Total Submit:234

Accepted:117

Case Time Limit:1000MS

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

Source

cwj数据

   题解：本题是并查集最基本的模板题，不过要记得压缩路径

var
 a,b:array[0..50000]of longint;
 n,m,p,u,v,x,y,i:longint;
function find(x:longint):longint;
var
 y,w,r:longint;
begin
 y:=x;
 while a[y]>0 do y:=a[y];//找到根节点
 r:=y;
 y:=x;
 while a[y]>0 do//压缩路径，将较深层的子节点连到根节点那儿(当然还是会算权值的啦[本题无])
  begin
   w:=a[y];
   a[y]:=r;//每个子节点连到根节点
   y:=w;//准备把它的父节点连到根节点
  end;
 exit(r);
end;
procedure fusion;//融合(fusion up!（rise）)
begin
 if b[u]<=b[v] then//把两个集合融合(小的进去大的)
                begin
                 a[u]:=v;
                 if b[u]=b[v] then b[v]:=b[v]+1;//多了一层(相等就没有附属关系了)
                end
               else a[v]:=u;
end;
begin
 read(n,m,p);
 for i:=1 to m do
  begin
   read(x,y);
   u:=find(x);
   v:=find(y);
   if u<>v then fusion;//不是同一个集合就融合
  end;
 for i:=1 to p do
  begin
   read(x,y);
   if find(x)=find(y) then writeln('Yes')
                      else writeln('No');
  end;
end.