Einzelnen Beitrag anzeigen

Benutzerbild von Corpsman
Corpsman

Registriert seit: 8. Nov 2005
Ort: nähe Stuttgart
981 Beiträge
 
Delphi XE2 Professional
 
#10

Re: Berechnungen (0.2400001 * 0.7500009) scheitern in Delphi

  Alt 30. Jan 2009, 17:03
Um mich meinen Vorrednern an zu schliesen.

das einzige was du wenn überhaubt, machen kannst ist ein Vergleich mit Epsilonkugeln
Delphi-Quellcode:
function Gleich( v1,v2,Epsilon:Double):Boolean;
begin
  result := abs( v1-v2) <= Epsilon;
end;
Wobei du Epsilon wiederum auch nicht zu klein wählen darfst, siehe die oberen Posts.

und dann Tut if Gleich(0.00000001 , 0.00000001, 0.001) then TuWas(); auch was
Uwe
My Sitewww.Corpsman.de

My marble madness clone Balanced ( ca. 70,0 mb ) aktuell ver 2.01
  Mit Zitat antworten Zitat