Delphi-PRAXiS
Seite 4 von 22   « Erste     234 5614     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Positive Zahlen in negative umwandeln (https://www.delphipraxis.net/123215-positive-zahlen-negative-umwandeln.html)

jfheins 29. Okt 2008 17:52

Re: Positive Zahlen in negative umwandeln
 
Wäre es nicht sauberer das objektorientiert zu lösen? :mrgreen:

The Riddler 29. Okt 2008 17:52

Re: Positive Zahlen in negative umwandeln
 
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 29. Okt 2008 17:54

Re: Positive Zahlen in negative umwandeln
 
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 29. Okt 2008 17:55

Re: Positive Zahlen in negative umwandeln
 
:lol:

Naja zur Beruhigung:

Thread1

und

Thread2

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

DeddyH 29. Okt 2008 17:56

Re: Positive Zahlen in negative umwandeln
 
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 29. Okt 2008 17:57

Re: Positive Zahlen in negative umwandeln
 
Code:
zahl := -1*((zahl / (-1/8))/8 * i^2) // i = Wurzel aus -1 :D
is wohl die einfachste Möglichkeit :D grins

The Riddler 29. Okt 2008 17:58

Re: Positive Zahlen in negative umwandeln
 
@Deddy: Nene, es gibt nur Menschen die keinen Spass verstehen. Also lass dir deinen Preis nicht mies machen!

calculon 29. Okt 2008 17:58

Re: Positive Zahlen in negative umwandeln
 
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 29. Okt 2008 17:58

Re: Positive Zahlen in negative umwandeln
 
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 29. Okt 2008 18:00

Re: Positive Zahlen in negative umwandeln
 
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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:09 Uhr.
Seite 4 von 22   « Erste     234 5614     Letzte »    

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz