Imprimir Página - no me corre!!

Programación General => Pascal => Mensaje iniciado por: gabrielaaA en Viernes 16 de Abril de 2010, 01:59

Título: no me corre!!
Publicado por: gabrielaaA en Viernes 16 de Abril de 2010, 01:59

hola necesito que me ayuden con este programa cuando le doy en run dice rumtime error 105 at 00001:0073. que significa eso???
program potencia;
var
B,E,I:integer;
P:real;
begin
writeln('introduzca Base');
readln(b);
writeln('introduzca Exponente');
readln(e);
if (e>=0) then
begin
P:=1;
for i:=1 to e do
p:=p*b;
writeln('la potencia positiva es ',p:0:0);
end.

Título: Re: no me corre!!
Publicado por: DriverOp en Viernes 16 de Abril de 2010, 18:09

Aparte de que te falta el end; del begin del if, no veo ningún problema. El error que te indica no parece tener nada que ver con este programa (Error 105: archivo no abierto para escritura?).

Título: Re: no me corre!!
Publicado por: gabrielaaA en Sábado 17 de Abril de 2010, 01:13

porfa ayudame a corregirlo o algo parecido!! es que lo necesito urgente por favor!!

Título: Re: no me corre!!
Publicado por: DriverOp en Sábado 17 de Abril de 2010, 05:57

Cita de: "gabrielaaA"

porfa ayudame a corregirlo o algo parecido!! es que lo necesito urgente por favor!!

Pues ayúdame a ayudarte, por ejemplo diciendo qué compilador usas y si ya has corregido el error que te señalé.

Título: Re: no me corre!!
Publicado por: epayan en Sábado 17 de Abril de 2010, 05:59

coregido, añadiendo lo que DriverOp menciona , no veo problema

Código: Pascal

 
program potencia;
uses crt;
var
B,E,I:integer;
P:real;
Begin
     writeln('introduzca Base');
     readln(b);
     writeln('introduzca Exponente');
     readln(e);
     if (e>=0) then  
        Begin
               P:=1;
               For i:=1 to e do
                    Begin
                          p:=p*b;
                    End;
         End;
     writeln('la potencia positiva es ',p:0:0);
     readkey;
End.
 
 

Título: Re: no me corre!!
Publicado por: gabrielaaA en Miércoles 21 de Abril de 2010, 16:48

graxias muchas graxias por ayudarme!! me sirvio de mucho...

Título: convertirlo a c++!!
Publicado por: gabrielaaA en Jueves 29 de Abril de 2010, 01:05

hola necesito convertir este programa a c++ graxias!!

Program MENU;
uses wincrt;
var
OPCIONP,OPCIONS:char;
NE,A,I,B,E,IT:integer;
NUMT,NUM,POT,D:longint;
P:real;
begin
repeat
clrscr;
writeln(' Menu Principal');
writeln('1. Calcular Factorial');
writeln('2. Calcular Potencia');
writeln('3. Conversiones');
writeln('4. Salir del Programa');
write('Seleccione su opcion:');
readln(OPCIONP);
case OPCIONP of
'1':Begin
A:=1;
writeln('Factorial de un numero');
write('Introduzca el numero que va a evaluar: ');
readln(NE);
for I:=1 to NE do
begin
A:=A*NE;
NE:=NE-1;
end;
writeln('El factorial es:',A);
writeln('presione una tecla para continuar');
readkey;
end;
'2':Begin
writeln('introduzca Base');
readln(b);
writeln('introduzca Exponente');
readln(e);
if (e>=0) then
begin
P:=1;
For IT:=1 to e do
begin
p:=p*b;
end;
end;
writeln('la potencia positiva es ',p:0:0);
readkey;
end;

'3':Begin
repeat
clrscr;
writeln(' Menu Conversiones');
writeln('1. binario-decimal');
writeln('2. binario-octal');
writeln('3. decimal-octal');
writeln('4. volver al menu principal');
write('Seleccione su opcion:');
readln(OPCIONS);
case OPCIONS of
'1':Begin
write('ingrese el numero binario:');
readln(NUM);
NUMT:=0;
POT:=1;
repeat
D:=NUM mod 10;
NUMT:=NUMT + D*POT;
NUM:=NUM div 10;
POT:=POT*2;
until NUM=0;
writeln('el equivalente decimal es:',NUMT);
writeln('presione una tecla para continuar');
readkey;
end;
'2':Begin
write('ingrese el numero binario:');
readln(NUM);
NUMT:=0;
POT:=1;
repeat
D:=NUM mod 8;
NUMT:=NUMT + D*POT;
NUM:=NUM div 8;
POT:=POT*2;
until NUM=0;
writeln('el equivalente octal es:',NUMT);
writeln('presione una tecla para continuar');
readkey;
end;
'3':Begin
Writeln('Estoy en la opcion 3');
writeln('presione una tecla para continuar');
readkey;
write('ingrese el numero decimal:');
readln(NUM);
NUMT:=0;
POT:=1;
repeat
D:=NUM mod 8;
NUMT:=NUMT + D*POT;
NUM:=NUM div 8;
POT:=POT*8
until NUM=0;
writeln('el equivalente octal es:',NUMT);
end;
'4':Begin
Writeln('Volviendo al menu principal');
writeln('presione una tecla para continuar');
readkey;
end;
else
Begin
Writeln('Error en la seleccion');
writeln('presione una tecla para continuar');
readkey;
end;
end;
until OPCIONS='4';
end;
'4':Begin
Writeln('Saliendo del programa');
writeln('presione una tecla para continuar');
readkey;
end;
else
Begin
Writeln('Error en la seleccion');
writeln('presione una tecla para continuar');
readkey;
end;
end;
until OPCIONP='4';
donewincrt;
end.

SoloCodigo

Programación General => Pascal => Mensaje iniciado por: gabrielaaA en Viernes 16 de Abril de 2010, 01:59