[ Foro de Pascal ]

Problema pilas

22-Apr-2016 00:57
Invitado (Roam)
1 Respuestas

) Cargar desde el teclado una pila DADA con 5 elementos. Pasar los tres primeros elementos a la pila
CJTO1 y los dos restantes a la pila CJTO2, ambas pilas inicializadas en vacío.

 
program pilas;
uses estructu;
var
  DADA,Cjt1,Cjt2:pila;
Begin
    Readpila(DADA);
    Inicpila(Cjt1,");
	Inicpila(Cjt2,");
    Apilar(Cjt1,desapilar(DADA));
	Apilar(Cjt1,desapilar(DADA));
	Apilar(Cjt1,desapilar(DADA));
	Apilar(Cjt2,desapilar(DADA));
	Apilar(Cjt2,desapilar(DADA));
	WritePila(DADA);
	WritePila(Cjt1);
	WritePila(Cjt2);
 
end.
 


me podrian decir si es correcto, como esta escrito?


23-Apr-2016 13:24
Nacho Cabanes (+32)

En general, no tiene mala pinta. Hay unas comillas sin cerrar, no me queda claro que el "Inicpila" deba recibir una cadena  y no sé si ese "Readpila(DADA);" se encargar de inicializar también la pila, así como si lee los 5 datos o sólo uno. Pero la estructura general debería ser bastante parecida a esa.






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)