记录编号	8954	评测结果	AAAAAAAAAAAA
题目名称	亲戚	最终得分	100
用户昵称	打不死的羊	是否通过	通过
代码语言	Pascal	运行时间	0.481 s
提交时间	2009-02-11 22:04:21	内存使用	0.50 MiB

program relations;
type
fxz=array[1..20000] of longint;
var
f1,f2:text;
num,next,first,mz,last:fxz;
a,b,n,m,i,p,x,y,xx:longint;
begin
assign(f1,'relations.in');
assign(f2,'relations.out');
reset(f1);rewrite(f2);
readln(f1,n,m);
for p:=1 to n do
begin
num[p]:=1;
first[p]:=p;
last[p]:=p;
mz[p]:=p;
next[p]:=0;
end;
{..........................................................}
for p:=1 to m do
begin
readln(f1,a,b);
if mz[a]<>mz[b] then begin
y:=mz[a];
x:=first[mz[b]];
xx:=x;
next[last[y]]:=first[mz[b]];
last[y]:=last[mz[b]];
 while x<>0 do begin mz[x]:=mz[y];
                     x:=next[x];
               end;
num[y]:=num[y]+num[mz[b]];
{................................}
num[xx]:=0;
first[xx]:=0;
last[xx]:=0;
next[xx]:=0;
end;
end;
readln(f1,n);
for i:=1 to n do
begin
readln(f1,a,b);
if mz[a]=mz[b] then writeln(f2,'Yes')
               else writeln(f2,'No');
end;
close(f1);close(f2);
end.