Procedimientos con pilas
Saludos,
necesito realizar un procedimiento que reciba como parámetros dos listas y cree una nueva con los datos de ambas intercalados. Gracias de ante mano.. Y claro. Si me ayudas con un ejemplo mucho mejor
1 Respuesta
Para no dártelo todo echo, te pondré aquí los dos procedimientos que necesitarías para hacer lo que quieres. Con esto, intenta construir tú el programa principal, y si tienes algún problema, vuelve a postear.
Este procedimiento serviría para recorrer una lista. Lo puedes modificar fácilmente para recorrer ambas al mismo tiempo.
PROCEDURE RECORRE_LISTA(lista :TIPO_NODO);
BEGIN
WHILE lista<>nil DO
BEGIN
write(lista^.nombre,' ');
lista:=lista^.sig;
END;
END;
El siguiente procedimiento inserta un nodo al final de una lista dada:
PROCEDURE PON_NODO(VAR lista : T_NODO,aux:T_NODO);
var
aux2: T_NODO;;
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;
