Programación General > Pascal
no me corre!!
gabrielaaA:
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.
DriverOp:
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?).
gabrielaaA:
porfa ayudame a corregirlo o algo parecido!! es que lo necesito urgente por favor!!
DriverOp:
--- Cita de: "gabrielaaA" ---porfa ayudame a corregirlo o algo parecido!! es que lo necesito urgente por favor!!
--- Fin de la cita ---
Pues ayúdame a ayudarte, por ejemplo diciendo qué compilador usas y si ya has corregido el error que te señalé.
epayan:
coregido, añadiendo lo que DriverOp menciona , no veo problema
--- Código: Pascal --- program potencia;uses crt;varB,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.
Navegación
[#] Página Siguiente
Ir a la versión completa