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

Añadir un nodo al final de una lista

WebProgramacion > Recursos sobre informática y tecnología > Programacion > PASCAL > Añadir un nodo al final de una lista
Autor: José Luis Álvarez

Procedimiento en Pascal que añade al final de una lista un nodo.

En este caso he supuesto que la lista es una lista de numeros.

TYPE
   T_NODO_NUMEROS = ^NODO_NUMEROS;
   NODO_NUMEROS = RECORD
      num : INTEGER;
      sig : T_NODO_NUMEROS
      END;

      PROCEDURE PON_NODO(VAR lista : T_NODO_NUMEROS,aux:T_NODO_NUMEROS);
var
   aux2: T_NODO_NUMEROS;
BEGIN
   IF lista = NIL THEN lista^.sig:=aux
   ELSE
   BEGIN
      aux2:=lista;
      WHILE aux2^.sig <> NIL DO aux2:=aux2^.sig;
      aux2^.sig:=aux;
   END;
   aux^.sig:=NIL;
END;

Podría interesarte...

Procedimiento para crear una lista
Procedimiento para crear una lista de nodos
Procedimiento para recorrer una lista enlazada
Procedimiento para recorrer una lista enlazada y visualizar los datos por pantalla en Pascal
Busqueda en una lista
Busqueda de un nombre en una lista de nombres
Ordenar una lista enlazada
Programa que ordena alfabéticamente los elementos de una lista