ATENCIÓN AL CLIENTE: +34 923 199 148

Procedimiento para recorrer una lista enlazada

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;
Quizá te interese...