INFORMATICA Y OCIO

lukasss · Conociendo Foroz Registrado: 20 Jul 2008 Mensajes: 28

PROGRAM raices(input,output);
VAR
raiz,I,dig,exponencial,num,c_exponencial,c_num: real;
BEGIN
WRITELN('ESCRIBA EL NUMERO: ');
READLN(raiz);
WRITELN('ESCRIBA EL NUMERO DE DIGITOS: ');
READLN(dig);
I:=0;
WHILE I<=dig DO BEGIN
exponencial:=0;
num:=0;
c_exponencial:=0;
c_num:=0;
WHILE c_num*c_num<=raiz DO BEGIN
c_num:=num+(num*c_exponencial);
c_exponencial:=exponencial+0.1;
exponencial:=exponencial+1;
num:=num+1;
END
END;
I:=I+1;
END.
END
END.

y el error es en la linea 26, osea justo arriba del ultimo END :S, no se cual es el problema, lo estoy intentando compilar con el gpc de ubuntu.
graciasss Smile

esvom · Publicado: Dom Nov 09, 2008 12:54 am **Título del mensaje**:

que se supone que tiene que hacer el programa???
_________________

Compra la verdad y no la vendas

goselito · Conociendo Foroz Registrado: 30 Oct 2008 Mensajes: 21

no puedes poner dos END. en un mismo codigo de pascal. en cualquier caso a no ser que pongas un else que entonces el end es sin nada detras tendras que poner un ; y en el ultimo un .

	Índice del Foro Foroz comunity :: Programación	Todas las horas están en GMT + 1 Hora
Página 1 de 1