Cod sursa(job #1667774)

Utilizator crysis2mdRusu Cristian crysis2md Data 29 martie 2016 10:59:28
Problema Parcurgere DFS - componente conexe Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.62 kb
program depth_first;
var a,b:array[1..30,1..30] of integer;
  i,j,n,h:integer;
  nvec:array[1..30] of integer;
  viz:array[1..30] of integer;
procedure FD(i:integer);
begin
viz[i]:=true;
write(i);
for j:=1 to n nvec[i] do 
begin
 if (not viz[b[i,j]]) then 
 begin
 FD(b[i,j]);
 end;
end;
end;
begin
assign(f,'dfs.in');
reset(f);
readln(f,n);
for i:=1 to n do viz[i]:=false;
for i:=1 to n do nvec[i]:=0;
for i:=1 to n do 
begin
 for j:=1 to n do 
 begin
 read(f,a[i,j]);
 if (a[i,j]=1) then 
 begin
   nvec[j]:=nvec[j]+1;
   b[j,nvec[j]]:=i;
 end;
 end;
end;
i:=1;
FD(i);
close(f);
readln;
end.