不是VIP会员,不能显示答案

题目解答

题目:
第2题:家族问题
若某个家族人员过于庞大,要判断两个是否是亲戚,确实还很不容易,现在给出某个亲戚关系图,求任意给出的两个人是否具有亲戚关系。
规定:x和y是亲戚,y和z是亲戚,那么x和z也是亲戚。如果x,y是亲戚,那么x的亲戚都是y的亲戚,y的亲戚也都是x的亲戚。
输入:
第一行:三个整数n,m,p,分别表示有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
请将程序补充完整。
program t2014_6;
var
 r:array[1..5000] of longint;
 n,m,p,i,a,b:longint;
function gfa(u:longint):longint;  
begin
  if r[u]=u then
     exit(u)
  else
         r[u]:=gfa(r[u])       ;  //压缩优化亲戚关系树
  gfa:=r[u];
end;
procedure union(x,y:longint);  //加入亲戚关系
var fx,fy:longint;
begin
  fx:=gfa(x);fy:=gfa(y);
  if fx<>fy then
          r[fx]:=fy       ; 
end;
function query(x,y:longint):boolean;   //查询x和y是否具有亲戚关系
begin
  query:=     gfa(x)=gfa(y)       ;
end;
begin
  readln(n,m,p);
  for i:=1 to n do r[i]:=      i       ;
  for i:=1 to m do
   begin
     readln(a,b);
           union(a,b)       ;
   end;
  for i:=1 to p do
   begin
     readln(a,b);
     if (query(a,b)) then
       writeln('Yes')
     else
       writeln('No');
   end;
end.
考点:
分析:
解答:
评论:
老师: