题目:家族 rqnoj331
题目描述
若某个家族人员过于庞大,要判断两个是否是亲戚,确实还很不容易,现在给出某个亲戚关系图,求任意给出的两个人是否具有亲戚关系。
规定: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个询问的答案为“具有”或“不具有”亲戚关系。
样例输入
6 5 3 1 2 1 5 3 4 5 2 1 3 1 4 2 3 5 6
样例输出
Yes Yes No
并查集之入门题目,完全是标准代码,不解释
Pascal Code
program relation;
var
n,m,p:longint;
f:array[0..5000+10] of longint;
procedure init;
begin
assign(input,'rqnoj331.in');
assign(output,'rqnoj331.out');
reset(input);
rewrite(output);
end;
procedure outit;
begin
close(input);
close(output);
halt;
end;
procedure predoing;
var i:longint;
begin
for i:=1 to n do
f[i]:=i;
end;
function find(x:longint):longint;
begin
if f[x]=x then exit(x);
f[x]:=find(f[x]);
exit(f[x]);
end;
procedure insert(x,y:longint);
var rx,ry:longint;
begin
rx:=find(x);
ry:=find(y);
f[rx]:=ry;
end;
procedure readdata;
var
i,x,y:longint;
begin
read(n,m,p);
predoing;
for i:=1 to m do
begin
read(x,y);
insert(x,y);
end;
for i:=1 to p do
begin
read(x,y);
if find(x)=find(y) then writeln('Yes')
else writeln('No');
end;
end;
procedure main;
begin
end;
begin
init;
readdata;
main;
outit;
end.