Regning: Opløfte et real i et andet real

Funktionen Power i Math.

se evt.
http://www.festra.com/eng/dlforum.htm?http://www.festra.com/wwwboard/messages/2170.html
for mere info


Casper

[Redigeret d. 05/01-06 13:49:39 af Casper Steinmann]

z:=Exp(y*Ln(x)); //Det er nok dette, der ligger inde i Power(X,Y);

Kode 

function Power(const Base, Exponent: Extended): Extended;
begin
  if Exponent = 0.0 then
    Result := 1.0               { n**0 = 1 }
  else if (Base = 0.0) and (Exponent > 0.0) then
    Result := 0.0               { 0**n = 0, n > 0 }
  else if (Frac(Exponent) = 0.0) and (Abs(Exponent) <= MaxInt) then
    Result := IntPower(Base, Integer(Trunc(Exponent)))
  else
    Result := Exp(Exponent * Ln(Base))
end;