Elevando um valor

06/02/2003

6

Eu gostaria de saber como elevar um valor no delphi. Exemplo:

5 elevado à 9

Espero respostas !!!


Anonymous

Anonymous

Responder

Posts

06/02/2003

Skaarj

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:
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;



Responder

06/02/2003

Anonymous

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]


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar