rocls11.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 38 行

{nr min de muchii k un graf sa fie conex}
{nu merge}
var a:array[1..50,1..50] of integer;
    c,viz:array[1..50] of integer;
    m,n,i,j,k,p,q,nc,x,u:integer;
    f:text;
begin
assign(f,'graf.txt');
reset(f);
readln(f,m,n);
for k:=1 to m do begin
                 readln(f,i,j);
                 a[i,j]:=1;
                 a[j,i]:=1;
                 end;
nc:=0;
x:=1;
repeat
inc(nc);
p:=1;
q:=1;
c[1]:=x;
viz[x]:=1;
while q<=p do begin
              u:=c[q];
              for i:=1 to n do
                if (a[u,i]=1) and (viz[i]<>0) then begin
                                                   inc(p);
                                                   c[p]:=i;
                                                   viz[i]:=1;
                                                   end;
               inc(j);
               end;
x:=1;
while (x<=n) and (viz[x]=1) do inc(x);
until x>n;
write(nc-1);
end.