Programación General > Delphi

 Pila Con Listas Enlazadas

(1/1)

Desve:
Estoy trabajando en una pila con listas enlazadas y tengo el siguiente problema

declaro de esta forma la estructura

TNodo=^NodoPila;
NodoPila=RECORD
elemento:integer;
enlace:TNodo;
END;

luego declaro

Cima,AUX:^NodoPila;

para los trabajos de insercion y sacar, etc.


El problema radica en que al al momento de insertar
(este es el codigo)

new(AUX);
AUX^.elemento:=n;
AUX^.enlace:=Cima; <----------- me marca error en esta linea
Cima:=AUX;

lanza un comentario diciendo que son imcompatibles, (supongo que por que uno esta declarado como TNodo y otro Por ^NodoPila).
Entonces para corregir eso yo pensaba era declarar de esta manera para que los tipos de datos sean compatibles, pero el compilador me regresa error. (esto lo habia intentado desde el inicio al declarar la pila pero me lanzaba error, aunque insisto que seria la forma logica de declarar)

NodoPila=RECORD
elemento:integer;
enlace:^NodoPila;
END;

El problema es que al asignar ahi me lanza error y no se de que manera corregirlo, Espero que alguien me pueda ayudar.


Gracias de antemano
(Desve).

Enko:
Causante del error

--- Código: Text --- Cima,AUX:^NodoPila;  
Esto es lo que corrige el Error

--- Código: Text --- Cima,AUX: TNodo;  

--- Código: Text --- program Project2; {&#036;APPTYPE CONSOLE}type  TNodo=^NodoPila;    NodoPila=RECORD    Elemento:integer;    Enlace:TNodo;end; var  Cima,AUX: TNodo; begin  new(Cima);  new(AUX);  AUX^.elemento:=10;  AUX^.enlace:=Cima;  Cima:=AUX;   WriteLn(AUX^.Elemento ,'  ', Cima^.Elemento);  ReadLn;end.  
Asi me compilo de los mas bonito.
Saludos.

Desve:
Sip gracias, ahora ke lo veo de esa manera es bastante obvio, pero ya cuando lleva uno un rato programando como ke pierde la nocion de los pekeños errores.

Hasta la prox.

Navegación

[0] Índice de Mensajes