家族

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.