Hallo gibt es einen Befehl in Delphi womit man eine beliebige Wurzel ziehen kann , also die 3.,4. usw. In der Hilfe habe ich schon gesucht, aber vielleicht bin ich zu doof.

Shcon mal Danke

Selber machen

zusammenfalten · markieren

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 ...

Die normale Wurzel kann Du ziehen indem Du x^(1/2) berechnest... Bei der 3. bzw. 4. Potenz geht da analog mit x^(1/3) bzw. x^(1/4)

Um solche Exponenten zu bilden, kannst Du die Math unit einbinden und dort die Funktion Power nutzen, oder du verwendest einfach die ln Funktion in verbindung mit der e-Funktion.

Allgemein gilt:
x^y = exp(ln(x^y)) = exp(y*ln(x)) Um die bereichsprüfung musst Du Dich da aber noch selbst kümmern