Potenzberechnung mit Hilfe einer Rekursion

[Aphton]

@Gammatester - Warum?

x^-y = 1/(x^y)

Delphi-Quellcode:

function Power( Base, Exponent: Integer ): Double;
begin
  if Exponent < 0 then
    Result := 1 / Power( Base, Abs( Exponent ) )
  else
    case Exponent of
      0: Result := 1;
      1: Result := Base;
    else
      Result := Base * Power( Base, Exponent - 1 );
    end;
end;