Agregar mas de un nuevo elemento a una lista
Publicado por guillermo aguilera (1 intervención) el 11/11/2019 21:10:55
Hola, estoy tratando de agregar mas de un nuevo elemento a una lista pero el problema es que al mostrar en pantalla cada elemento de la lista, solo me sale el primero, osea el resto de elementos en el final se borran.
En mi universidad me dieron este codigo:
que es para agregar un elemento al final de la lista, si fuera algo que se repite mas de 1 porque le estoy cargando datos nuevos, porque no funciona?
En mi universidad me dieron este codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
new(p); (*crear nueva celda*)
p^.elemento:= elem; (*cargar el elemento*)
p^.siguiente:= nil; (*es el último*)
if l = nil thenl:= p
else
begin
(*busco el último de l*)
q:= l;
while q^.siguiente <> nil do
q:= q^.siguiente;
(*engancho p a continuacion del último*)
q^.siguiente:= p;
end;
que es para agregar un elemento al final de la lista, si fuera algo que se repite mas de 1 porque le estoy cargando datos nuevos, porque no funciona?
Valora esta pregunta
0