Mit "Power" eine beliebige Wurzel ziehen

[0nk3lz]

Hey Leute,
ich finde in der SuFu irgendwie nichts...

Ich bin dabei einen Taschenrechner zu "basteln" und will nun eine eine beliebige Wurzel ziehen...

Bei beliebigen Exponenten habe ich das folgendermaßen:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var zahl1, zahl2, ergebnis: real;
begin
  zahl1 := StrToFloat(Edit1.Text);
  zahl2 := StrToFloat(Edit2.Text);

  ergebnis := power(zahl1, zahl2);

  edit3.text := FloatToStr(ergebnis);
end;

Kann man denn mit der "Power" Funktion auch beliebige Wurzeln ziehen?
Wenn ja, wie?

MfG 0nk3lz

[omata]

Die Funktion Power errechnet aus der Basis Base und dem beliebigen Wert Exponent die Potenz. Wurzel? :gruebel:

schau dir mal sqrt an.

[mkinzler]

Andererseits ist die Quadratwurzel von x = x^(1/2)

[0nk3lz]

Ja ich dachte, dass es mit Power geht, weil man mit Power auch die 3. Wurzel ziehen kann:

Delphi-Quellcode:

procedure TForm1.BitBtn7Click(Sender: TObject);
var zahl1, ergebnis: real;
begin
  zahl1 := StrToFloat(Edit1.Text);

  ergebnis := power(zahl1,1/3);

  edit3.text := FloatToStr(ergebnis);
end;

[mkinzler]

Dann hast du doch deine Frage schon fast selber beantwortet

[0nk3lz]

Fast, aber leider nicht ganz. Und auf den Rest komm ich leider nicht... :(

[mkinzler]

Welchen Rest? Hast du mal die Delphi-Hilfe konsultiert?

[Dax]

Zweite Wurzel von x: x^(1/2) nach mkinzler.
Dritte Wurzel von x: x^(1/3) nach 0nk3lz.
Da ist doch ein Muster drin?

[omata]

Vielleicht hilft das hier weiter

[jfheins]

Zitat:

Zitat von Dax

Da ist doch ein Muster drin?

Oh mein Gott, das sind die Illuminaten!

2 und 3 ... ergibt 23 !!!

Und 2*2 + 3*3 ergibt 13 :shock: