Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Potencia (https://www.clubdelphi.com/foros/showthread.php?t=6639)

Esau 15-01-2004 22:25:07

Potencia
 
Hola Amigos: tengo una pregunta respecto a un problema que nos han planteado en el trabajo, es referente a una potencia.
recuerdo muy bien haber hecho funciones de potencia en pascal en la universidad, mas o menos seria de esta forma
Function Potencia(Base : Double; Exponente : Integer) : Double;
var
Temporal : Double;
Contador : Integer;
begin
Temporal := 1;
Contador := 0;
while Contador < Exponente do
begin
Contador := Contador + 1;
Temporal := Temporal * Base;
end;
Result := Temporal;
end;
Asi es como elevamos una base real a un numero entero , pero que sucede cuando el exponente es real , como por ejemplo 0.83333 o 1.58, como se podria implementar una funcion en delphi con base real y exponente real

se aceptan todas las sugerencias

muchas gracias...

marcoszorrilla 15-01-2004 22:51:43

Tienes que incluir la Unit Math
Código:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormatFloat(',0.00',Power(2.5,3.5)));
end;

Un Saludo.

Esau 15-01-2004 23:40:37

Gracias
 
Gracias Amigo , no sabia que podia ser tan facil ,

Saludos desde Lima Peru


La franja horaria es GMT +2. Ahora son las 02:44:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi