Consultoría Informática: Programas a medida, Páginas web, Tiendas Online, Posicionamiento en Internet (SEO), Accesibilidad, Usabilidad...

Procedimiento para recorrer una lista enlazada

WebProgramacion > Recursos sobre informática y tecnología > Programacion > PASCAL > Procedimiento para recorrer una lista enlazada
Autor: José Luis Álvarez

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;

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;

Podría interesarte...

Procedimiento para crear una lista
Procedimiento para crear una lista de nodos
Busqueda en una lista
Busqueda de un nombre en una lista de nombres
Añadir un nodo al final de una lista
Procedimiento en Pascal que añade al final de una lista un nodo
Ordenar una lista enlazada
Programa que ordena alfabéticamente los elementos de una lista