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)
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).
Título: Re: Pila Con Listas Enlazadas
Publicado por: Enko en Miércoles 30 de Marzo de 2005, 01:35
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;
{$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.
Título: Re: Pila Con Listas Enlazadas
Publicado por: Desve en Miércoles 30 de Marzo de 2005, 10:13
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.