Beiträge durchsuchen

n-te Wurzel einer Zahl berechnen

Wenn man bedenkt, dass jede Wurzel auch als Potenz mit gebrochenem Exponent geschrieben werden kann, kann man die Rechnung wie folgt umwandeln. Zum Potenzieren gibt es den Befehl power.Da Wurzeln nur aus nicht-negativen Zahlen gezogen werden dürfen, gibt die Funktion bei fehlerhafter Eingabe -1 zurück.

uses Math;

function nteWurzel(n, radikand: integer): real;
begin
  if radikand>=0 then
    result:=power(radikand, 1/n)
  else result:=-1;
end;