Mit "Power" eine beliebige Wurzel ziehen

[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;