Mediante el siguiente procedimiento podremos visualizar por pantalla una lista enlazada de elementos de tipo TIPO_NODO
Sean los siguientes tipos:
TIPO_NODO = ^NODO;
NODO = RECORD
nombre : string;
sig : TIPO_NODO;
END;
NODO = RECORD
nombre : string;
sig : TIPO_NODO;
END;
El procedimiento sería el siguiente:
PROCEDURE RECORRE_LISTA(lista :TIPO_NODO);
BEGIN
WHILE lista<>nil DO
BEGIN
write(lista^.nombre,’ ‘);
lista:=lista^.sig;
END;
END;
BEGIN
WHILE lista<>nil DO
BEGIN
write(lista^.nombre,’ ‘);
lista:=lista^.sig;
END;
END;