Zahlen vergleichen

[himitsu]

wie schon gesagt wurde kann man, über die mit ABS angepaßte Differenz, die Abstände schön vergleichen

Delphi-Quellcode:

Erg1 := Abs(Zahl1 - Zufallszahl);
Erg2 := Abs(Zahl2 - Zufallszahl);

if Erg1 = Erg2 then
  Beide Gleich
else
if Erg1 > Erg2 then
  Irgendwas
else
  Irgendwas anderes

Delphi-Quellcode:

if Abs(Zahl1 - Zufallszahl) < Abs(Zahl2 - Zufallszahl) then
  Zahl1_näher_an_Zufallszahl
else
  Zahl2_näher_an_Zufallszahl (oder beides gleich);

Delphi-Quellcode:

// wurde schon genannt
if Zahl1 >= Zufallszahl then
  Erg1 := Zahl1 - Zufallszahl
else
  Erg1 := Zufallszahl - Zahl1 

// über die Umkehrung (-)
if Zahl1 >= Zufallszahl then
  Erg1 := Zahl1 - Zufallszahl
else
  Erg1 := -(Zahl1 - Zufallszahl)

// ebenfalls Umkehrung (-)
Erg1 := Zahl1 - Zufallszahl
if Erg1 < 0 then Erg1 := -Erg1;

// und die Umkerhung via Abs vereinfacht
Erg1 := Abs(Zahl1 - Zufallszahl);