Elevando um valor
Eu gostaria de saber como elevar um valor no delphi. Exemplo:
5 elevado à 9
Espero respostas !!!
5 elevado à 9
Espero respostas !!!
Anonymous
Curtidas 0
Respostas
Skaarj
06/02/2003
Existe essa função pra potencia:
Function Pot( base, expoente: real ):real; // Potenciação
begin
{ utiliza a função de exponencial e de logaritmo }
Result:= Exp((expoente * Ln( base )));
end;
Ela deriva disso aqui:
Function Pot( base, expoente: real ):real; // Potenciação
begin
{ utiliza a função de exponencial e de logaritmo }
Result:= Exp((expoente * Ln( base )));
end;
Ela deriva disso aqui:
Calculo do valor de um produto para o prazo de 30 dias com a taxa de juros de 5¬ mês.
var
i: Real; // taxa de juros
valor: Real; // valor base para calculo do valor futuro.
pz: Integer // prazo em dias
begin
i := 5//100;
valor:= 1000.00
pz := 30
Result:= valor*( Pot( (1+i), (pz/30) ) //Resultado 1.050,00
end;
no excel a Pot é substituída pelo sinal ^ Ex. =E18*((1+C19)^(C20/30))
Function Pot( base, expoente: real ):real; // Potenciação
begin
{ utiliza a função de exponencial e de logaritmo }
Result:= Exp((expoente * Ln( base )));
end;
GOSTEI 0
Anonymous
06/02/2003
para reais use a função [b:807e7b0928]Power[/b:807e7b0928] e para inteiros [b:807e7b0928]IntPower[/b:807e7b0928]
sintaxe:
[b:807e7b0928]Power(Base, expoente);
IntPower(Base, expoente);[/b:807e7b0928]
Ex:
[b:807e7b0928]Power(5,9)
IntPower(5,9)[/b:807e7b0928]
sintaxe:
[b:807e7b0928]Power(Base, expoente);
IntPower(Base, expoente);[/b:807e7b0928]
Ex:
[b:807e7b0928]Power(5,9)
IntPower(5,9)[/b:807e7b0928]
GOSTEI 0