Fließkommazahlen auf Gleichheit prüfen

[Luckie]

Jeder weiß, oder sollte wissen, dass man dies nicht tun sollte. Warum, das werde ich noch zeigen. Allerdings bräuchte ich mal ein kleines Delphi-Beispiel, um dies zu zeigen.

Folgendes geht leider:

Delphi-Quellcode:

var
  a: Double;
  b: Double;

begin
  a := 19.3;
  b := 2 * 9.65;

  if a = b then
    Writeln('gleich')
  else
    Writeln('ungleich');
  Readln;

Ich bräuchte aber ein entsprechende Beispiel, beim dem die Abfrage auf Gleichheit nicht funktioniert.

[fwsp]

bei mir ist folgendes ungleich:

Delphi-Quellcode:

var
  a, b: Real;

begin
  a := 12345789.987654321;
  b := 24691357.9975308642 / 2;

  if a = b then
    Writeln('gleich')
  else
    Writeln('ungleich');
  Readln;
end.

Edit1:
Nach der Delphi 7 PE Hilfe ist Double = Real.

[Luckie]

Das Beispiel macht aber nur Sinn, wenn man durch zwei anstatt durch fünf teilt. ;)

Danke.

Dan habe ich einfach zu wenige Stellen genommen beim Testen.

[fwsp]

Zitat:

Zitat von Luckie

Das Beispiel macht aber nur Sinn, wenn man durch zwei anstatt durch fünf teilt. ;)

ich kann mich nicht erinnern irgendwo was anderes geschrieben zu haben...
daniel muss wohl gemeiner weise meine post nach

Code:

/ 2

parsen lassen und es durch

Code:

/ 5

ersetzen lassen.

[Dax]

10.0/3.0 und 10*(1.0/3.0) tun genau das selbe bei weniger Schreibaufwand :)

[Luckie]

Zitat:

Zitat von fwsp

bei mir ist folgendes ungleich:

Delphi-Quellcode:

var
  a, b: Real;

begin
  a := 12345789.987654321;
  b := 24691357.9975308642 / 2;

  if a = b then
    Writeln('gleich')
  else
    Writeln('ungleich');
  Readln;
end.

Bei mir aber nicht:

Delphi-Quellcode:

var
  a, b: Double;

begin
  a := 12345789.987654321;
  b := 24691579.975308642 / 2;

  Writeln('a: ', a);
  Writeln('b: ', b);
  if a = b then
    Writeln('gleich')
  else
    Writeln('ungleich');
  Readln;

Ausgabe:

Code:

a:  1.23457899876543E+0007
b:  1.23457899876543E+0007
gleich

Du hast dich vertan. Zwei mal 12345789.987654321 ist nicht 24691357.9975308642 sondern 24691579.975308642.

@Dax auch dein Beispiel ergibt 'gleich'.

EDIT: Übrigens das Beispiel von dieser Seite: http://www.mpdvc.de/artikel/FloatingPoint.htm funktioniert in Delphi auch nicht, aber in C. Wo liegt der Unterschied bei der Zahlenbehandlung von Delphi und C?

Im Anhang mal mein Artikel als PDF zu der Prolematik.

[Luckie]

OK, es liegt der Schluss nahe, dass die Delphi Datentypen für dieses Beispiel von Haus aus schon zu genau sind. ;)

[Cöster]

wenn man nicht a (=3/10) und b (=3/10) vergleicht, sondern a (=3/10) und 3/10, ist es ungleich, vorrausgesetzt, dass a Double ist. Wenn man Extended wählt, muss man a und 10*(1/3) vergleichen, damit es ungleich ist.

[Luckie]

Ist der Artikel denn so verständlich und sachlich richtig oder gibt es noch Ergänzungen / Korrekturen?

[fwsp]

Zitat:

Zitat von Luckie

Ist der Artikel denn so verständlich und sachlich richtig oder gibt es noch Ergänzungen / Korrekturen?

sollte eigentlich soweit richtig sein.