Man kann aber auch mithilfe der Math-
Unit und der Power-Funktion Wurzeln ziehen (hier sogar beliebige
)
Delphi-Quellcode:
procedure Test;
var
qw : Extended;
cw : Extended;
bw : Extended;
begin
// Quadrat-Wurzel von a:
qw := Power(a, 0.5);
// Kubikwurzel von a:
cw := Power(a, 1.0/3);
// Wurzel aus a*a*a:
bw := Power(a, 3.0/2);
end;