Addieren in if Abfrage

[Niklas-]

Hallo
Ich habe da ein ganz banales Problem:

Delphi-Quellcode:

if (3.12+1.5+3.25+0.4 = 8.27) then Label5.caption := 'true';

funktioniert wie es soll, nur

Delphi-Quellcode:

a := 3.12;
b := 1.5;
c := 3.25;
d := 0.4;
if (a+b+c+d = 8.27) then Label5.caption := 'true';

Funktioniert nicht, ich versteh es einfach nicht, aber bei einer multiplikation sieht es genauso aus!

Die Zahlen sind alle extenden Variablen...

Ganz banal, kann mir da einer helfen???
Ich benutze Delphi 7 Personal

Danke!!

[marabu]

Hallo Niklas,

du musst richtig klammern:

Delphi-Quellcode:

if (a+b+c+d) = 8.27 then Label5.caption := 'true';

Grüße vom marabu

[Niklas-]

Nein, sorry, geht trotzdem nicht...

EDIT: So gehts:

Delphi-Quellcode:

if ((a+b)+(c+d)) = 8.27 then Label5.caption := 'true';

Nur warum??? :wiejetzt:

[MrMyagi]

Abend,
Edit: ---sry, was überlesen :oops: ---


mfG, Nico

[Niklas-]

Delphi-Quellcode:

a := 3.12;
b := 1.5;
c := 3.25;
d := 0.4;
if ((a*b*c*d)) = 6.084 then Label5.caption := 'true' else Label5.caption := floattostr(a*b*c*d);

bei diese abfrage gibt mir das *zensiert* Label "6,084" aus!! Ich versteh das nicht! Weil wenn a*b*c*d 6,084 sind, muss das Laberl doch "true" anzeigen!!

[marabu]

Das mit der Klammerung war eine Fehlleistung von mir. Hier werden Gleitkommazahlen addiert und mit einer Näherung verglichen, was nur in seltenen Ausnahmefällen funktioniert. Hier wird ein Epsilon-Test benötigt:

Delphi-Quellcode:

if {Math.}IsZero(a+b+c+d - 8.27) then Label5.caption := 'true';

Freundliche Grüße

[Niklas-]

Magst du nochmal bitte genau erklären, warum das so ist??

Nur aus interesse...

Danke schonmal!!

EDIT: Das ganze funktioniert leider nicht... Das {Math.} wird ignoriert und dann sagt er mir, das er nicht weiß, was IsZero ist...

[marabu]

Das Problem ist, dass deine Gleitkommazahlen sich nur in seltenen Fällen exakt binär darstellen lassen. In der Regel erhältst du eine binäre Näherung. Ein Test auf Gleichheit schlägt dann zwangsläufig fehl. Näheres dazu findest du unter dem von mir verwendeten terminus technicus "Epsilon Test" - auch hier im Forum.

[Niklas-]

Danke, das habe ich mir fast gedacht, das ist auch der Grund warum ich extended genommen habe, denn bei real wird der ganze Rattenschwanz dann auch noch angezeigt...

Aber das ganze funktioniert leider nicht... Das {Math.} wird ignoriert und dann sagt er mir, das er nicht weiß, was IsZero ist...

Und nun??

EDIT: So funktioniert das ganze:

Delphi-Quellcode:

if ((6.084 - summe < 0.001) and (6.084 - summe > -0.001)) then Label5.caption := 'true';

Ist aber nicht ganz so elegant...

[Phoenix]

Deswegen ja auch Math.IsZero...

Er will mit den geschweiften Klammern sagen, dass IsZero in der UNit Math steckt. Also musst Du die Unit Math in Deine Uses-Klauses aufnehmen, dann findet er die Funktion auch.