SECTION A QUESTION 1: GENERAL PROGRAMMING SKILLS Do the following: - Open the incomplete program in the Question 1 folder - NSC Information Technology - Question 1 - 2019 - Paper 1

To calculate the introduction time based on the number of participants, follow these steps:

1. Extract the number of participants from the edtParticipants edit box:

   var
     numParticipants: Integer;
   begin
     numParticipants := StrToInt(edtParticipants.Text);
   

2. Determine the minutes per participant based on the criteria:

   var
     minutesPerParticipant: Real;
   begin
     if numParticipants <= 20 then
       minutesPerParticipant := 2.5
     else if numParticipants <= 50 then
       minutesPerParticipant := 2.3
     else
       minutesPerParticipant := 2.0;
   

3. Calculate total minutes and display:

   var
     totalMinutes: Real;
   begin
     totalMinutes := numParticipants * minutesPerParticipant;
     edtMinsRounded.Text := FormatFloat('0.00', totalMinutes); // Displays the rounded minutes
   end;
   

To calculate the factorial of a number selected from spnNumber, use the following steps:

1. Extract the selected number:

   var
     selectedNum, factorial: Integer;
   begin
     selectedNum := spnNumber.Value;
   

2. Calculate the factorial using a loop:

   factorial := 1;
   for i := 1 to selectedNum do
     factorial := factorial * i;
   

3. Display the result:

   edtFactorial.Text := IntToStr(factorial); // Displays the factorial
   end;