Beliebige Wurzel

[jfheins]

Selber machen

Delphi-Quellcode:

uses Math;

function Wurzel (exponent: Cardinal; radikant: Extended): Extended;
begin
  if radikant = 0 then
    Result := 0
  else if radikant > 0 then
    Result := Power (radikant, 1/exponent)
  else if Odd (exponent) then
    Result := -1 * Power (abs (radikant), 1/exponent)
  else
    Result := NaN;
end;

Edits: Mehrmals überarbeitet ...