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