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
siempre es bueno de entrada, aclarar el lenguaje... pero de error el lenguaje lo que te dice es que hay un parentesis que no tiene sentido en la logica... justo donde está
(con este programa se busca apilar el tope de elemento en dada, manteniendo su orden de menor a mayor)
para colocar eso debes ponerlo como comentario (no se que lenguaje es, así que no se como se comenta)
Como te dice
engel, el errorestá en la línea que es un comentario (hay otra más abajo) y que no sigue la estructura:
En Pascal, un programa empieza así:
<programa> = <cabecera de programa> ; <bloque de programa>
y...
<cabecera de programa> = "
program" <identificador> (<identificador de fichero> {, <identificador de fichero>}) ;
...y los comentarios en Pascal son en esta forma:
<comentario> = "
(*" <texto>|<empty> "
*)"
En resumen te faltan los asteriscos tras el paréntesis de apertura y ante el paréntesis de cierre.
Mil gracias!!!!!!