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?

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

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

markieren

Code:

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

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!

Zitat von himitsu:

PS: ABS macht intern nichts anderes

markieren

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

markieren

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

markieren

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....

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?

Zitat von himitsu:

if x < 0 then x := -x;

genau das hat himitsu auch gesagt .

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.

Ich verstehe den Assemblercode nicht so ganz.

Was bedeutet cdq?

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

markieren

Delphi-Quellcode:

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

Zitat von 3_of_8:

markieren

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.