Foro de elhacker.net

program Ordenando;
(con este programa se busca apilar el tope de elemento en dada, manteniendo su orden de menor a mayor)

{$INCLUDE/usr/ESTRUCTU}

var
   dada, ayuda1, ayuda2: fila;
   elemento: pila;
   
begin
   writeln('escriba numeros en orden de menor a mayor');
   inicfila(dada);
   writeln('escriba un numero');
   inicpila(elemento);
   readfila(ayuda1);
   readfila(ayuda2);
   while(not filavacia (dada)) do
       If(tope (dada) < tope (elemento)) or (tope (dada) = tope (elemento)) then
            Agregar (ayuda1, extraer (dada));
            else 
            agregar(ayuda2, extraer (dada));
(como el usuario no habia suguerido nada para los numeros iguales al de elemento, los agrupe junto a los menores)
   while(not filavacia (ayuda1)) do
       agregar(dada, extraer (ayuda1);
   agregar(dada, desapilar (Elemento));
   while not filavacia (ayuda2) do
       agregar(dada, extraer (ayuda2);
   writefila(dada);
   writepila(elemento);
end.



Error(s):
source.pas(2,2) Fatal: Syntax error, "BEGIN" expected but "(" found
Error: /usr/bin/ppcx64 returned an error exitcode

(con este programa se busca apilar el tope de elemento en dada, manteniendo su orden de menor a mayor)