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
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...
Answers & Comments
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!