#1 岚@2012-07-27 07:04:00
26655
回复
删除
额
var n,m,i,x,y,ans:longint;
f,s:array[0..1100] of longint;
procedure swap(var x,y:longint);
var k:longint;
begin
k:=x;
x:=y;
y:=k;
end;
function find(x:longint):longint;
begin
if f[x]<>x then find(f[x]);
exit(f[x]);
end;
begin
readln(n,m);
for i:=1 to n do begin
f[i]:=i;
s[i]:=1;
end;
for i:=1 to m do begin
readln(x,y);
if x>y then swap(x,y);
x:=find(x);
y:=find(y);
f[x]:=y;
inc(s[y],s[x]);
end;
for i:=1 to n do if s[i]>ans then ans:=s[i];
writeln(ans);
end.
可以指点一下这个程序为什么错了吗,交了N遍了,一直想不懂