elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Temas
Páginas: [1]
1  Programación / Programación General / me aparece " Fatal: Syntax error, "." expected but ")" found." en Pascal en: 26 Mayo 2018, 04:18
en la linea de "leerarreglo(arreglo); y no entiendo porque:

Código
  1.  
  2. begin
  3. writeln('Posiciones');
  4. readfila(posiciones);
  5. while not filavacia(posiciones) do
  6.  begin
  7.   posicion:= primero(posiciones);
  8.   LeerArreglo(Arreglo);
  9.   if (posicion>1) and (maxcaracteres>posicion) then
  10.     BorrarCaracter(Arreglo, posicion);
  11.   apilar(basura, extraer(posiciones));
  12.  end;
  13. MostrarArreglo(Arreglo);
  14.  
  15. end.
  16.  
2  Programación / Programación General / pascal: ";" expected but "ELSE" found pero no lo entiendo en: 27 Abril 2018, 00:19
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;
3  Programación / Programación General / Operación unión de pilas en Pascal en: 23 Abril 2018, 23:26
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?
4  Programación / Programación General / Me aparece error pero no lo comprendo en: 12 Abril 2018, 19:14
Código:
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
Páginas: [1]
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines