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;