VIJOS P1034 家族

描述
若某个家族人员过于庞大，要判断两个是否是亲戚，确实还很不容易，现在给出某个亲戚关系图，求任意给出的两个人是否具有亲戚关系。
规定：x和y是亲戚，y和z是亲戚，那么x和z也是亲戚。如果x,y是亲戚，那么x的亲戚都是y的亲戚，y的亲戚也都是x的亲戚。
格式
输入格式

第一行：三个整数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是否具有亲戚关系。
输出格式

P行，每行一个’Yes’或’No’。表示第i个询问的答案为“具有”或“不具有”亲戚关系。
样例1
样例输入1[复制]

6 5 3
1 2
1 5
3 4
5 2
1 3
1 4
2 3
5 6
样例输出1[复制]

Yes
Yes
No
限制
各点1S
来源
cdwind整理提交

并查集：
1.每输入一对亲戚就合并，判断之前是否已经在同一集合可以优化时间。
2.输入询问的x,y时，判断是否在同一个集合，在输出’Yes’，不在输出’No’。

时间复杂度：O（M）

var
   f:array [0..50001] of longint;
   i,j,n,m,p,x,y:longint;

function find(a:longint):longint;
begin
    if f[a]=a then exit(f[a]);
    f[a]:=find(f[a]);
    exit(f[a]);
end;

begin
    readln(n,m,p);
    for i:=1 to n do f[i]:=i;
    for i:=1 to m do
        begin
            readln(x,y);
            if find(x)<>find(y) then f[find(x)]:=f[find(y)];
        end;
    for i:=1 to p do
        begin
            readln(x,y);
            if find(x)=find(y) then writeln('Yes')
                               else writeln('No');
        end;
end.