Beliebige Wurzel

[eisbar]

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

[jfheins]

Selber machen :P

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

[Jelly]

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:

Delphi-Quellcode:

x^y = exp(ln(x^y)) = exp(y*ln(x))

Um die bereichsprüfung musst Du Dich da aber noch selbst kümmern

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Es geht doch um Delphi ;-)