Geldautomat

[rollstuhlfahrer]

Und bei 4,96 stimmts auch? - Wenn nicht liegts an der Genauigkeit deiner Zahlen.

Bernhard

[Matz4000]

Ok danke für die schnellen Antworten...
aber @s.h.a.r.k:
Ich meinte mit 4.97 den Preis d.h. das Rückgeld beträgt 5.03 und da wird ein cent ausgezahlt...

Es klappt wirklich alles wies klappen soll außer das er manchmal n cent verschluckt...
Ich glaube kaum das das was mit Real und Currency zutun hat...aber danke für den Hinweis

Frage mich immer noch woran das hängen könnte...

Gruß


Edit:
Wie ich sehe hat noch niemand das Programm sich angeschaut, ich würds empfelen vll. kommt ihr dann drauf...

[BUG]

Zitat von Matz4000:

Ich glaube kaum das das was mit Real und Currency zutun hat...aber danke für den Hinweis

Hast du es ausprobiert?

EDIT: Wenn du das gemacht hast, können wir evtl. nochmal über Genauigkeit diskutieren.

[Matz4000]

Ok ich muss mich entschuldigen
Ihr hattet recht...unglaublich das das DARAN jetzt was geändert hat...ich versteh allerdings immer noch nicht warum ?!

gruß

[BUG]

Einige Zahlen die im Dezimalsystem ohne nicht periodisch sind, sind periodisch in der Binärdarstellung (genau wie 1/3 = 0,3 im Dezimalsystem):

0,1d = 0,0000110b

Da man aber nur einen bestimmten Platz hat, kann man nicht alle Stellen speichern.
Deshalb gibt es Ungenauigkeiten. Mehr auf Wikipedia ...

Currency vermeidet diese Ungenauigkeit, indem es die Nachkommastellen auf 4 begrenzt und damit rechnet als wären es Ganzzahlen.

[Matz4000]

ahh ok danke

[Deep-Sea]

Um genau zu sein ist Currency eine Festkommazahl. In Delphi intern ist es ein normaler 64-bit Integer (bei dem die vier niederwertigsten Stellen als Nachkommastellen angesehen werden).

Und wie gesagt: Die Schleifen bieten sich geradezu an, in eine Funktion ausgelagert zu werden. Und auch die Strings wie "2-Euro-Stück" könnte man automatisch erzeugen.

[Jumpy]

Kann man nicht das ganze mit nur einer Schleife lösen?

Delphi-Quellcode:

while R<> 0 do
  begin
    if R>2 then 
      begin
        listbox.Add ...;
        R=R-2;
      end
    else if R>1 then 
      begin
        listbox.Add ...;
        R=R-1;
      end
    else if ... 

  end

Mach den Code jetzt auch nicht schöner, aber man hat nur eine Schleife...
Oder hab ich da jetzt einen Denkfehler drin?