luoguP1551 亲戚

P1551 亲戚

题目背景

若某个家族人员过于庞大，要判断两个是否是亲戚，确实还很不容易，现在给出某个亲戚关系图，求任意给出的两个人是否具有亲戚关系。

题目描述

规定：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：

6 5 3
1 2
1 5
3 4
5 2
1 3
1 4
2 3
5 6

输出样例#1：

Yes
Yes
No

说明

非常简单的并查集入门题哦！！！

最初版本：

program relation;
const
  inf='relation.in';
  outf='relation.out';
var
  father:array[0..20000] of longint;
  i,n,m,q,a,b,t1,t2:longint;

function find(apple:longint):longint;
begin
    if father[apple]<>apple then father[apple]:=find(father[apple]);
    exit(father[apple]);
end;

procedure union(aa,bb:longint);
begin
    father[bb]:=aa;
end;


begin
  //assign(input,inf);
  //assign(output,outf);
  //reset(input); rewrite(output);

  readln(n,m,q);
  for i:= 1 to n do
    father[i]:=i;   //init;

  for i:= 1 to m do
   begin
    read(a,b);
    t1:=find(a);
    t2:=find(b);
    if t1<>t2 then union(t1,t2);
   end;

  for i:= 1 to q do   //ask
    begin
        readln(a,b);
        if find(a)=find(b) then writeln('Yes')
          else writeln('No');
    end;

  close(input);
  close(output);
end.

优化版本：

{
    并查集：
    先读入，然后找两个点的flag，然后合并(后面接着前面)
}

program relation;
const
  inf='relation.in';
  outf='relation.out';
var
  father:array[0..20000] of longint;
  i,n,m,q,a,b,t1,t2:longint;

function find(apple:longint):longint;
begin
    if father[apple]<>apple then father[apple]:=find(father[apple]);
    exit(father[apple]);
end;

procedure union(aa,bb:longint);
begin
    father[bb]:=aa;
end;

begin
  //assign(input,inf);
  //assign(output,outf);
  //reset(input); rewrite(output);

  readln(n,m,q);
  for i:= 1 to n do
    father[i]:=i;   //init;

  for i:= 1 to m do
   begin
    read(a,b);
    t1:=find(a);
    t2:=find(b);
    if t1<>t2 then union(t1,t2);
   end;

  for i:= 1 to q do   //ask
    begin
        readln(a,b);
        if find(a)=find(b) then writeln('Yes')
          else writeln('No');
    end;

  close(input);
  close(output);
end.