Document, comentariu, eseu, bacalaureat, liceu si facultate
Top documenteAdmitereTesteUtileContact
      
    


 


Ultimele referate adaugate

Adauga referat - poti sa ne ajuti cu un referat?

Politica de confidentialitate



Ultimele referate descarcare de pe site
  CREDITUL IPOTECAR PENTRU INVESTITII IMOBILIARE (economie)
  Comertul cu amanuntul (economie)
  IDENTIFICAREA CRIMINALISTICA (drept)
  Mecanismul motor, Biela, organe mobile proiect (diverse)
  O scrisoare pierduta (romana)
  O scrisoare pierduta (romana)
  Ion DRUTA (romana)
  COMPORTAMENT PROSOCIAL-COMPORTAMENT ANTISOCIAL (psihologie)
  COMPORTAMENT PROSOCIAL-COMPORTAMENT ANTISOCIAL (psihologie)
  Starea civila (geografie)
 

Ultimele referate cautate in site
   domnisoara hus
   legume
    istoria unui galban
   metanol
   recapitulare
   profitul
   caract
   comentariu liric
   radiolocatia
   praslea cel voinic si merele da aur
 
despre:
 
Stiva LIFO (last in first out) - Pascal
Colt dreapta
Vizite: ? Nota: ? Ce reprezinta? Intrebari si raspunsuri
 

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.


Colt dreapta
Creeaza cont
Comentarii:

Nu ai gasit ce cautai? Crezi ca ceva ne lipseste? Lasa-ti comentariul si incercam sa te ajutam.
Esti satisfacut de calitarea acestui document, eseu, cometariu? Apreciem aprecierile voastre.

Nume (obligatoriu):

Email (obligatoriu, nu va fi publicat):

Site URL (optional):


Comentariile tale: (NO HTML)


Noteaza documentul:
In prezent fisierul este notat cu: ? (media unui numar de ? de note primite).

2345678910

 
Copyright© 2005 - 2024 | Trimite document | Harta site | Adauga in favorite
Colt dreapta