Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Pascal/Turbo Pascal - Crear una funcion potencia

  Imprimir  
Vista:

Crear una funcion potencia

Publicado por Dario (1 intervención) el 09/01/2001 00:00:00
Por favor, me pueden ayudar en como puedo crear una funcion o un procedimiento que me calcule la potencia de x elevado a un n, plissss
me ayudaria mucho muchas gracias por escucharme
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Crear una funcion potencia

Publicado por adrian15 (15 intervenciones) el 09/01/2001 00:00:00
Yo creo que debe haber en turbo pascal alguna function parecida a exp o ^ que lo haga auto-
mático. Aunque tomando la definición de potencia me parece chupado.

Elevar el numero numero al exponente exponente. Y mostrar el resultado resultado.

function(f_numero,f_exponente,f_resultado:integer);

begin

resultado:=1;

If f_exponente < 1 then

begin (* Si el exponente es negativo *)

f_exponente:=-f_exponente; (* Quizas sea mejor con una funcion que saque siempre el valor positivo, hay en tpascal seguro*)
For 1 to f_exponente do
begin
f_resultado=f_resultado*f_numero;
end;
f_resultado := 1 / f_resultado;

end; (* si el exponente es negativo *)

else

begin (* no es negativo*)

if f_exponente = 0 then f_resultado:=1 else
begin (* Es mayor que 1 *)
begin (* Si el exponente es positivo *)

f_exponente:=-f_exponente; (* Quizas sea mejor con una funcion que saque siempre el valor positivo, hay en tpascal seguro*)
For 1 to f_exponente do
begin
f_resultado=f_resultado*f_numero;
end;
f_resultado := 1 / f_resultado;

end; (* si el exponente es positivo *)
end; end; end; (* y si falta algun end lo pones tu *)

Espero haberte sido de ayuda. No he depurado el programa y así que igual
tiene muchos fallos, pero eso ya es fácil
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Crear una funcion potencia

Publicado por DanAde (1 intervención) el 11/01/2001 00:00:00
(* Funcion potencia para potencias mayores que cero *)
Function Potencia ( x,n:integer ) : integer;
Var
i:integer; (* contador *)
pot:integer; (* variable potencia *)
Begin
pot:=1;
If n>0 Then
For i:=1 to n do
pot:=pot*x;
Potencia:=pot;
End;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Crear una funcion potencia

Publicado por Maverick01 (27 intervenciones) el 01/02/2001 06:09:50
Existe una forma de hacerlo e incluso te calcula raices :D

Claro es aplicando las definiciones y propedades de exp y ln

function potencia(base,expon:real):real;
Begin
potencia:=exp(expon*ln(2));
End;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

un errorcillo dedográfico :p

Publicado por Maverick01 (27 intervenciones) el 01/02/2001 06:11:28
perdón en la parte que puse
"ln(2)"
es
"ln(base)"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

en q parte d la fnc potencia se guarda el valor?

Publicado por Maximiliano Masi (1 intervención) el 06/11/2008 22:53:25
EN QUE PARTE DE LA FUNCION POTENCIA SE GUARDA EL VALOR PARA QUE SE CUMPLA LA POTENCIA COMO TAL? ME EXPLICO? ES EN EL CICLO FOR? GRACIAS,.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar