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);