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 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 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 von Luckie:

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

sollte eigentlich soweit richtig sein.