家族 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.