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.