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;
