Positive Zahlen in negative umwandeln

[mr_emre_d]

Zitat von Roachford:

zahl := -zahl;

Einzig qualifizierte Antwort !!!

-.-

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

Zitat von Roachford:

Zahl := -abs(Zahl);

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

Code:

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

[Meflin]

Was auch noch sicherstellt, dass man immer ein negatives Ergebis bekommt:
zahl := (sqrt(Power(zahl, 2)) * (-6)) / 6

[divBy0]

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

Code:

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

[/quote]

zahl := -abs(zahl);

[Die Muhkuh]

Zitat von divBy0:

zahl := -abs(zahl);

Hatten wir schon

[DeddyH]

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

[divBy0]

Zitat von Die Muhkuh:

Zitat von divBy0:

zahl := -abs(zahl);

Hatten wir schon

Mist...

vielleicht der:

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

[calculon]

Zitat von Die Muhkuh:

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

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

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

[Die Muhkuh]

Zitat von haentschman:

[OT]
...selten so gelacht

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

Und noch mehr zur negativen Zahl

[mr_emre_d]

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;

zahl := -abs(zahl); [/quote]

hatte ich eh so gemeint