1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

program colas_lista_enlazada_circular;
 
Type
    tCola = ^nodo;
    nodo = Record         clave : Integer;
         sig : tCola;
    End;
 
Procedure Crear(Var c1 : tcola);begin
     c1 := NIL
End;
 
Function Vacia(c1 : tcola) : Boolean;Begin
     Vacia := c1 = NIL
End;
 
Procedure Encolar(Var c1 : tcola; elem : Integer);Var
   nuevo : tcola;
begin
     new(nuevo);
     nuevo^.clave := elem;     if c1 = NIL then
        nuevo^.sig := nuevo
     else begin
          nuevo^.sig := c1^.sig;
          c1^.sig := nuevo     end;
     c1 := nuevo
end;
 
Procedure Desencolar(Var c1 : tcola; Var elem : Integer);Var
   nuevo : tcola;
Begin
     elem := c1^.sig^.clave;
     if c1 = c1^.sig then begin        dispose(c1);
        c1 := NIL
     end
     else begin
        nuevo := c1^.sig;        c1^.sig := nuevo^.sig;
        dispose(nuevo)
     end
end;
   { Programa de prueba }
Var
   cola : tcola;
   elem : Integer;
begin     crear(cola);
     if (vacia(cola)) then writeln('Cola vacia');
     encolar(cola, 3);
     desencolar(cola, elem)
end.