Einzelnen Beitrag anzeigen

0nk3lz

Registriert seit: 9. Apr 2009
17 Beiträge
 
#1

Mit "Power" eine beliebige Wurzel ziehen

  Alt 13. Jun 2009, 23:59
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
  Mit Zitat antworten Zitat