====== Le code in pascal ======
Autore: **//Fabio Di Matteo//** \\ Ultima revisione: **//05/05/2007//**

Come implementare le operazioni di enqueque-dequeue in una coda realizzata mediante una lista concatenata.

<code pascal>
Program Code;
   
type Puntatore = ^cella;
	cella = record
		    info:integer;
		    next:puntatore;
		end;
		
var cont,elemento:integer;
    scelta:char;
    
    punt_testa: puntatore;
    punt_coda: puntatore;
    
    
    
    
    
    Function Enqueue(c:puntatore; var  t:puntatore;ele:integer):puntatore;
    var paus:puntatore;
    begin
	new(paus);
	paus^.info:=ele;
	paus^.next:=nil;
	
	    if c= nil then
	    begin
		t:=paus;
		c:=paus;
	    end
	    else
	    begin
		c^.next:=paus;
		c:=paus;
	    end;
	    
	    Enqueue:=c;
    end;
    
    
    
    procedure visualizza(p:puntatore; var cont:integer);
    begin
    	    if p=nil then
	    begin
		{write('nil');}
		write('<--');
	    end
	    else
	    begin
			
	        write(p^.info);
		write('<--');
		cont:=cont+1;
		visualizza(p^.next,cont);
	    end;
    end;    
    
    
    procedure dequeue(var p:puntatore);
    var t:puntatore;
    begin
	new(t);
	t:=p;
	p:=p^.next;
	dispose(t);
    end;
    
    
begin {blocco principale}
cont:=0;
scelta:='0';
new(punt_testa);
new(punt_coda);
punt_testa:=nil;
punt_coda:=nil;

    

while scelta<>'q' do
begin

    writeln('');
    writeln(' Menu del programma ');
    writeln('');
    writeln('  1 - Enqueue ');
    writeln('  2 - Dequeque ');
    writeln('  3 - Visualizza ');
    writeln('');
    writeln('  q - Esci');
    
    write('comando: ');
    readln(scelta);

    
    
    if scelta='1'then
    begin
	write('elemento --> ');
	readln(elemento);
	punt_coda:=Enqueue(punt_coda,punt_testa,elemento);
    end;
    
        
    
    if scelta='2'then
    begin
	dequeue(punt_testa);
    end;

    if scelta='3'then
    begin
	cont:=0;
	write('Testa: ');
	visualizza(punt_testa,cont);
	writeln(' : Coda ');
	writeln('  ( ',cont,' elementi. )');
    end;


end;
writeln('Programma terminato.');
end.
    

</code>