1.5Parcurgerea listei
prim
procedure afis(prim:pmod);
var p:pnod;
begin
p:=prim;
while p<> nil do begin
write(p^.info,' ');
p:=p^.urm;
end;
end;
1.6Lungimea listei
function lungime(prim:pnod):integer;
var p:pnod;
l:integer;
begin
l:=0;
p:=prim;
while p<> nil do begin
l:=l+1;
p:=p^.urm;
end;
lungime:=l;
end;
1.7Adaugarea unui nod la inceputul listei
La adaugarea unui nod la inceputul listei
procedam astfel:
-se creeaza nodul(new (p));
-se completeaza campul de informatii(p^.info);
-se completeaza adresa urmatorului nod lui
p(p^.urm);
-se realizeaza legaturile listei cu nodul
p;
procedure AdFirst(var prim:pnod;info:integer);
var p:pnod;
begin
new(p);
p^.info:=info;
p^.urm:=prim;
prim:=p;
end;
1.8Adaugarea unui nod la sfarsitul listei
procedure AdLast(var prim:pnod;info:integer);
var p,q:pnod;
begin
new(p);
p^.info:=info;
p^.urm:=nil;
if prim=nil then prim:=p
else begin
q:=prim;
while q^.urm<>nil do q:=q^.urm;
q^.urm:=p;
end;
end;
