Lösungsweg für Mischkarton´s gesucht !

[Bjoerk]

Die Aufgabe ist nicht wirklich schwer. (While Flaschen.Count > 0 do ..). Nimm dir eine beliebige Flasche und pack sie in den Kasten, in dem für diese Sorte Flaschen noch der meiste Platz ist. Gibt es keinen Platz mehr dann einen neuen Kasten aufmachen. Die Flasche aus der Liste raus löschen.

[Sir Rufo]

Während der Aufteilung gibt es pro Flaschengröße maximal einen nicht ganz vollen Karton. Wechselt der Artikel, dann werden zuerst ganze Kartons mit dem gleichen Artikel zusammengefasst. Was dann noch übrig bleibt, wird in den Mischkarton gepackt.

[Bjoerk]

Oder die Liste vorher (nach Produkt) sortieren und alles ist gut.

[Sir Rufo]

Zitat von Bjoerk:

Oder die Liste vorher (nach Produkt) sortieren und alles ist gut.

Und das hilft wobei?

Ich gehe mal davon aus, dass die Informationen in der Art kommen, wie der TE das beschrieben hat:
10xA, 6xB, 2xC

Nach deiner Methode würden wir jetzt 3 Kartons erhalten mit

• 6xA
• 4xA,2xB
• 4xB,2xC

Mit meiner Methode

• 6xA
• 6xB
• 4xA,2xC

Allerdings kann auch mein Ansatz noch weiter verfeinert (verbessert) werden, damit gleiche Artikel möglichst auf nicht zuviele Kartons verteilt werden.

[Bjoerk]

[Saarlännich]Ei, ich hann gemennt, sordiere is immer gudd.[/Saarlännich]. Anyway. Aber hast Recht. Bringt hier nix wenn man zuerst die ganzen Kasten ausm Keller holen will.

[Hotti]

Hi Sir Rufo,

und hast das Prinzip der Sache Perfekt verstanden. Die 6*B aus deinem Beispiel sind ja schon ein komplett gefüllter Karton und sollen nicht auf andere Kartons verteilt werden.

Frage ! Wenn ihr von Listen schreibt, was wäre der beste Datentyp für die Daten Verschieberei !

Hotti

[Bjoerk]

Habs jetzt doch schnell mal gemacht. Ich hab zum Beispiel sowas verwendet. Das muß aber nicht so sein. Das kann man auch mit Arrays machen, falls du dich damit besser auskennst?

Delphi-Quellcode:

type
  TBottleStyle = (bs75, bs100);

const
  cBoxBottlesCount: array[TBottleStyle] of integer = (6, 6); // Wieviel Flaschen passen in den Kasten;

type
  TBottleProduct = (bpA, bpB, bpC, bpD, bpE, bpF, bpG, bpH, bpI, bpJ, bpK);

  TBottle = class // Eine Flasche;
  private
    FProduct: TBottleProduct;
    FStyle: TBottleStyle;
  public
    property Product: TBottleProduct read FProduct write FProduct;
    property Style: TBottleStyle read FStyle write FStyle;
  end;

  TBottles = class // Liste von Flaschen;
  private
    FItems: TObjectList;
    function GetBottle(Index: integer): TBottle;
    function GetCount: integer;
  public
    function Add(Product: TBottleProduct; Style: TBottleStyle): integer;
    procedure Delete(Index: integer);
    procedure Clear;
    procedure AddAsStringsTo(Dest: TStrings);
    function CountAsString: string;
    procedure Assign(Value: TBottles);
    procedure Sort;
    function CanExtractBox(var BottleProduct: TBottleProduct;
      var BottleStyle: TBottleStyle): boolean;
    property Bottle[Index: integer]: TBottle read GetBottle; default;
    property Count: integer read GetCount;
    constructor Create;
    destructor Destroy; override;
  end;

  TBottleBox = class // Ein Kasten bestimmter Flaschengröße;
  private
    FItems: TObjectList;
    FStyle: TBottleStyle;
    function GetBottle(Index: integer): TBottle;
    function GetCount: integer;
  public
    function Add(Product: TBottleProduct): integer;
    procedure Clear;
    function CountAsString: string;
    procedure AddAsStringsTo(Dest: TStrings);
    property Bottle[Index: integer]: TBottle read GetBottle;
    property Style: TBottleStyle read FStyle;
    property Count: integer read GetCount;
    constructor Create(Style: TBottleStyle);
    destructor Destroy; override;
  end;

  TBottleBoxes = class // Kästen;
  private
    FItems: TObjectList;
    function GetBox(Index: integer): TBottleBox;
    function GetCount: integer;
  public
    function Add(Style: TBottleStyle): integer;
    function IndexOfMinCount(Style: TBottleStyle): integer;
    procedure Clear;
    function CountAsString: string;
    procedure AddAsStringsTo(Dest: TStrings);
    procedure Fill(List: TBottles); // Flaschen in Kästen einsortieren;
    property Box[Index: integer]: TBottleBox read GetBox;
    property Count: integer read GetCount;
    constructor Create;
    destructor Destroy; override;
  end;

[sx2008]

mein Vorschlag:
a.) Bestellung nach Produkten sortieren
b.) Phase 1 - alle Produkte durchlaufen und so lange jeweils 6 Flaschen in einen sortenreinen Karton verpacken wie die Reststückzahl größergleich 6 ist.
c.) jetzt gibt es kein Produkt mehr mit einer Stückzahl >= 6; es folgt Phase 2
d.) Produkte sortieren nach absteigendem Volumen (1L zuerst)
e.) jeweils prüfen ob das zu verpackende Produkt (Stückzahl zwischen 1 und 5) einen großen 1L-Karton oder einen kleineren 0,75L-Karton benötigt und alle Flaschen des Produkts in den Karton packen.
f.) weiter mit nächstem Produkt und wie bei e.) verfahren nur dass dabei der letzte halbvolle Karton zuerst vollgemacht werden muss

Schritt e.) und f.) sind programmiertechnisch also das Gleiche. Dieser Schritt wird so lange ausgeführt bis alles verpackt wurde.
Es gibt zwei Phasen:
Phase 1: sortenreine Karton füllen
Phase 2: Mischkartons füllen
optional gibt es noch Phase 3:
prüfen ob 0,75L-Flaschen aus einem Karton für 6*1L in einen noch nicht vollen 6*0,75L-Karton umgepackt werden sollen.
Ggf. sollte man dies schon in Phase 2 berücksichtigen.