Rechenaufgabe

[TheCatcher]

Ich habe eine rechenaufgabe deren Ergebnis auch mal Minus sein kann ergo -5484 -
Gibt es eine eifnach möglichkeite diese - dennoch NICHT anzuzeigen?
Oder bleibt mir da nichts anderes übrig als mit POS() etc zu arbeiten?

[Hulig4n]

Benuzte Abs(-3) um das wert positiv zu machen.

[himitsu]

Aber mit ein bissl Nachdenken hätte man auch selber auf eine Lösung kommen können ... entweder unter MATH in der OH suchen, oder

if x < 0 then x := -x; PS: ABS macht intern nichts anderes

Code:

function abs(x: TYP): TYP;
  begin
    [b]if x < 0 then
      result := -x[/b]
    else
      result := x;
  end;

[TheCatcher]

Danke ABS war genau das geniale!


Versproche: ich werde die OH mehr betätigen nur weis ich meist nie wonach ich suchen soll und dann ist das Forum doch einfacher!

[Amateurprofi]

Zitat von himitsu:

PS: ABS macht intern nichts anderes

Code:

function abs(x: TYP): TYP;
  begin
    [b]if x < 0 then
      result := -x[/b]
    else
      result := x;
  end;

@himitsu:
so ganz stimmt das nicht.
bei mir wird z.B. a:=Abs(a); so umgesetzt

bei Integerwerten

Delphi-Quellcode:

mov   eax,[adresse a]
cdq                  // wenn a negativ dann sind in edx alle Bits=1, sonst alle=0
xor   eax,edx
sub   eax,edx
mov   [adresse a], eax

bei realwerten, z.B. extended

Delphi-Quellcode:

fld   tbyte ptr [adresse a]
fabs                 // setzt das Vorzeichenbit = 0
fstp  tbyte ptr [adresses a]

Tja, warum schreibe ich das?!
weil ich gerade gestern das vermeintliche Problem hatte, daß ABS einen negativen Integerwert nicht in einen positiven Wert umwandelte.
Wenn nämlich eine Variable des Typs Integer ihren kleinstmöglichen Wert hat, also -2147483648 oder $8000000 dann gibt es keine korrespondierende positive Zahl und Abs() verändert den Wert nicht, er bleibt also negativ.
Hat ein bischen gedauert, bis ich begriffen hatte wo mein Denkfehler lag.
Bei eingeschalteter Überlaufprüfung gibts dann übrigens eine Fehlermeldung....

[alienous]

hm, nur so ne frage, wenn man -5212 in 5212 umwandeln will, wieso multipliziert man dann nich einfach mit x *(-1)

das ganze noch in ne ifabfrage, ob der wert unter 0 ist, und fertig isses doch oder nich?

[pacman1986]

Zitat von himitsu:

if x < 0 then x := -x;

genau das hat himitsu auch gesagt .

[Amateurprofi]

Zitat von alienous:

hm, nur so ne frage, wenn man -5212 in 5212 umwandeln will, wieso multipliziert man dann nich einfach mit x *(-1)

das ganze noch in ne ifabfrage, ob der wert unter 0 ist, und fertig isses doch oder nich?

Ja, viele Wege führen nach Rom, aber nicht alle sind gleich gut oder gleich schnell.
Das IF und besonders die Multiplikation kosten einiges an Performance. Das dürfte auch der Grund sein, warum das ABS() so umgesetzt wird wie oben dargestellt. Das siehr zwar etwas umständlich aus, vermeidet aber die mit einem Vergleich verbundene bedingte Verzweigung.

[3_of_8]

Ich verstehe den Assemblercode nicht so ganz.

Was bedeutet cdq?

Ich hätte jetzt das ganze jetzt (in Delphi) so gemacht:

Delphi-Quellcode:

function abs(value: Integer): Integer;
begin
  if value<0 then  result:=(not value)+1 else result:=value;
end;

[gordon freeman]

Zitat von 3_of_8:

Delphi-Quellcode:

function abs(value: Integer): Integer;
begin
  if value<0 do result:=(not value)+1 else result:=value;
end;

Himitsu hatte oben schon eine deutlich bessere Lösung dargestellt.
Allein die Kombination von if und do lässt mir ja schon die Haare zu Berge stehen.