Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Bjoerk,
29. Dez 2014
Habs mal durchlaufen lassen. Schalt mal die Bereichsprüfung an. In der Packen wird p zu groß? Und ist die Sort so richtig (Sollten nicht eher I und J verglichen werden ?
Edit:
Ich meinte eigentlich das:
procedure SortMenge;
var
I, J: Integer;
Temp: Bestellung;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Bjoerk,
27. Dez 2014
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?
type
TBottleStyle = (bs75, bs100);
const
cBoxBottlesCount: array of integer = (6, 6); // Wieviel Flaschen passen in den Kasten;
type
TBottleProduct = (bpA, bpB, bpC, bpD, bpE, bpF, bpG, bpH, bpI, bpJ,...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Bjoerk,
27. Dez 2014
Ei, ich hann gemennt, sordiere is immer gudd.. Anyway. Aber hast Recht. Bringt hier nix wenn man zuerst die ganzen Kasten ausm Keller holen will.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Bjoerk,
27. Dez 2014
Oder die Liste vorher (nach Produkt) sortieren und alles ist gut.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Bjoerk,
26. Dez 2014
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.