Def: Este o lista liniara simplu inlantuita de tip special in care adaugarile sau scoaterile elementelor se fac la un singur capat numit varful stivei. q1s6sb
Primul element din stiva se numeste baza stivei, iar informatia de legatura a fiecarui element din stiva reprezinta adresa elementului pus anterior in stiva, exceptie facand baza stivei a carei informatie de legatura este NIL.
Datorita locului unde se actioneaza asupra stivei, toate programele care prelucreaza stive vor trebui sa cuprinda o variabila de tip referinta numita varf a carei valoare reprezinta adresa elementului din varful stivei.
Daca stiva este goala, variabila varf va avea valoarea NIL.
Operatii cu stive:
- creare
- adaugare in varf
- stergere in varf
- listare
Program prelucrare_stive;
Type
Lista = ^nod;
Nod = record elem : char; adr : lista; end;
Var varf, c : lista; raspuns : CHAR; n, i : byte;
Procedure creare;
Begin
Write(‘n= ’); readln(n); varf := nil; Ainitial stiva e goalaS
For i := 1 to n do begin
New(c);
Write(‘dati elem ’); readln(c^.elem); c^.adr := varf; varf := c; end;
End;
Procedure listare;
Begin
If varf = nil then

Write(‘stiva este goala’) else begin c := varf;
While c<>nil do begin
Writeln(c^.elem); c := c^.adr; end; end;
End;
Procedure adaugare;
Begin new(c);
Write(‘introd. un elem: ’); readln(c^.elem); c^.adr := varf; varf := c; end;
Procedure stergere; begin
If varf = nil then Writeln(‘Nu avem ce sterge!’) else begin
Writeln(‘Puteti sterge numai ‘,varf^.elem); c : = varf; varf := c^.adr; dispose(c); end; end ;
Aprogram principalS
BEGIN varf := nil;
Repeat
Writeln(‘Daca doriti creare apasati C’);
Writeln(‘Daca doriti listare apasati L’);
Writeln(‘Daca doriti adaugare apasati A’);
Writeln(‘Daca doriti stergere apasati S’);
Writeln(‘Daca doriti iesire apasati E’);
Readln(raspuns) ;
Case upcase(raspuns) of
‘C’ : creare;
‘L’ : listare;
‘A’:adaugare;
‘S’ : stergere else writeln(‘Nu exista operatie asociata!’); until upcase (raspuns) = ’E’;
END.