Fituica

Peste 1000 de copiute GRATUITE de la useri si de pe Internet la toate materiile.

Lista materii:

Am lansat versiunea noua (2010) a programului de facut copiute pentru telefonul mobil!

Am lansat cel mai tare site de metode si tehnici de copiat!

Graf neorientat ; parcurgerea in adancime

program prog;
type pnod=^nod;
nod=record
info:integer;
leg:pnod;
end;
lista=array[1..100]of pnod;
vec=array[1..100]of integer;
var l:lista;
p:pnod;
s,coada:vec;
k,i,n,j,ic,sc,x:integer;
f:text;
procedure citire(numefis:string;var l:lista;var n:integer);
begin
assign(f,numefis);
reset(F);
readln(f,n);
for i:=1 to n do l[i]:=nil;
while not eof(F) do begin
readln(f,i,j);
new(P);
p^.info:=i;
p^.leg:=l[j];
l[j]:=p;
new(P);
p^.info:=j;;
p^.leg:=l[i];
l[i]:=p;
end;
close(F);
end;
procedure afisare;
begin
for i:=1 to n do begin
write(i,':');
while l[i]nil do begin
write(l[i]^.info,' ');
l[i]:=l[i]^.leg;
end;
writeln;
end;
end;
procedure parcurgere;
var p:pnod;
begin
while 0