Pagini recente » Cod sursa (job #1933527) | Cod sursa (job #1688325) | Cod sursa (job #920870) | Cod sursa (job #2372281) | Cod sursa (job #1667774)
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.