Hallo!
mir ist grad ein sehr merkwürdiges Phänomen aufgefallen:

markieren

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Ergebnis,Zahl1,Zahl2:real;
begin
 Zahl1:=0.575;
 Zahl2:=0.675;
 Ergebnis:=0.100/(Zahl2-Zahl1);
 panel1.Caption:=floattostr(Ergebnis);
end;

Ich hab die werte der Variabeln Zahl1 und zahl2 so gewählt, dass in diesem code-beispiel als ergebnis 1 rauskommen müsste. Das Panel zeigt aber 0.9999999..... an! wisst ihr, was der grund dafür sein könnte?
gruß,
Borti

Hast ein Intel Prozessor mit dem berühmten Pentium Rechen Fehler ?

Ne das ist wirklich komisch

das sind grundlagen: es liegt an der internen binärdarstellung der zahlen.

sollte man auf jeden fall wissen, wenn man programmierer ist.

deswegen vergleicht man zwei double-werte auch nie per (a=b) sondern immer (Abs(a-b) < eps).

hab bei dem code das selbe ergebnis

wenn ich als variablen aber statt single, extended verwende, kommt 1 raus

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Ergebnis,Zahl1,Zahl2:extended;
begin
Zahl1:=0.575;
Zahl2:=0.675;
Ergebnis:=0.100/(Zahl2-Zahl1);
label1.Caption:=floattostr(Ergebnis);
end;

löse es so:

panel1.Caption := FloatToStrF(Ergebnis,ffFixed,15,0); MFG Alex

ah! super! funktioniert!

Danke!

Zitat:

deswegen vergleicht man zwei double-werte auch nie per (a=b) sondern immer (Abs(a-b) < eps).

Und warum ist das so???

Solche ähnlichen Fehler kommen bei Excel oder so auch raus, hatten wir mal in der Schule.

An manchen Rechner gings, an manchen kam durch ein Rundungsfehler was falsches

air
(obwohl alle rechner gleich sind )

Zitat:

deswegen vergleicht man zwei double-werte auch nie per (a=b) sondern immer (Abs(a-b) < eps).

genial.. wusste ich jetzt auch noch nicht, hab mir aber in der richtung schon was gedacht..

eps ist epsilon, womich ich jetzt nicht soviel anfangen kann, aber dein weg ist richtig und sollte wirklich in jedem anfängerhandbuch stehen

Hi,

Zitat:

Ich hab die werte der Variabeln Zahl1 und zahl2 so gewählt, dass in diesem code-beispiel als ergebnis 1 rauskommen müsste. Das Panel zeigt aber 0.9999999..... an!

[Edit]Die vielen Punkte dienen dafür, dass _ über der 9 steht[/Edit]
. . . . . . . . . . . . . . . . . . . . . . . _
Mathematisch gesehen ist 0.9 (Periode),
das Gleiche wie 1.
Aber warum Delphi das so macht?
(Wenn es überhaupt an Delphi liegt! )

MfG Marc

P.S.: Die Lösung können wir jetzt, aber warum zeigt es Delphi so an??