Knapsack problem/Continuous: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,656: / Line 2,656: @@
     Items[I].Weight := Min(Items[I].Weight, MaxWeight);
     MaxWeight := MaxWeight - Items[I].Weight;
-    WriteLn(Items[I].Name, #9, FormatFloat('0.0 kg', Items[I].Weight));
+    WriteLn(Format('%-8s %.1f kg', [Items[I].Name, Items[I].Weight]));
     Inc(I);
   until (MaxWeight <= 0)or(I = Length(Items));