Delphi-Quellcode:
// nte Wurzel aus x
procedure TForm1.Button1Click(Sender: TObject);
var x,n,Ergebnis:double;
begin
x:=StrToFloat(Edit1.Text);
n:=3;
Ergebnis:=exp((1/n)*ln(x));
Edit2.Text:=FloatToStr(Ergebnis);
end;
[Edit] Das Ganze funktioniert auch ohne
unit math. [/Edit]
Google einmal nach Logarithmen, Potenzen und Wurzeln oder schaue
in deine Mathe-Formelsammlung.
