讨论 / 已补充数据范围
binarie 2012-07-27 07:04:00
点我顶贴 收藏 删除
e
#1 @2012-07-27 07:04:00
回复 删除

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遍了,一直想不懂

查看更多回复
提交回复