quarta-feira, 7 de outubro de 2009

Exponenciação em delphi

Function Exponenciacao(Base:double;Potencia:integer):double;
begin
Result := exp( ln(Base) * Potencia );
end;

Nenhum comentário:

Postar um comentário