Positive Zahlen in negative umwandeln

[alzaimar]

Rekursiv? Hat hier noch niemand an Rekusivität gedacht?

Delphi-Quellcode:

Function MakeNegative (Const aNumber : Integer) : Integer;
Begin
  If aNumber>0 Then
    Result := MakeNegative (aNumber-1)-1
  Else
    Result := 0;
End;

Vielleicht könnte man das noch in die Klasse einbauen... Ansonsten könnte man vielleicht noch einen Webservice implementieren und der Allgemeinheit zur Verfügung stellen.