Positive Zahlen in negative umwandeln

[mkinzler]

Schöner Spam-Thread im falschen Bereich

Delphi-Quellcode:

Zahl := StrToFloat( '-' + FloatToStr( Abs(Zahl)));

[Die Muhkuh]

Zitat:

Zitat von mkinzler

Schöner Spam-Thread im falschen Bereich

Perfekt für Dich :lol:

[inherited]

Delphi-Quellcode:

  i := i-(Floor(Power(2, -Integer(i<0)))*2*i);

Macht aus i eine negative Zahl

[The Riddler]

Delphi-Quellcode:

Zahl := StrToInt(StringReplace(IntToStr(Zahl), '-', '', [rfReplaceAll]));

[Die Muhkuh]

Contest: "Wer schreibt den schlimmsten Code, um aus einer Zahl eine negative zu machen?" :mrgreen:

[Meflin]

Dass hier keiner auf

Delphi-Quellcode:

zahl := zahl * (-1)

:gruebel: :mrgreen:

[shmia]

Delphi-Quellcode:

Zahl := SQRT(SQR(Zahl)) * round(tan(-pi / 4));

[The Riddler]

Zitat:

Zitat von The Riddler

Delphi-Quellcode:

Zahl := StrToInt(StringReplace(IntToStr(Zahl), '-', '', [rfReplaceAll]));

Oder natürlich umgekehrt wie OP es will:

Delphi-Quellcode:

var
  temp: String;
begin
  temp := ' ' + IntToStr(zahl);
  temp := StringReplace(temp, ' ', '-', [rfReplaceAll]);
  Zahl := StrToInt(temp);
// I won imo

[Die Muhkuh]

*Bier aufmach*
*Popcorn hol*

Hat sich gelohnt, dass ich heute doch nicht ins Kino bin :mrgreen:

[The Riddler]

Delphi-Quellcode:

temp := zahl;
for i := 0 to temp*2 do
 Zahl := Zahl - i;

Lässt sich noch verbessern schätze ich. :mrgreen: