Pascal/Turbo Pascal - Compilador Free Pascal

   
Vista:

Compilador Free Pascal

Publicado por Facundo (1 intervención) el 06/02/2009 03:28:39
Hola, estoy con un problema bastante facil de solucionar (para alguien que sepa, claro), tengo el siguiente codigo:
program main;
Uses Estructu;
var
Dada, Resultado, Aux: Pila;
Cont, contsec, suma : Integer;
Promedio: Real;
begin
Writeln(' Ingrese los valores: ');
readpila(Dada);
inicpila(Resultado,'');
inicpila(Aux,'');
Cont:=0;
Suma:= 0;
Contsec:= 0;
Promedio:= 0;
While not pilavacia(Dada) do
begin
Cont:= 0;
begin
while tope(dada)<>0 do
begin
Desapilar(dada);
cont:= cont + 1
Else -----------------> EN ESTA LINEA ME DA UN ERROR DE COMPIL.
begin
Desapilar(dada);
cont:= cont + 1;
Apilar(Resultado, Cont);
end;
end;
end;
end;
While not pilavacia(Resultado) do
begin
Suma:= Suma + tope(Resultado);
Apilar(Aux, desapilar(Resultado));
Contsec:= Contsec + 1;
end;
While not pilavacia(Aux) do
Apilar(Resultado, desapilar(Aux)
Promedio:= suma / contsec;
Apilar(Resultado, Promedio);
Write(Resultado);
readln;
end.

Dice, algo así, como que esperaba un " ; " y encontro un "ELSE", ya probe sacandole y poniendole el " ; " en la linea anterior en la posterior, pero persiste el error, estoy usando el compilador mas comun de FREE PASCAL.
Si alguien me puede ayudar, ya que es un ejercicio que debo presentar en un final libre q debo dar en unos dias en la facultad.
Muchas Gracias!!
Facundo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Compilador Free Pascal

Publicado por Willy (181 intervenciones) el 06/02/2009 03:45:37
Hola Facundo.
No podemos hacer nada si no nos pasas el código de "Estructu.pas" para compilarlo y tener el "Estructu.tpu".

Sin esta unidad me da el error: "File not found (ESTRUCTU.TPU) y no puedo ver el error que te da a tí.

Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar