Potenzberechnung mit Delphi

[himitsu]

Zitat:

bitte keine Antwort darauf

OK, ich sag nix *zustimmendnick*

Delphi-Quellcode:

Function MySlowPower(i, e: Integer): Integer;
  Begin
    If e < 0 Then Raise Exception.Create('der Exponent ist mir zu klein');
    Result := 1;
    While e > 0 do Begin
      Result := Result * i;
      Dec(e);
    End; 
  End;