Zahlen mit Komma vergleichen

[turbocounter]

Hallo,
ich habe diese Funktion:

Delphi-Quellcode:

function praemientester(summ1,summ2:double):boolean;
var summe: double;
begin
  summe:=summ1 + summ2;
  If (summe = 0.11) or (summe = 0.33) or (summe = 0.55) or (summe = 0.77) or
     (summe = 0.99)or (summe = 1.11) or (summe = 1.33) or (summe = 1.55) or
     (summe = 1.77) or (summe = 1.99)Then Result:=True
                                   Else Result:=False;

end;

Warum liefert sie nie true zurück? Selbst wenn die Summe 0,11 ist, dann funktioniert das nicht. Liegt das an den Datentypen/Gleitkommadarstellung? Wie ändere ich das oder wie nehme ich nur die Zahlen nach dem Komma und mach dann mit den integer zahlen ne addition. Mit frac() funktionierts nicht, da bleibt die 0 stehen.

Danke
Counter

[DeddyH]

Wie in meiner PN beschrieben, könnte es so gehen:

Delphi-Quellcode:

function praemientester(summ1,summ2:double):boolean;
var summe: double;
begin
  summe:=summ1 + summ2;
  Result := trunc(summe * 100) in [11,33,55,77,99,111,133,155,177,199];
end;

[hathor]

Multipliziere doch die Summe einfach mit 100 und vergleiche mit dem Hundertfachen.

[DeddyH]

Zitat:

Zitat von hathor

Multipliziere doch die Summe einfach mit 100 und vergleiche mit dem Hundertfachen.

Siehe #2 ;)

[Neutral General]

Hi,

Ich habs so gemacht. Also so ähnlich wie es schon gesagt wurde.

Delphi-Quellcode:

function Nachkomma(R: Single): Integer;
begin
  Result := Round(R*100 - Floor(R)*100);
end;

function IsPair(x1,x2: Single): Boolean;
begin
  Result := Nachkomma((NachKomma(x1) + Nachkomma(x2)) /100) in [11,33,55,77,99];
end;

Gruß
Neutral General

[turbocounter]

Danek euch, Deddy das von dir geht leider nicht, auch nicht das geänderte:

Delphi-Quellcode:

function praemientester(summ1,summ2:double):boolean;
var summe: double;
begin
  summe:=summ1 + summ2;
  If  (trunc(summe) * 100) = 77
   Then
   Result:=True;
end;

ich probiermal das vom General

[Namenloser]

Hi,

das kann auch nicht gehen, weil du schreibst:

Delphi-Quellcode:

trunc(summe)*100

Denn so werden erst die Kommastellen abgeschnitten und dann mit 100 multipliziert. Als Beispiel mit 1,77:
trunc(1,77) = 1
1*100 = 100 != 177
Du musst zuerst mit 100 multiplizieren und dann die Stellen abschneiden.

[DGL-luke]

Benutzt für Finanzmathematik doch bitte den Datentyp Currency, der immer genau 4 Nachkommanstellen hat.

Alle Fließkommadatentypen sind immer von Rundungsproblemen betroffen.

EDIT: Ach ja, das stinkt gefährlich nach BWInf Afg.1

[grenzgaenger]

kenn zwar die aufgabe nicht. aber ist schon merkwürdig, dass heut alle mit 10 gleitkomma zahlen handieren ... ;-)

Zitat:

98.30
55.88
9.64
83.96
35.88
7.64
73.82
54.85
63.07
3.98

[turbocounter]

warum funktioniert der Quelltext im Post von DeddyH nicht?
Man kann wahrscheinlich keine doubles vergleichen.

General, dein Quelltext geht bei mir nicht, des sagt das Floor ein nich deklarierter Bezeichner ist.

[turbocounter]

@ grenzgaenger hast dus jetzt endlich gecheckt dass das ne aufgabe von bundeswettbewerb ist? Und warum heute alle damit nerven, kann ich dir auch sagen: morgen ist einsendeschluss. :P

[Neutral General]

Zitat:

Zitat von turbocounter

@ grenzgaenger hast dus jetzt endlich gecheckt dass das ne aufgabe von bundeswettbewerb ist? Und warum heute alle damit nerven, kann ich dir auch sagen: morgen ist einsendeschluss. :P

Naja aber ich glaube ich kann dir sagen das du die Aufgabe bis morgen nicht fertig bekommst wenn du an dem Teil hängst. herauszufinden ob zwei Preise ein Pärchen bilden ist das geringste Problem der Aufgabe. Und auch das einfachste... Und ich wäre dir auch dankbar, das wenn du deine Aufgaben noch abschicken willst nicht meinen Quelltext so übernimmst. Ich hab ihn mal gepostet weil ich dir keine große Chancen gebe das bis morgen noch zu schaffen.

Gruß
Neutral General

[turbocounter]

sag mir doch mal warum dein quelltext bei mir nicht geht wenn ich ihn so übernehme? Doch das ist mein Problem, die perutationen der Artikel aufzustellen war dagege ein klax, ich komm nur nicht klar mit den datentypen in delphi. Also bite hilf mir bei meinem letztel teilziel, ich schreibe deinen quelltext auch um, aber wenn du selber nicht weißt warum der bei mir nicht geht, weißt du warum das von DeddyH nicht geht?

[Neutral General]

Du musst die Unit Math bei den uses einbinden.

[turbocounter]

ähh wie wo? kann ich auch math.floor schreiben??

[Neutral General]

Zitat:

Zitat von turbocounter

die perutationen der Artikel aufzustellen war dagege ein klax

Aber du weißt nicht wie man Units einbindet.. Ah ja..

ganz oben in der Unit steht irgendwo sowas wie

Delphi-Quellcode:

uses Windows, Messages, ...

da schreibst du einfach noch Math dazu:

Delphi-Quellcode:

uses Windows, Messages, ... , Math;

Gruß
Neutral General

[Khabarakh]

Zitat:

Zitat von Neutral General

Aber du weißt nicht wie man Units einbindet.. Ah ja..

Permutationen sind bei der Aufgabe auch alles andere als der Wahrheit letzter Schluss :zwinker: *mörderalgorithmusvonaufgabe2weiterdokumentier*.

[turbocounter]

nein weiß ich nicht ich bin nicht so kein delphi freak.
Danke ich hab das schon gefunden mit der Unit. Als euch dann viel Spass in der zweiten Runde und Danke für eure Hilfe

TC

[hathor]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von hathor

Multipliziere doch die Summe einfach mit 100 und vergleiche mit dem Hundertfachen.

Siehe #2 ;)

KLUGSCHEISSER!!!
Kannst Du gleichzeitig Text eingeben und andere Beiträge währenddessen lesen???

[Neutral General]

Zitat:

Zitat von hathor

Zitat:

Zitat von DeddyH

Zitat:

Zitat von hathor

Multipliziere doch die Summe einfach mit 100 und vergleiche mit dem Hundertfachen.

Siehe #2 ;)

KLUGSCHEISSER!!!
Kannst Du gleichzeitig Text eingeben und andere Beiträge währenddessen lesen???

Sonst ist alles in Ordnung ja? Komm mal runter Junge... :roll:

[Bomberbb]

Ich würde nicht auf Gleichheit testen. Denn es kann sein, dass in hinterster Dezimalstelle ein Unterschied ist.

Ich teste generell so:
abs(summe-0.77)<1e-4 //anstatt summe = 0.77

Gruß

Sascha

[Luckie]

Und hier noch mal, warum das so ist: Prüfe Fließkommazahlen nie auf Gleichheit!

[DeddyH]

Zitat:

Zitat von turbocounter

warum funktioniert der Quelltext im Post von DeddyH nicht?
Man kann wahrscheinlich keine doubles vergleichen.

Eben deshalb multipliziere ich sie erst mit 100, um die ersten beiden Nachkommastellen im Vergleich mit einzubeziehen und wandele sie dann mit trunc in integers. Ich bin mir ziemlich sicher (auch ohne Test), dass es funktionieren würde, sobald Du die Klammern richtig setzt.

[Bomberbb]

Ja, das ist im Prinzip auch das Gleiche, nur mit einer anderen Tolleranz.

[turbocounter]

@ Luckie toller Link, wenn er gehen würde.

[DeddyH]

Bei mir geht er.

[turbocounter]

hm ja jetzt bei mir auch