求连通分量

最新推荐文章于 2021-12-16 11:05:23 发布

转载最新推荐文章于 2021-12-16 11:05:23 发布 · 407 阅读

上课ing 专栏收录该内容

21 篇文章

订阅专栏

求连通分量

Time Limit:1000MS Memory Limit:65536K
Total Submit:244 Accepted:136

Description

求一个图的连通分量

Input

n 顶点数(<=100)
边

Output

连通分量

Sample Input

Sample Output

Source

elba

var
a:array[1..1000,1..1000] of boolean;
v:array[1..1000] of boolean;
i,j,k,n,l,max,x,y,ans:longint;
procedure use(l:longint);
var
j:longint;
begin
for j:=1 to n do
if (a[j,l]=true)and(v[j]=false) then
begin
v[j]:=true;
inc(max);
use(j);
end;
end;
begin
read(n);
readln(x,y);
while (x<>0)and(y<>0) do
begin
a[x,y]:=true;
a[y,x]:=true;
readln(x,y);
end;
for i:=1 to n do
begin
max:=0;
use(i);
if max>ans then ans:=max;
end;
write(ans);
end.