Jump to content

Knapsack problem/Continuous: Difference between revisions

Knapsack problem/Continuous (view source)

Revision as of 11:31, 23 October 2022

1 byte removed ,  1 year ago
m
→‎{{header|Pascal}}: cosmetic
(→‎{{header|Pascal}}: simplified version)
Line 2,656:
Items[I].Weight := Min(Items[I].Weight, MaxWeight);
MaxWeight := MaxWeight - Items[I].Weight;
WriteLn(Items[I].Name, #9, FormatFloatFormat('0%-8s %.01f kg', [Items[I].Name, Items[I].Weight]));
Inc(I);
until (MaxWeight <= 0)or(I = Length(Items));
Avk
73

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/332548"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information