Mensajes

en la linea de "leerarreglo(arreglo); y no entiendo porque:

Código (pascal) [Seleccionar] Expandir



begin
writeln('Posiciones');
readfila(posiciones);
while not filavacia(posiciones) do
 begin
  posicion:= primero(posiciones);
  LeerArreglo(Arreglo);
  if (posicion>1) and (maxcaracteres>posicion) then
    BorrarCaracter(Arreglo, posicion);
  apilar(basura, extraer(posiciones));
 end;
MostrarArreglo(Arreglo);

end.


ya probé y me sigo apareciendo el error

[if not pilavacia (A) and not pilavacia (B) then while not pilavacia (A) do if tope(A )= tope(B) then apilar (D, desapilar (A)); else apilar (E, desapilar (A)); apilar (E, desapilar (B)); else if not pilavacia (A) then apilar (C, desapilar (A); else apilar (C, desapilar(B));]

ejercicio2.pas:21 Fatal: Syntax error, ";" expected but "ELSE" found


program procedimientos;  


procedure EliminarRepetidos (var A, B, C, D, E:  pila);
begin
if not pilavacia (A) and not pilavacia (B) then
    while not pilavacia (A) do
      if tope(A )= tope(B) then
       apilar (D, desapilar (A));
      else
       apilar (E, desapilar (A));
     apilar (E, desapilar (B));
   else
    if not pilavacia (A) then
      apilar (C, desapilar (A);
     else
      apilar (C, desapilar(B));
end;

Gracias!!!!

Entonces la operación de unión es poner ambas pilas en una???

Hola, me pide en un ejercicio que cree dos pilas Z y Q y que  calcule en una pila X la operación de unión.
¿Alguien me puede explicar que es?

Mil gracias!!!!!!

Código [Seleccionar] Expandir

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