家族 SSL_1896

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

标准并差集，注意一下换行和大写就好

var
 a,r:array[0..10001]of longint;
 i,j,n,x,y,s,t,m,xx,yy:longint;
function find(n:longint):longint;
var
 i,j,s,root:longint;
begin
 s:=n;
 while a[s]>0 do s:=a[s];
 root:=s;
 s:=n;
 while a[s]>0 do
   begin
     j:=a[s];
     a[s]:=root;
     s:=j;
   end;
 exit(root);
end;

procedure union(sn,sm,n,m:longint);
var
 i:longint;
begin
 if r[sn]<=r[sm] then
   begin
     a[sn]:=sm;
     if r[sn]=r[sm] then inc(r[sn]);
   end
 else a[sm]:=sn;
end;

begin
 read(n,m,s);
 for i:=1 to m do
   begin
     read(x,y);
     xx:=find(x);
     yy:=find(y);
     if xx<>yy then union(xx,yy,x,y);
   end;
 for i:=1 to s do
   begin
     read(x,y);
     if find(x)=find(y) then
     writeln('Yes')  else writeln('No');
   end;
end.