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:
 
COADA - PASCAL
Colt dreapta
Vizite: ? Nota: ? Ce reprezinta? Intrebari si raspunsuri
 

Def: Reprezinta o alta categorie speciala de lista liniara in care elementele se adauga la un capat (la sfarsit) si se suprima la celalat capat (la inceput). Se mai numeste si lista de tip FIFO (first in first out). d4n3nf
Datorita modului in care se fac prelucrarile in coada va trebui sa avem tot timpul 2 variabile dinamice -; prim pentru adresa primului element si ultim pentru adresa ultimului element depus.
Pentru operatiile de creare, adaugare, stergere si listare vom folosi de aceasta data numai 3 proceduri - o procedura de intrare prin care vom pune elemente in coada, o procedura de iesire prin care vom sterge elem din coada si o procedura de listare.
1. Sa se prelucreze o coada de cuvinte utilizand prelucrarile amintite mai sus.
PROGRAM prelucrari_coada_cuvinte;
Type
Lista = ^nod ;
Nod = record elem : stringa15i ; adr : lista ; end ;
VAR c, prim, ultim : lista; cuv : stringa15i; r : char ; procedure intrare(var p,n : lista); begin if p = nil then begin new(c);
Write(‘Dati un cuvant: ‘); Readln(c^.elem); c^.adr := nil; p := c; n := c; end else Begin new(c);
Write(‘Dati un cuvant ’); readln(c^.elem); c^.adr := nil; u^.adr := c; u := c ; end ; end;




PROCEDURE iesire(VAR p:lista);
Begin
IF p = nil THEN Writeln(‘Coada e goala’)
ELSE Begin
Writeln(‘Putem sterge elemental ‘,p^.elem); c := p; p := c^.adr; dispose(c); end ; end;
PROCEDURE listare(VAR p :lista) ;
Begin
IF p = nil THEN Write(‘ coada e goala ‘)
ELSE Begin c := p;
While c <> nil do Begin
Writeln(c^.elem); c := c^.adr; end;
End;
End;
Aprogram principalS
BEGIN prim := nil; Acoada goalaS
REPEAT
Writeln(‘Pt intrare apasati I’);
Writeln(‘Pt iesire apasati E’);
Writeln(‘Pt listare apasati L’);
Writeln(‘Pt parasire program apasati Q’);
Readln(r);
CASE upcase (r ) OF
‘I’ : intrare(prim,ultim);
‘E’ : iesire(prim);
‘L’ : listare (prim); end;
UNTIL upcase( r ) = ’Q’;
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