Home » Tipps & Tricks » Mathematik » Arithmetik » n-te Wurzel einer Zahl berechnen

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;

Anzeigen

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind markiert *

Fragen und Anregungen können gerne im Forum gepostet werden. Die hierfür vorgesehene Sparte ist Delphi-Treff>>Feedback.