Vorzeichen entfernen

[Flo.Hoe]

Hi,

Bis jetzt habe ich zum berechnen des Betrages immer folgenden Code benutzt:
Zahl:=sqrt(Zahl*Zahl) Ich schätze, dass es eine Geschicktere Lösung geben wird.
Welche könnte das sein?

[mkinzler]

ABS()

[Phoenix]

absoluterwert := Abs(-5); Achja: Uses System.

Edit Nachtrag: Ich komm mir heute langsam vor...

[Flo.Hoe]

Danke. Genau danach hab ich gesucht.

[3_of_8]

uses System? O_o

Phoenix, war das ironisch gemeint? Wenn nein, System ist IMMER eingebunden.

[Phoenix]

Ich bin heut einfach nicht mehr ganz wach...

[hathor]

Ich auch.
Ich bin heut einfach nicht mehr ganz wach... Rotating Eyes

[SirThornberry]

die wurzel ziehen ist nicht umbedingt das beste für die cpu. ohne abs wäre eine Lösung zu schauen ob die Zahl < 0 ist und wenn dem der fall ist * -1 zu rechnen. bzw. einfach das minus vorranstellen (denn - + - ergibt +)

Delphi-Quellcode:

if zahl < 0 then
  zahl := -zahl;

[3_of_8]

...wobei abs() um einiges schneller ist. Wenn der Compiler es inlinet (was er vermutlich tun wird), braucht es sogar nur 3 Assemblerbefehle (bei Integern, bei Float wäre es ein FPU-Befehl), und zwar ein cdq, ein xor und ein sub. Ein if und eine Subtraktion sind dadurch langsamer.

[_frank_]

Zitat von SirThornberry:

(denn - + - ergibt +)

achso? wusste ich noch gar nicht

kannte das nur als
- * - = +

da würde ja
-5 + -2

+7 ergeben, richtig? oder vielleicht +3...

das minus voranstellen macht ja auch ne multiplikation
sicher nur ein schreibfehler, aber wollte das nicht so stehen lassen...

ein etwas exotischer weg wäre sicher auch, das höchstwertige Bit auf 0 zu setzen

Gruß Frank