Summe aus vorgegebenen Zahlen Bilden

[Schokohase]

Hier etwas worauf du aufbauen kannst:

Delphi-Quellcode:

program KassenSturz;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  System.Generics.Defaults,
  System.Generics.Collections;

type
  TWallet = TDictionary<Currency, UInt32>;

procedure MoveMoney(const ASource: TWallet; AValue: Currency; const ADest: TWallet);
var
  Amount: Currency;
  Values: TArray<Currency>;
  Val: Currency;
begin
  if not Assigned(ASource) then
    raise EArgumentNilException.Create('ASource');
  if not Assigned(ADest) then
    raise EArgumentNilException.Create('ADest');

  Amount := AValue;
  Values := ASource.Keys.ToArray();
  TArray.Sort<Currency>(Values, TComparer<Currency>.Construct(
    function(const Left, Right: Currency): Integer
    begin
      Result := -TComparer<Currency>.Default.Compare(Left, Right);
    end));

  for Val in Values do
  begin
    while (Val <= Amount) and (ASource[Val] > 0) do
    begin
      ASource[Val] := ASource[Val] - 1;
      if not ADest.ContainsKey(Val) then
        ADest.Add(Val, 1)
      else
        ADest[Val] := ADest[Val] + 1;
      Amount := Amount - Val;
    end;
  end;

  if Amount > 0 then
    raise Exception.Create('Fehlermeldung');
end;

procedure WriteWallet(const Value: TWallet; IgnoreEmpty: Boolean = false);
var
  Values: TArray<Currency>;
  Val, Tot: Currency;
  Cnt: Integer;

begin
  Values := Value.Keys.ToArray();
  TArray.Sort<Currency>(Values, TComparer<Currency>.Construct(
    function(const Left, Right: Currency): Integer
    begin
      Result := -TComparer<Currency>.Default.Compare(Left, Right);
    end));

  Tot := 0;
  for Val in Values do
  begin
    Cnt := Value[Val];
    if IgnoreEmpty and (Cnt = 0) then
      Continue;
    Tot := Tot + Cnt * Val;
    Writeln(string.Format('%0.2f x %d = %0.2f', [Val, Cnt, Val * Cnt]));
  end;
  Writeln('======');
  Writeln(string.Format('Total: %0.2f', [Tot]));
end;

procedure Main;
var
  s, d: TWallet;
begin
  s := nil;
  d := nil;
  try
    s := TWallet.Create();
    s.Add(500.00, 0);
    s.Add(200.00, 1);
    s.Add(100.00, 0);
    s.Add(50.00, 0);
    s.Add(20.00, 2);
    s.Add(10.00, 0);
    s.Add(5.00, 6);
    s.Add(2.00, 9);
    s.Add(1.00, 0);
    s.Add(0.50, 10);
    s.Add(0.20, 0);
    s.Add(0.10, 0);
    s.Add(0.05, 3);
    s.Add(0.02, 0);
    s.Add(0.01, 0);

    d := TWallet.Create();

    Writeln('Source:');
    WriteWallet(s, true);
    Writeln('Destination:');
    WriteWallet(d, true);

    MoveMoney(s, 25.10, d);

    Writeln;
    Writeln('Source:');
    WriteWallet(s, true);
    Writeln('Destination:');
    WriteWallet(d, true);

  finally
    s.Free();
    d.Free();
  end;
end;

begin
  try
    { TODO -oUser -cConsole Main : Code hier einfügen }
    Main;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;

end.

PS Ja, ich weiß, das das noch nicht fertig ist, es ist ja auch etwas worauf man aufbauen kann.

[Moombas]

Vom Prinzip müsste es doch so funktionieren:

Delphi-Quellcode:

procedure Button1Click(Sender: TObject);
var
  iZweihundertE : Integer;
  iEinhundertE  : Integer;
  iFuenfzigE    : Integer;
  iZwanzigE     : Integer;
  iZehnE        : Integer;
  iFuenfE       : Integer;
  iZweiE        : Integer;
  iEinE         : Integer;
  iFuenfzigC    : Integer;
  iZwanzigC     : Integer;
  iZehnC        : Integer;
  iFuenfC       : Integer;
  iZweiC        : Integer;
  iEinC         : Integer;
  iTrinkgeldE   : Integer;
  iTrinkgeldC   : Integer;
begin
  iZweihundertE := 1;
  iEinhundertE  := 0;
  iFuenfzigE    := 0;
  iZwanzigE     := 2;
  iZehnE        := 0;
  iFuenfE       := 6;
  iZweiE        := 9;
  iEinE         := 0;
  iFuenfzigC    := 10;
  iZwanzigC     := 0;
  iZehnC        := 0;
  iFuenfC       := 3;
  iZweiC        := 0;
  iEinC         := 0;
  iTrinkgeldE   := 25;
  iTrinkgeldC   := 10;

  while (iTrinkgeldE >= 200) and
        (iZweihundertE > 0 ) do
  begin
    dec(iZweihundertE);
    iTrinkgeldE := iTrinkgeldE - 200;
  end;
  while (iTrinkgeldE >= 100) and
        (iEinhundertE > 0  ) do
  begin
    dec(iEinhundertE);
    iTrinkgeldE := iTrinkgeldE - 100;
  end;
  while (iTrinkgeldE >= 50) and
        (iFuenfzigE > 0   ) do
  begin
    dec(iFuenfzigE);
    iTrinkgeldE := iTrinkgeldE - 50;
  end;
  while (iTrinkgeldE >= 20) and
        (iZwanzigE > 0    ) do
  begin
    dec(iZwanzigE);
    iTrinkgeldE := iTrinkgeldE - 20;
  end;
  while (iTrinkgeldE >= 10) and
        (iZehnE > 0       ) do
  begin
    dec(iZehnE);
    iTrinkgeldE := iTrinkgeldE - 10;
  end;
  while (iTrinkgeldE >= 5) and
        (iFuenfE > 0     ) do
  begin
    dec(iFuenfE);
    iTrinkgeldE := iTrinkgeldE - 5;
  end;
  while (iTrinkgeldE >= 2) and
        (iZweiE > 0      ) do
  begin
    dec(iZweiE);
    iTrinkgeldE := iTrinkgeldE - 2;
  end;
  while (iTrinkgeldE >= 1) and
        (iEinE > 0       ) do
  begin
    dec(iEinE);
    iTrinkgeldE := iTrinkgeldE - 1;
  end;
  while (iTrinkgeldC >= 50) and
        (iFuenfzigC > 0   ) do
  begin
    dec(iFuenfzigC);
    iTrinkgeldC := iTrinkgeldC - 50;
  end;
  while (iTrinkgeldC >= 20) and
        (iZwanzigC > 0    ) do
  begin
    dec(iZwanzigC);
    iTrinkgeldC := iTrinkgeldC - 20;
  end;
  while (iTrinkgeldC >= 10) and
        (iZehnC > 0       ) do
  begin
    dec(iZehnC);
    iTrinkgeldC := iTrinkgeldC - 10;
  end;
  while (iTrinkgeldC >= 5) and
        (iFuenfC > 0     ) do
  begin
    dec(iFuenfC);
    iTrinkgeldC := iTrinkgeldC - 5;
  end;
  while (iTrinkgeldC >= 2) and
        (iZweiC > 0      ) do
  begin
    dec(iZweiC);
    iTrinkgeldC := iTrinkgeldC - 2;
  end;
  while (iTrinkgeldC >= 1) and
        (iEinC > 0       ) do
  begin
    dec(iEinC);
    iTrinkgeldC := iTrinkgeldC - 1;
  end;
  if (iTrinkgeldE > 0) or
     (iTrinkgeldC > 0) then
    showmessage('Das Trinkgeld kann nicht komplett aufgeteilt werden. Restbtrag: ' + inttostr(iTrinkgeldE) + ',' + inttostr(iTrinkgeldC))
  else
    showmessage('Das Trinkgeld kann komplett aufgeteilt werden.');
end;

Das man das über eine eigene Funktion regeln kann, anstatt C&P ist mir klar, soll ja nur als Beispiel dienen.
Zudem lässt es sich beim abarbeiten der Listview (wenn es in eine externe Funktion gelagert wird) recht einfach umsetzen. Aber der TE soll ja auch noch was zu tun haben^^

[Michael II]

Du sprichst hier (#5) ein interessantes mathematisches Problem an, welches vor langer Zeit gelöst worden ist. Tipp: Suche nach "Lineare Diophantische Gleichungen"

Sehr allgemeine Infos zu Diophantischen Gleichungen findest du hier:
https://de.wikipedia.org/wiki/Diophantische_Gleichung

Speziell für dein Problem:
https://de.wikipedia.org/wiki/Linear...sche_Gleichung

Ein weiteres Beispiel:
https://www.lernhelfer.de/schuelerlexikon/mathematik/artikel/diophant
(dort unten das Beispiel mit den Geschenken)


Hier gibt's ein Onlinetool. Du kannst eine Lineare Diophantische Gleichung eingeben und es wird erklärt, wie diese gelöst werden kann:
http://www.arndt-bruenner.de/mathe/s...ant.htm#script