Positive Zahlen in negative umwandeln

[Larsi]

Hi,
wie kann ich beispielsweise die positive Zahl 40 in - 40 machen. In Delphi?

[Die Muhkuh]

:mrgreen:

Wie machst Du es normal in Mathematik?

[DeddyH]

Ist das Dein Ernst?

Delphi-Quellcode:

Zahl := -abs(Zahl);

Das ist auf jeden Fall negativ.

[nahpets]

* -1
oder

Delphi-Quellcode:

StrToInt('-' + IntToStr(40))

:wink:

[Dunkel]

oder Zahl := Zahl - (Zahl * 2);

[The Riddler]

Oder:

Delphi-Quellcode:

Zahl := ((((Zahl * 350) * -1000) / 350) / 1000)

[DeddyH]

Delphi-Quellcode:

Zahl := Zahl * -Sign(Zahl);

[Roachford]

Delphi-Quellcode:

zahl := -zahl;

[Die Muhkuh]

Herrlich :mrgreen:

[The Riddler]

Delphi-Quellcode:

Zahl := Zahl - (4 * Zahl / 2);

[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:

[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

[jfheins]

Wäre es nicht sauberer das objektorientiert zu lösen? :mrgreen:

[The Riddler]

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

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

lol, sehr geil! :thumb:
http://www.testriffic.com/resultfile..._the_prize.jpg

[Roachford]

Schön das du das mit einem Bild eines behinderten Kindes untermalst. Du hast nicht zufälligerweise das Downing-Syndrom oder warum war gerade ein solches Bild für dich passend? Oder ist dein Lebensmotto einfach nur: "Behinderung ist witzig?"

[Neutral General]

:lol:

Naja zur Beruhigung:

Thread1

und

Thread2

Manche Leute habens halt nicht so mit den negativen Zahlen :mrgreen: :duck:

[DeddyH]

I feel honored :mrgreen:
Ich kann an dem Foto nichts Anstößiges finden, da hier niemand diffamiert wird (oder hab ich ein Detail übersehen?)

[Noedel]

Code:

zahl := -1*((zahl / (-1/8))/8 * i^2)  // i = Wurzel aus -1 :D

is wohl die einfachste Möglichkeit :D grins

[The Riddler]

@Deddy: Nene, es gibt nur Menschen die keinen Spass verstehen. Also lass dir deinen Preis nicht mies machen!

[calculon]

Zitat:

Zitat von DeddyH

I feel honored :mrgreen:
Ich kann an dem Foto nichts Anstößiges finden, da hier niemand diffamiert wird (oder hab ich ein Detail übersehen?)

Naja, der Gewinner (also DU) hat Down-Syndrom. Früher auch als Mongoloismus bezeichnet...

Gruß
--

[SirThornberry]

Zitat:

Zitat von 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:

Bei aller Freude aber das hier funktioniert nicht :tongue:

Angenommen wir nehmen 1 dann ist temp vor der schleife 1.
Die schleife läuft dann von 0 bis temp(1)*2=2
erster durchlauf
zahl := zahl(1) - i(0) = 1
zweiter durchlauf
zahl := zahl(1) - i(1) = 0
dritter durchlauf
zahl := zahl(0) - i(2) = -2

[Roachford]

Zitat:

Zitat von The Riddler

@Deddy: Nene, es gibt nur Menschen die keinen Spass verstehen. Also lass dir deinen Preis nicht mies machen!

Ich kann Spass verstehen, du hättest viele Bilder linken können und ich habe kein Problem damit, so lange es nicht diskriminierend ist, was ich bei dem oben eingestellten verlinke. Das Problem ist leider meistens, das der grosse Anteil der Menschen nicht mit behinderten Menschen zu tun haben und deshalb (wenn auch vllt. unabsichtig) recht unsensibel sind.