Verified answer

aqui te dejo el ejercicio....velo y dime si eso era lo q querias...es realmente facil cuando sabes manejar los for...bueno aqui esta....tu tienes q introducir la base y el numero a q quieres q te lo eleve

program potencia;

var

b,e,i:integer;

p:real;

begin

writeln('introduce 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;

if(e<0)then

begin

e:=e*(-1);

p:=1;

for i:=1 to e do

p:=p*b;

p:=1/p;

writeln('el resultado de la potencia negativa es ',p:0:10);

end;

readln;

end.

le agrege no se si era neceario....pero le puse para q te leyera si ponias y potencia negativa....si no es necesario solo borrale la ultima condicion y ya

saludos....espero haberte ayudado

{ Programa para demostrar la funcion power. }

Uses Math;

procedure dopower(x,y : float);

begin

writeln(x:8:6,'^',y:8:6,' = ',power(x,y):8:6)

end;

begin

dopower(2,2);

dopower(2,-2);

dopower(2,0.0);

end.

}

socio aqui ahi un ejemplo de como puedes elevar un numero en pascal... si te das cuenta es un ejemplo muy detallado... ahora... lo importante de este ejemplo es la funcion power(); ... que es la que debes usar para elevar un numero en pascal...

usa la funcion power(base,exponente);

ojala te sirva de algo... chao

http://es.geocities.com/anonimato_166/programacion...

Espero te sirva.

Saludos!