Geldautomat

[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. :-D

[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?

[jfheins]

Zitat:

Zitat von Jumpy (Beitrag 1085538)

Kann man nicht das ganze mit nur einer Schleife lösen?´
Mach den Code jetzt auch nicht schöner, aber man hat nur eine Schleife...
Oder hab ich da jetzt einen Denkfehler drin?

Ja, geht - macht den Code aber weder schöner noch schneller von daher isses egal ;)

[Deep-Sea]

@Jumpy:
Mh, sollte gehen. Aber was hat man davon? Es sind immer noch zig Redundanzen drin. Darum sagte ich ja auch auslagern in eine Funktion ^^

[DeddyH]

Evtl. so?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
//aus Bequemlichkeitsgründen Konstanten definiert statt Eingaben auszuwerten
const
  Preis   = 5.01;
  Einwurf = 10;
var
  Rest: Currency;
begin
  ListBox1.Items.BeginUpdate;
  try
    Rest := Einwurf - Preis;
    Rueckgabe(trunc(Rest * 100));
  finally
    ListBox1.Items.EndUpdate;
  end;
end;

procedure TForm1.Rueckgabe(WertInCent: integer);
begin
  if WertInCent > 0 then
    case WertInCent of
      1:
        begin
          ListBox1.Items.Add('1 Cent');
          Rueckgabe(WertInCent - 1);
        end;
      2 .. 4:
        begin
          ListBox1.Items.Add('2 Cent');
          Rueckgabe(WertInCent - 2);
        end;
      5 .. 9:
        begin
          ListBox1.Items.Add('5 Cent');
          Rueckgabe(WertInCent - 5);
        end;
      10 .. 19:
        begin
          ListBox1.Items.Add('10 Cent');
          Rueckgabe(WertInCent - 10);
        end;
      20 .. 49:
        begin
          ListBox1.Items.Add('20 Cent');
          Rueckgabe(WertInCent - 20);
        end;
      50 .. 99:
        begin
          ListBox1.Items.Add('50 Cent');
          Rueckgabe(WertInCent - 50);
        end;
      100 .. 199:
        begin
          ListBox1.Items.Add('1 Euro');
          Rueckgabe(WertInCent - 100);
        end;
    else
      begin
        ListBox1.Items.Add('2 Euro');
        Rueckgabe(WertInCent - 200);
      end;
    end;
end;

[Deep-Sea]

Zitat:

Zitat von DeddyH (Beitrag 1085549)

Evtl. so?

War das jetzt auf mein "in eine Funktion auslagern" bezogen? Wenn ja: Nein, so hatte ICH mir das nicht vorgestellt. Eher so:

Delphi-Quellcode:

procedure TForm1.WechselgeldAusgeben(var ABetrag: Currency; AMuenzwert: Currency);
begin
  While ABetrag >= AMuenzwert do
  begin
    ABetrag := ABetrag - AMuenzwert;
    If AMuenzwert >= 1 then ListBox1.Items.Add(Format('%d-Euro-Stück', [Round(AMuenzwert)]))
      else ListBox1.Items.Add(Format('%d-Cent-Stück', [Round(AMuenzwert * 100)]));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var 
  S: Integer;
  Preis, R: Currency;
begin
  Preis := StrToCurr(Edit1.Text);
  S := StrToInt(Edit2.Text);
  ListBox1.Clear;
  R := S - Preis;
  If R > 9.99 then raise Exception.Create('Der Automat gibt ausschließlich Kleingeld und nur bis 9,99€.');
  WechselgeldAusgeben(R, 2.00);
  WechselgeldAusgeben(R, 1.00);
  WechselgeldAusgeben(R, 0.50);
  WechselgeldAusgeben(R, 0.20);
  WechselgeldAusgeben(R, 0.10);
  WechselgeldAusgeben(R, 0.05);
  WechselgeldAusgeben(R, 0.02);
  WechselgeldAusgeben(R, 0.01);
end;

Ungetestet, aber so ist meine Vorstellung :-D
So kann man einfach verfügbare Münzen hinzufügen, entfernen oder ändern, ohne die Schleife in dem der Münzwert drei mal redundant vorkommt anfassen zu müssen. Durch die Redundanz in der ursprünglichen Implementation schleichen sich sonst seeehr leicht Fehler ein.

[Jumpy]

Wenn man den Betrag in Cent hat (also Eingabe*100) und das dann irgendwie in Integer umwandelt ginge auch:

Delphi-Quellcode:

var
  R,a : Integer;
  M : array[1..8]
begin
  M[1]=200;M[2]=100;M[3]=50;M[4]=20;M[5]=10;M[6]=5;M[7]=2;M[8]=1;

  R=CurrencyToInt(RückgeldInEuro * 100); //CurrencyToInt ??? s.o.

  for i = 1 To 8 do
    begin
    a:=R div M[i];
    R:=R-a;
    if a > 0 then
      begin      
      if M[i] >= 100 then
        ListBox1.Items.Add(IntToStr(M[i]/100)+'-Euro-Stück: '+IntToSTr(a)+'x')
      else
        ListBox1.Items.Add(IntToStr(M[i])+'-Cent-Stück: '+IntToSTr(a)+'x');
      end;
    end;
end