Positive Zahlen in negative umwandeln

[mr_emre_d]

Zitat:

Zitat von Roachford

Delphi-Quellcode:

zahl := -zahl;

Einzig qualifizierte Antwort !!!

-.-

falls man nicht weiß, obs neg / pos ist und es unbedingt neg. sein muss dann:

Zitat:

Zitat von Roachford

Delphi-Quellcode:

Zahl := -abs(Zahl);

EDIT: Fuck .. komme gerade drauf, dass das alles ironisch gemeinte Antworten sind ... mist .. sorry :P

Code:

  Zahl := -abs( Zahl + Zahl*2 + Zahl*3 - Zahl*7 );

[Meflin]

Was auch noch sicherstellt, dass man immer ein negatives Ergebis bekommt:

Delphi-Quellcode:

zahl := (sqrt(Power(zahl, 2)) * (-6)) / 6

:lol:

[divBy0]

falls man nicht weiß, obs neg / pos ist und es unbedingt neg. sein muss dann:

Code:

if zahl >= 0 then
zahl := -zahl;

[/quote]

Delphi-Quellcode:

zahl := -abs(zahl);

:-D

[Die Muhkuh]

Zitat:

Zitat von divBy0

Delphi-Quellcode:

zahl := -abs(zahl);

:-D

Hatten wir schon :)

[DeddyH]

Delphi-Quellcode:

Zahl := Succ(Zahl xor (1 shl Pred(SizeOf(Integer) shl 3) + MAXINT));

[divBy0]

Zitat:

Zitat von Die Muhkuh

Zitat:

Zitat von divBy0

Delphi-Quellcode:

zahl := -abs(zahl);

:-D

Hatten wir schon :)

Mist...

vielleicht der:

Delphi-Quellcode:

zahl := zahl * round(cos(180));

[calculon]

Zitat:

Zitat von Die Muhkuh

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

Ich überleg' schon die ganze Zeit, ob man da nicht ein GOTO einbauen kann. Gar nicht so einfach einen total lächerlichen Code zu schreiben, der aber nicht gleichzeitig total sinnlos ist...

Gruß
--

[haentschman]

[OT]
...selten so gelacht :mrgreen:

...unabhängig davon führen viele Wege nach Rom :thumb:
[/OT]

[Die Muhkuh]

Zitat:

Zitat von haentschman

[OT]
...selten so gelacht :mrgreen:

...unabhängig davon führen viele Wege nach Rom :thumb:
[/OT]

Und noch mehr zur negativen Zahl :mrgreen:

[mr_emre_d]

Zitat:

Zitat von divBy0

falls man nicht weiß, obs neg / pos ist und es unbedingt neg. sein muss dann:

Code:

if zahl >= 0 then
zahl := -zahl;

Delphi-Quellcode:

zahl := -abs(zahl);

:-D[/quote]

hatte ich eh so gemeint :P