Il Linguaggio Fortran 90/95

7.11 Strutture dati dinamiche 387
value
pointer −→
value
pointer −→· · · −→
value
pointer −→
Figura 7.2: Lista concatenata
value
pointer −→
DO
IF (.NOT.ASSOCIATED(current)) EXIT ! esce quando arriva alla coda
PRINT*, current%value ! stampa il valore
current => current%next ! current e’ un alias del prossimo nodo
END DO
STOP
END PROGRAM simple_linked_list
Si osservi attentamente le operazioni effettuate dal programma precedente:
• Inizialmente viene definito un tiponode contenente un valore intero quale campo numerico
ed un componente puntatore che punta ad un oggetto dello stesso tipo.
• Vengono dichiarate due variabili, list e current, di tipo node, la prima delle quali verrà
usata per puntare alla testa della lista, la seconda al generico nodo della lista.
La procedura di costruzione della lista viene illustrata progressivamente come segue:
• All’inizio la lista è vuota sicché essa viene inizializzata ”annullando” il suo alias list.
• Supponendo di acquisire da tastiera un valore intero la lista viene così creata e composta
da un solo nodo atto ad ospitare il valore appena acquisito. Ciò ha luogo innanzitutto
allocando dinamicamente della memoria per il nodo current, quindi immagazzinandovi
il valore nel campo numerico preposto e, infine, facendo sì che la lista, attraverso il suo
alias list, punti alla testa della lista che è ora rappresentata dal nodo appena allocato.
• Il procedimento descritto al punto precedente viene ripetuto identicamente fino a che non
venga inserito da tastiera il valore 0.
Una volta costruita la lista, il compito successivo sarà quello di scorrerne gli elementi e stamparne
i valori. Ciò viene effettuato al modo seguente:
• Si rende l’oggetto current un alias di list facendo sì che esso punti al nodo di testa
della lista.
• Si stampa il valore di quel nodo (ossia il campo numerico di current%value).
• Al termine della stampa l’oggetto current è fatto puntare al nodo successivo.
• Il procedimento testé descritto viene iterato fino a che non viene incontrato un nodo non
associato (vale a dire il nodo di coda della lista).