Gleitpunktarithmetik - Diskrepanzen

Thema durchsuchen

Ansicht

Themen-Optionen

Gleitpunktarithmetik - Diskrepanzen

Ein Thema von mumu · begonnen am 18. Dez 2005 · letzter Beitrag vom 20. Dez 2005

Antwort

alzaimar

(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge

Delphi 2007 Enterprise

Re: Gleitpunktarithmetik - Diskrepanzen

19. Dez 2005, 16:39

Einen hab ich noch: Kein Vergleich, keine 0, nur simples Addieren. Alle Zwischenergebnisse innerhalb des Wertebereiches.

markieren

Delphi-Quellcode:

			Var

  x : Double;

  i : Integer;

begin

  x:=-1;

  For i:=1 to 10000 do x := x + 0.1;

  For i:=1 to 10000 do x := x - 0.1;

  memo.lines.add (FloatToStr(x));

end;

Was kommt raus (x + 10000*0.1 - 10000*0.1 = ?)
Bei Extended muss man ca. 500x öfter rechnen. Kann es sein, das auch die 0.1 nicht 100%ig akkurat dargestellt werden kann?

"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")