FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como Invertir Una Lista Enlazada Simple
Como Invertir Una Lista Enlazada Simple tomando como parametro solo la lista(L)
me explico: procedure invertir_lista(var L:nodo); yo lo hice con 2 listas como veran el codigo abajo. lo cual me corre 100 pts. pero nesecito que me den una orientacion de como invertirla en la misma lista. Gracias de antemano. se los agradesco. procedure invertir_L(var l:nodo; temp:nodo); var e:integer; begin __if not esvacio_L(l) then ____begin ______while l <> nil do ________begin __________e:=primero_L(l); __________insertarprimero_L(temp,e); __________eliminarprimero_L(l); ________end; _________mostrar_L(temp); _____end; end; |
#2
|
||||
|
||||
Hola sant0s y bienvenido a Club Delphi.
Como se acostumbra, te invito a que leas nuestra guía de estilo. Veo que has tenido problemas para identar tu código, pero con el uso de las etiquetas (TAG's) es una taréa sencilla: Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
muchas gracias lo tomare en cuenta.
|
#4
|
||||
|
||||
Para que lo necesitas?
__________________
PepeLolo El hombre el único virus que mide más de unas cuantas micras |
#5
|
|||
|
|||
bueno para tener otra idea como resolver el invertir, sin nesecidad de utilizar 2 lista.
si pudieras darme una orientacion te agradeceria mucho. gracias por responder |
#6
|
||||
|
||||
Hola.
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#7
|
|||
|
|||
hola, muchas gracias por responder.
el codigo que me presentaste logre hacerlo funcionar, te digo esto por que hubo muchos otros que encontre pero no me invertian la lista. dicho esto en mi lista tu codigo seria el sigt: dado el echo que en mi lista primero es L.
te agradesco mucho por darte el tiempo de responder. otra cosa, aunque lo hice correr en modo de ejecucion de linea por linea.(F7). no me quedo bien claro la logica del bucle del while. en especial aux^.sig:= prev; prev seria el apuntador ^.sigt de aux ; te agradeceria mucho si me dieras una explicacion. otro dato. cuando pongo en comentario la sigt. linea de codigo y ejecuto el programa todo bien. //Prox:= nil; pero cuando pongo en comentario la sigt. linea de codigo. //Prev:= nil; solo aparece una ventana negra unos instante y desaparece. osea no corre el programa. y cuando pongo las dos lineas de codigo en comentario //Prev:= nil; //Prox:= nil; lo mismo. solo aparece una ventana negra unos instante y desaparece. osea no corre el programa. la pregunta seria cual es la importancia de asignarles que sean igual a nil al inicio . si dentro del bucle de while igual le damos una cierta asignacion, puede que sea mi ignorancia pero me queda esa duda. quisas son una de las muchas preguntas que se hacen todos los que estamos lidiando con este tipo de estructuras. te agradeceria de corazon tu respuesta. muchas gracias de antemano. Última edición por sant0s fecha: 13-12-2011 a las 07:28:24. |
#8
|
|||
|
|||
Para aquellos amigos que tampoco puedan entender el codigo anterior aqui les traigo un codigo que invierte la lista.
Si tienen alguna duda simplemente aganla conocer. que congusto respondere. por que la logica si me queda bien clara. Saludos. |
#9
|
||||
|
||||
Cita:
Creo que la mejor forma de entender el funcionamiento del algorítmo es que le realizes una prueba de escritorio. Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#10
|
|||
|
|||
gracias por tu respuesta, si lo hice la prueba de escritorio. pero aun asi no me quedo muy claro el codigo. por eso puse el el codigo anterior:
pero ahora que me pongo a penzarlo, creo que tu codigo toma en prev como si fuera el nodo que apunta siempre al primero. por eso utiliza 3 variables de tipo nodo en cambio mi codigo solo uza 2 variable de tipo nodos. por eso al final del bucle asigna primero:= prev. de todos modos muchisimas gracias. me ayudo muchisimo a dar con una logica que entendiera a cabalidad sin tu ayuda no lo hubiera logrado. Gracias |
#11
|
||||
|
||||
Hola santOs.
Es muy probable que el código que pusiste sea más eficiénte que el que te sugerí, pero realmente hacía una montaña de años que no tocaba las listas simplemente enlazadas y al ver que la invertía correctamente, así lo deje... Me alegra que al menos te haya dado un indicio para resolverlo. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como invertir in link de tras para adelante | tiago_begins | Internet | 4 | 28-12-2010 16:56:35 |
Como hacer una lista enlazada dinamica en delphi | rgstuamigo | OOP | 40 | 04-12-2008 20:20:25 |
Como crear un navegador web simple | CeNtInElA | Internet | 4 | 25-02-2005 14:31:06 |
lo que necesito es ayuda en el TDA de una lista doblemente enlazada circular | program_tda | Varios | 12 | 17-02-2004 08:45:35 |
|