3 te Wurzel

[dominikkv]

Delphi-Quellcode:

function Ente_Wurzel(Radikant, Anzahl: Double): Double;
begin
  result := Power(Radikant, 1 / Anzahl);
end;

in deinem fall dann einfach r := Ente_Wurzel(123, 3);
math einbinden nicht vergessen