oder über die e-Funktion:
Delphi-Quellcode:
{ berechnet x^n mit x,n aus R }
function Power (x, n : double) : double ;
begin
if n > 0
then Result := exp (n*ln(x))
else if (n = 0)
and (x <> 0)
then Result := 1
else if (n = 0)
and (x = 0)
then raise exception.create ('
0^0 ist mathematisch nicht definiert.') ;
end ;
Dies hat den Vorteil, daß du auch andere Ausdrücke wie Wurzel oder hoch2 potenzieren kannst.