Hochzahl ?

[Dax]

Okay, so gehts mit negativen Basen

Delphi-Quellcode:

function MyPow(Base, Exponent: Integer): Int64;
var i: Integer;
begin
  i := 1 - 2 * (Base shr (sizeof(Base)-1));
  Result := i*Round(Exp(Exponent * Ln(i*Base)));
end;