SoloCodigo
Programación General => Pascal => Mensaje iniciado por: rtbell en Miércoles 8 de Febrero de 2006, 02:00
-
Este es un ejemplo de lista circular, se me escapo y para terminar las estruturas de datos eran indispensables. Se me ré pasarón.
° ƒ ° disculpen
~
Autor: rtbell
-
buen aporte sin embargo hay una forma mejor para darle un comienzo a la lista:
esto es lo tuyo:
procedure Agregar (var l:lista;x:integer);
var
act:lista;
begin
if (l^.link^.info=-1) then
begin
new(act);
act^.info:=x;
act^.link:=l^.link;
l^.link:=act;
end
else
begin
Agregar(l^.linkx);
end;
podria ser como:
if (l^.link = Nil) then
begin
new(act);
act^.info:=x;
act^.link:=l^.link;
l^.link:=act;
end
else
Agregar(l^.linkx);
disculpen por mi ignorancia pero soy nuevo aca http://www.solocodigo.com/images/icons/icon9.gif y no se subir archivos al foro asique lo publique aca no mas al fix
-
bit bug lo que pusiste esta mal una lista CIRCULAR no tiene NIL el ultimo nodo apunta al primer nodo de la lista entonces de alguna manera lo tenes que limitar diciendo \"este es el primer nodo y de aca me manejo\" una vez que tenes el primer nodo haces el enganche del ultimo al primero y lo manejas como una lista enlazada normal.
Saludos
Buen codigo