[ Foro de Pascal ]

me podrian decir si esto esta bien??

10-Apr-2019 23:42
Invitado (Mario)
1 Respuestas

program E_14;
{Determinar si la cantidad de elementos es PAR,
si es par, pasar la pila aux a la pila PAR y si es impar pasar el tope a la
pila IMPAR}
uses estructu;
var
   DADA, AUX, PAR, IMPAR: Pila;
begin
   ReadPila(DADA);
   InicPila(AUX '');
   InicPila(PAR '');
   InicPila(IMPAR '');
while not PilaVacia(DADA) do
   Apilar(AUX desapilar(DADA)) and Apilar(AUX desapilar(DADA));
       while PilaVacia(DADA) do
           Apilar(PAR desapilar(AUX));
if not PilaVacia(DADA) do
   Apillar(IMPAR desapilar(DADA));
   WritePila (PAR);
   WritePila (IMPAR);
end.
   


16-Apr-2019 14:49
Nacho Cabanes (+40)

No tiene muy buena pinta. Hay detalles que no se saben y que deben ser parte de la unit "estructu", llamadas a funciones que no tienen comas, "do" que no parecen estar unidos a ningún "while"...






Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...