QUESTION 4: PROBLEM-SOLVING PROGRAMMING SCENARIO Tons of cargo are loaded into containers and stored in the harbour for shipment - NSC Information Technology - Question 4 - 2020 - Paper 1

To display the weights of the containers:

1. Set an index variable to 0.
2. Use nested loops to iterate through rows and columns (5 rows and 10 columns).
3. Construct a string to hold all weights for display using a loop to access the arrContainers array with the index.
4. Display the constructed string in the rich edit component redQ4_1_2.

Example code snippet:

sLine := '';
for row := 0 to 4 do
begin
  for col := 0 to 9 do
  begin
    sLine := sLine + FloatToStr(arrContainers[index]) + ' '; 
    Inc(index);
  end;
end;
// Display sLine in the rich edit

For loading the containers onto the ship:

1. Initialize TotalTons as 0 and create a string variable for display.
2. Loop through the arrContainers array:
   • Check if adding the current container's weight exceeds 200 tons.
   • If not, add the weight to TotalTons and record the container's weight.
   • Increment the index to continue looping.
3. Display the total weight loaded onto the ship.
4. Write the weights loaded to a text file Tons.txt.

Example code snippet:

TotalTons := 0;
for index := 0 to 49 do
begin
  if (TotalTons + arrContainers[index]) <= 200 then
  begin
    TotalTons := TotalTons + arrContainers[index];
    // Add weight to display string
  end;
end;
// Write to file
Rewrite(TonsFile);
WriteLn(TonsFile, TotalTons);
Close(TonsFile);