并查集最基础的题目--家族 pascal 找错..

题目说明：
描述
若某个家族人员过于庞大，要判断两个是否是亲戚，确实还很不容易，现在给出某个亲戚关系图，求任意给出的两个人是否具有亲戚关系。
规定：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个询问的答案为“具有”或“不具有”亲戚关系。

program family；
var root:array[0..5000]of longint；
i,j,k,m,n,p,x,y:longint；
procedure find_root(x:longint)；
begin
if root[x]=x then exit；
find_root(root[x])；
root[x]:=root[root[x]]；
end；
begin
read(n,m,p)；
for i:= 1 to n do
root[i]:=i；
for i:= 1 to m do
begin
read(x,y)；
find_root(x)；
find_root(y)；
if root[x]<>root[y] then
root[y]:=x；
end；
for i:= 1 to p do
begin
read(x,y)；
find_root(x)；
find_root(y)；
if root[x]=root[y] then

if root[x]<>root[y] then
root[y]:=x
改成
if root[x]<>root[y] then root[root[y]]:=root[x];
因为原程序只修改了y的指向，并没有原来y所在集合的其他元素的指向。

用过程的话求得的值带不回来
建议用函数

英语的基础题目 高中物理的基础题目 请回答并解释以下会计基础题目 关于java的基础题目 电工基础题目的答案 基础题目 java题目(简单的基础题) 问一道概率论的基础题目 高三物理题目,比较基础的 几个初一数学题目（基础的）