并查集基础题：relation

最新推荐文章于 2023-02-22 14:58:59 发布

原创最新推荐文章于 2023-02-22 14:58:59 发布 · 272 阅读

0 ·

CC 4.0 BY-SA版权

模板同时被 2 个专栏收录

7 篇文章

订阅专栏

并查集

1 篇文章

订阅专栏

本文介绍了一种使用并查集算法解决图论中连通性问题的方法。通过定义必要的数据结构，实现查找根节点和合并操作，有效地处理了顶点之间的连接关系。适用于判断两个顶点是否属于同一集合。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

const ww='relation.';
      maxn=20000;//直接赋值会T
var i,m,q:longint;
    n,x,y,r1,r2:integer;
    a:array[0..maxn+1] of integer;

function findroot(x:integer):integer;
var path:array[1..maxn] of longint;
    k,root,i:longint;//不要有多余变量名
begin
  k:=0;
  root:=x;
  while a[root]<>root do
    begin
      inc(k);
      path[k]:=root;
      root:=a[root];
    end;
    findroot:=root;
    for i:=1 to k-1 do a[path[i]]:=root;
end;

procedure union(r1,r2:integer);
begin
  a[r2]:=r1;
end;

procedure init;//不要放太多输入在里面，会T。
begin
  assign(input,ww+'in'); reset(input);
  assign(output,ww+'out'); rewrite(output);
end;

procedure clo;
begin
  close(input);
  close(output);
end;

  begin
    init;
    readln(n,m);
    for i:=1 to n do a[i]:=i;
    for i:=1 to m do
     begin
       readln(x,y);
       r1:=findroot(x);
       r2:=findroot(y);
       if r1<>r2 then union(r1,r2);
     end;
   readln(q);
   for i:=1 to q do
     begin
      readln(x,y);
      if findroot(x)=findroot(y) then writeln('Yes')
                                 else writeln('No');
     end;
    clo;
  end.