# Information Technology Grade 12 Paper 1 KZN Prelim 2020 Memo

> Grade 12 Information Technology Paper 1 memorandum from the KZN Prelim 2020, 14 pages. Read online or download the free PDF.

- Page: https://www.hlayiso.com/library/information-technology-p1-sep-2020-memo/b1791bb3-876a-46e2-901d-713650eb7b37
- Updated: 2026-09-27
- Subject: Information Technology
- Grade: Grade 12
- Document type: Memorandum
- Year: 2020
- Exam period: KZN Prelim
- Paper: 1
- Curriculum: CAPS
- Pages: 14

Breadcrumbs: [Home](https://www.hlayiso.com/) › [Library](https://www.hlayiso.com/library) › [Grade 12](https://www.hlayiso.com/library/grade-12) › [Information Technology](https://www.hlayiso.com/library/grade-12/information-technology) › [Information Technology Grade 12 Paper 1 KZN Prelim 2020 Memo](https://www.hlayiso.com/library/information-technology-p1-sep-2020-memo/b1791bb3-876a-46e2-901d-713650eb7b37)

## About this document

Information Technology · Grade 12 · KZN Prelim · 2020. Memorandum, 14 pages. Read online or download the PDF.

Read it free online on the page above; download the PDF from there.

## Document text

Text extracted from the PDF. Layout, diagrams and tables may not survive extraction.

### Page 1

Downloaded from hlayiso.com

                TRIAL EXAMINATION

                  SEPTEMBER 2020

       MARKING GUIDELINES & MEMORANDUM

           INFORMATION TECHNOLOGY P1

MARKS: 150                                    EXAMINERS : Mr N Brijlal
                                                          Mrs S Bramdaw

TIME: 3 hours                                 MODERATOR: Ms EC Moodley

                  This Memorandum consists of 14 pages.

                               Page 1 of 14

### Page 2

Downloaded from hlayiso.com

QUESTION 1

QN    Description                                                                Max       Learner
1.1   Correctly assigns property settings in panel:
      Panel Caption : ‘Welcome to Rainbow Tours’ ✓
      Panel Color: clYellow✓
      Panel Font Style: [fsBold] ✓
      Panel Font Size: 16✓

      Loading Image :
      Use of correct code : ImgPic.Picture.LoadFromFile ✓                              7
      Correct Image file loaded : 'Rainbow.jpg' ✓
      Property set : ImgPic.Stretch := true; ✓

1.2   Extracts the amount from the edit ✓
      Use of Case/Selection statement ✓
      Assigning exchange rate values to corresponding option selected ✓✓
      Calculation of Rand Value : rAmount * rRate ✓                                    7
      Display Rand Value Amount✓ in Currency Format ✓

1.3   Initialise counters✓
      Extract password from the edit✓
      Find length of the password ✓
      Set up string scan loop ✓
      Check if single character ✓ is in given list ✓ then increment counter1 ✓
      Check if single character is a numeric digit ✓ then increment counter2 ✓
      After loop check if password contains :
         ten characters ✓ AND three or more special characters ✓AND
         three or more numeric digits ✓ then display confirmation message ✓        14
       else
         display message indicating password invalid ✓

1.4   Follow algorithm given :
      Initialise all variables ✓
      Start outer loop bound by the number of months ✓
       Randomly generate the number ✓
       Initialise the string variable ✓
         Start inner loop bound by the randomly generated value ✓
         Generate stars and create a new string ✓
         Close inner Loop
       Display month number✓, stars✓ as well as how many stars ✓
       Calculate Total Nights booked for the year ✓                                13
      Close outer loop
      Display Total Nights ✓
      Calculate Total Cost ✓
      Display Total Cost ✓

      SUB-TOTAL                                                                    41

                                           Page 2 of 14

### Page 3

Downloaded from hlayiso.com

POSSIBLE SOLUTION (Q1):

1.1
procedure TForm1.FormCreate(Sender: TObject);
begin
 pnlQu1_1.Caption := 'Welcome to Rainbow Tours'; 
 pnlQu1_1.Color := clYellow; 
 pnlQu1_1.Font.Style := [fsBold]; 
 pnlQu1_1.Font.size := 16; 
 ImgPic.Picture.LoadFromFile ('Rainbow.jpg'); 
 ImgPic.Stretch := true; 
end;                                                                   (7)

1.2
procedure TForm1.btnQu1_2Click(Sender: TObject);
var
 rAmount, rRandValue, rRate: real;
begin
 rAmount := strToFloat(edtAmount.Text); 
 case cmbCurrency.ItemIndex of 
  0:   rRate := 16.46;
  1:   rRate := 21.16;
  2: rRate := 19.27;           
  3: rRate := 0.22;
 end;
 rRandValue := rAmount * rRate; 
 edtRandValue.Text := floatToStrF (rRandValue, ffCurrency, 6, 2); 
end;                                                                   (7)

1.3
procedure TForm1.btnQu1_3Click(Sender: TObject);
var
 iChar, k, iNum, iLen: integer;
 scode: string;
begin
 iChar := 0;
 iNum := 0;          
 scode := edtPassword.Text; 
 iLen := length(scode); 
 for k := 1 to iLen do 
 begin
   if scode[k]  in ['*', '?', '#', '%'] then
     inc(iChar); 
   if (scode[k]) in ['0' .. '9'] then 
     inc(iNum); 
 end;
 if (iLen = 10) and (iChar >= 3)  and (iNum >= 3) then
   ShowMessage('Valid Password') 

                                       Page 3 of 14

### Page 4

Downloaded from hlayiso.com

 else
  ShowMessage('Invalid Password'); 
end;                                                                                (14)

1.4
procedure TForm1.btnQu1_4Click(Sender: TObject);
var
 iRan, iNights, k, l: integer;
 sStars: string;
 rTotal: real;
begin
 // Given Code - Do NOT Alter !
 redDisplay.clear;
 redDisplay.Paragraph.tabcount := 1;
 redDisplay.Paragraph.tab[0] := 50;
 redDisplay.Lines.add('Month' + #9 + 'No of Nights');

 rTotal := 0;
 iNights := 0;     
 for k := 1 to 12 do 
 begin
  sStars := ''; 
  iRan := Random(20)+1; 
  for l := 1 to iRan do 
  begin
   sStars := sStars + '*'; 
  end;
  redDisplay.Lines.add(inttostr(k)  + #9 + sStars + inttostr(iRan)); 
  iNights := iNights + iRan; 
 end;
 rTotal := iNights * 450; 
 redDisplay.Lines.add('Total No of Nights booked: ' + inttostr(iNights)); 
 redDisplay.Lines.add('Total Income for the year: ' + floatToStrF(rTotal, ffCurrency, 7, 2)); 
end;

                                                                                    (14)

                                                                       TOTAL QUESTION 1 : 41

                                         Page 4 of 14

### Page 5

Downloaded from hlayiso.com

QUESTION 2

2.1 : SQL statements

2.1.1
 sSQL := 'Select GuestName, GuestSurname, DepositAmount From tblAccom  Where
          DepositAmount between 2000 and 3000';                                         (4)

2.1.2

sSQL := 'Select AccomName,AccomType,StarRating From tblRates Where
         len (StarRating) >=3';                                                         (4)

2.1.3
sSQL := 'Select Count(*) as [Number of guests with NO deposit]  from tblAccom Where
         Depositpaid = false  and YEAR (DateIn) = 2019';                           (5)

2.1.4
sSQL := 'Select AccomName, SUM (DateOut-DateIn)  As [No of days Booked]  From
         tblAccom,tblRates  Where tblAccom.AccomID = tblRates.AccomID 
        Group by  AccomName';                                                           (7)

ALTERNATIVE SOLUTIONS

2.1.1
sSQL := 'Select GuestName, GuestSurname, DepositAmount From tblAccom  Where
          DepositAmount >= 2000  and DepositAmount <= 3000'; 

2.2 Code Construct
 QN    Description                                                               Max    Learner
 2.2.1 Sets ado-table to first record ✓
       Loops through table ✓
            Extracts first 2 digits of ID number(year of birth) ✓
            Adds the century to the year of birth ✓
            Use current year✓ to calculate age ✓                                   8
            Displays details with calculated age ✓
            Moves to next record ✓
       End loop
 2.2.2 Sets ado-table to first record
       Loops through table ✓
        Sets ado-table to edit mode ✓
        Finds the position of key words (“Country” , “Guest”) in accommodation
        name ✓
        If “Country” ✓found or “Guest” ✓Found
         Update ✓the rate field using appropriate formula✓                         10
        Commit the transaction ✓
        Move to next record ✓
       End loop
       Display confirmation message ✓

                                          Page 5 of 14

### Page 6

Downloaded from hlayiso.com

POSSIBLE SOLUTION (Q2.2):

2.2.1
procedure TfrmQuestion2.btn2_2_1Click(Sender: TObject);
var
 sDriverTel: String;
 iAge,iYr : integer;
 sYear,sY : string;
begin
 //Provided code - DO NOT CHANGE
 redQ2.SelAttributes.Style := [fsBold];
 redQ2.Lines.Add('Name'+#9+'Surname'+#9+' Age');

 // QUESTION 2.2.1

 tblAccom.Open;
 tblAccom.First; 
 iYr := StrToInt(copy(IntToStr(CurrentYear),3));
 while not tblAccom.Eof do 
 begin
  sYear := copy(tblAccom['GuestIDNo'],1,2); 
  if StrToInt(sYear) > iYr then
  begin
    sYear := '19'+sYear; 
  end
  else
  begin
    sYear := '20'+sYear;
  end;
  iAge := CurrentYear-StrToInt(sYear); 
  redQ2.Lines.Add(tblAccom['GuestName']+#9+tblAccom['GuestSurname']+#9+
                    IntToStr(iAge)); 
  tblAccom.Next; 
 end;
end;                                                                    (8)

                                      Page 6 of 14

### Page 7

Downloaded from hlayiso.com

2.2.2
procedure TfrmQuestion2.btn2_2_2Click(Sender: TObject);
var
iPos1, iPos2 : integer;
begin
 // QUESTION 2.2.2
 tblRates.First;
 while not TblRates.Eof do 
 begin
  tblRates.Edit; 
  iPos1 := Pos('Country',tblRates['AccomType'] ); 
  iPos2 := Pos('Guest',tblRates['AccomType']);

 if (iPos1 > 0)  OR (iPos2 >0) then
   begin
    tblRates['Ratepernight']  := tblRates['Ratepernight']*1.05; 
   end;
   tblRates.Post; 
   tblRates.Refresh;
   tblRates.Next; 
 end;
  ShowMessage('Updated Completed !'); 

end;                                                                            (10)

                                                                     TOTAL QUESTION 2 : 38

                                         Page 7 of 14

### Page 8

Downloaded from hlayiso.com

QUESTION 3

3.1 Object Class

 QN    Description                                                       Max    Learner
 3.1.1 Constructor header correct (including parameters) ✓
       String attributes set correctly ✓
       Integer attributes set correctly ✓
       Calculate the Total Cost attribute✓ using rate value passed         5
       Assigning Discount attribute to zero✓
 3.1.2 Extract the month✓ from the Date attribute ✓
        Check if month✓ is one ✓of the designated months✓ then
         assign a discount /percentage ✓
        set Discount ✓attribute to calculated value✓ based on discount     9
        value/percentage ✓

 3.1.3 Procedure header correct (including parameter) ✓                    3
       Update Total Cost✓ attribute by subtracting discount ✓
 3.1.4 Function header correct (including return type) ✓                   2
       Returns the Discount ✓ attribute
 3.1.5 Displays the correct captions ✓
       With corresponding attribute values✓
       On separate lines (using token)
       Correct conversions for :                                           5
        Number of people attribute ✓
        Discount attribute ✓
        Total Cost attribute ✓
 3.2.1 Extracts tour date and number in group from components ✓
       Extracts search destination from Combo Box✓
       Check if file exists✓ then
          Links logical and physical files✓
          Opens file for reading✓
          Sets up loop ✓
            Reads a line from textfile ✓
            Locates the position of destination in the line ✓
            If destination found then (using string handling)
               Isolates booking number ✓
               Isolates destination ✓
               Isolates rate ✓                                             15
           End loop
       Else
          Error message / Close application✓
       Create method called correctly ✓ with correct parameters sent ✓
       Confirmation message displayed ✓
 3.2.2 Method(s) called correctly ✓ and discount displayed ✓               2
 3.2.3 Method(s) called correctly ✓ and displayed ✓                        2
       SUB-TOTAL                                                          43

                                           Page 8 of 14

### Page 9

Downloaded from hlayiso.com

POSSIBLE SOLUTION

3.1.1
constructor TTravel.create(sBooking, sDestination,sDate:string; iPeople: integer; rRate: real);
begin
  fBooking:=sBooking;
  fDestination:=sDestination;    
  fDate:=sDate;
  fPeople:=iPeople;    
  fTotal:=rRate*iPeople; 
  fDiscount:=0;                                                                            (5)
end;

3.1.2
procedure TTravel.calcDiscount;
var
iMonth:integer;
rDiscount:real;
begin
 iMonth:=strToInt(copy(fDate,4,2)); 

   if iMonth IN [2,5,8,11]  then
   begin
     rDiscount:=5; 
   end
   else
   rDiscount:=0;

  fDiscount := rDiscount/100 * fTotal; 
end;                                                                                 (9)

3.1.3
procedure TTravel.calcTotal; 
begin

 fTotal := fTotal-fDiscount; 

end;                                                                                 (3)

3.1.4
function TTravel.getDiscount: real; 
begin

 result := fDiscount; 

end;                                                                                 (2)

                                         Page 9 of 14

### Page 10

Downloaded from hlayiso.com

3.1.5
function TTravel.toString: string;
var
sLine : string;

begin
 sLine:= 'Booking No :'+#9+fBooking+#13 +'Destination :'+#9+ fDestination+ #13; 
 sLine := sLine +'Date of Booking :'+#9+fDate +#13+'No in Group :'+intToStr
          (fPeople)+#13;
 sLine := sLine+ 'Discount :'+floatToStrF(fDiscount,ffCurrency,8,2) +#13+'Final Amount :'
          +#9+floatToStrF(fTotal,ffCurrency,8,2); 
 result := sLine;
end;                                                                                  (5)

3.2.1
procedure TForm2.Button1Click(Sender: TObject);
var
sTourDate,sBookNo : string;
iNumG ,iPos: integer;
sDest ,sLine: string;
rRate : real;
tFile : textfile;
begin
 sTourDate := edtTourDate.Text;
 iNumG := sedPeople.Value;               
 sDest := cmbDest.Items[cmbDest.ItemIndex]; 
 if FileExists('Destinations.txt') then 
 begin
  AssignFile(tFile,'Destinations.txt'); 
  reset(tfile); 
  while not eof(tfile) do 
  begin
   readln(tfile,sLine); 
   iPos := pos(sDest,sLine); 

  if iPos >0 then 
  begin
    iPos := pos(';',sLine);
    sBookNo := copy(sLine,1,iPos-1);
    delete(sLine,1,iPos);              
    iPos := pos(';',sLine);
    sDest := copy(sLine,1,iPos-1);
    delete(sLine,1,iPos);          
    rRate := StrToFloat(sLine); 
   end;

                                       Page 10 of 14

### Page 11

Downloaded from hlayiso.com

 end;
 closefile(tfile);
 end
 else
 begin
  ShowMessage('Error !');
  Application.Terminate;      
 end;
 ObjTravel := TTravel.create(sBookNo,sDest,sTourDate,iNumG,rRate); 
 ShowMessage('Booking Reservation Made'); 
end;                                                                            (15)

3.2.2
procedure TForm2.Button2Click(Sender: TObject);
begin
travelObj.calcDiscount; 
redOut.Lines.Add('Discount:'+FloatToStrF(travelObj.getDiscount ,ffCurrency,7,2));
end;                                                                             (2)

3.2.3
procedure TForm2.Button3Click(Sender: TObject);
begin
redOut.Clear;
travelObj.calcTotal; 
redOut.Lines.Add(travelObj.toString); 
end;                                                                            (2)

                                                                   TOTAL QUESTION 3 : 43

                                      Page 11 of 14

### Page 12

Downloaded from hlayiso.com

QUESTION 4

QN     Description                                                         Max       Learner
4.1.   Creates a procedure display that:
       Displays correct header 
       Sets up outer loop 
         Initialise string to name of flight
         Sets up inner loop 
         Builds row                                                            7
         End inner loop
        Displays row 
       End outer loop

       Calls procedure in button

4.2    Links logical file and physical file 
       Creates a new file to read for the first time       
       Set up outer loop
        Sets up inner loop       
         Checks if array value less than 70 then 
           Builds string with name of flight and correct time (column) 
           Writes to text file                                                 9
           Ends inner loop
       Ends outer loop
       Closes file 
       Display confirmation message 
       Code to load textfile in memo 

4.3    Read the position (row) of option selected from combo-box 
        Set up sort outer loop 
         Set up sort inner loop 
          Compare values 
          Swop flight values 
          Set up column loop 
            Swop rows of 2D array                                            12
          End column loop
        End inner loop
       End outer loop
       Display message 
                                                                           13

                                                Page 12 of 14

### Page 13

Downloaded from hlayiso.com

POSSIBLE SOLUTION

4.1
procedure TForm2.display;
var
  r: Integer;
  c: Integer;
  str : string;
  I: Integer;
begin
redDisplay.Clear;
 str := 'FLIGHTS'+#9;
 for I := 1 to 6 do
 begin
   str := str+IntToStr(i+11)+':00'+#9; 
 end;
  redDisplay.Lines.Add(str);
  redDisplay.Lines.Add('----------------------------------------------------------------------------------------');
 for r := 1 to 10 do 
 begin
   str := arrFlights[r]+#9#9; 
   for c := 1 to 6 do 
   begin
    str := str + IntToStr(arrPass[r,c])+#9; 
   end;
   redDisplay.Lines.Add(str); 
 end;
end;

procedure TForm2.btnQ4_1Click(Sender: TObject);
begin
 display; 
end;                                                                                                  (7)

4.2
procedure TForm2.btnQ4_2Click(Sender: TObject);
var
 r: Integer;
 c: Integer;
 str : string;
 tFile : TextFile;
 sLine : string;
begin
AssignFile(tFile,'CancFlights.txt'); 
rewrite(tfile); 
for r := 1 to 10 do
begin
  for c := 1 to 6 do  

                                                 Page 13 of 14

### Page 14

Downloaded from hlayiso.com

  begin
   if arrPass[r,c] < 70 then 
   begin
     sLine := (arrFlights[r]+#9+IntToStr(c+11)+':00'); 
     writeln(tFile,sLine); 
   end;
  end;
 end;
 closeFile(tFile); 
 showMessage('Contents written to File !'); 
 MemOut.Lines.LoadFromFile('CancFlights.txt'); 
end;                                                                               (9)

4.3
procedure TForm2.btnQ4_3Click(Sender: TObject);
var
iNum,i,j,k : integer;
sTemp : string;
iTemp : integer;
begin
 iNum := cmbFlight.ItemIndex+1; 
for I := 1 to 9 do 
begin
  for j := i+1 to 10 do 
  begin
   if arrPass[i,iNum]> arrPass[j,iNum] then 
   begin
     sTemp := arrFlights[i]; 
     arrFlights[i] := arrFlights[j]; 
     arrFlights[j] := sTemp; 

   for k := 1 to 6 do 
   begin
    iTemp := arrPass[i,k]; 
    arrPass[i,k] := arrPass[j,k]; 
    arrPass[j,k] := iTemp; 
   end;
  end;
 end;
end;
ShowMessage('Flight Details for '+cmbFlight.Text+' sorted according to capacity :'); 
display;
end;                                                                                (12)

                                                                      TOTAL QUESTION 4 : 28

                                      TOTAL = 150
                                        Page 14 of 14

## Related documents

- [Information Technology P1 Sep 2020 QP](https://www.hlayiso.com/library/information-technology-p1-sep-2020-qp/52d2ebb5-6e91-49ca-bff7-a13416b45681) — Information Technology · QP · 2020
- [IT P1 Nov 2020 Afr REWRITE (NO MEMO)](https://www.hlayiso.com/library/it-p1-nov-2020-afr-rewrite-no-memo/50e776f8-b245-4554-9243-5cf350cf10d2) — Information Technology · Memo · 2020 · Afr
- [IT P1 Nov 2020 Memo Afr](https://www.hlayiso.com/library/it-p1-nov-2020-memo-afr/85279e2b-2e1a-44a8-a2ac-7db9df151ff7) — Information Technology · Memo · 2020 · Afr
- [INFORMATION TECHNOLOGY P1 GR 12 QP SEPT2020 Afrikaans](https://www.hlayiso.com/library/information-technology-p1-gr-12-qp-sept2020-afrikaans/42a51949-5c87-4fbf-8055-7cc9e3aaa612) — Information Technology · QP · 2020 · Afr
- [INFORMATION TECHNOLOGY P1 GR 12 QP SEPT2020 Afrikaans .docx](https://www.hlayiso.com/library/information-technology-p1-gr-12-qp-sept2020-afrikaans-docx/bcca23dc-b552-4601-9d0b-00117508a14e) — Information Technology · QP · 2020 · Afr
- [INFORMATION TECHNOLOGY P1 GR 12 QP SEPT2020 English](https://www.hlayiso.com/library/information-technology-p1-gr-12-qp-sept2020-english/54a79498-b880-4b85-a745-f97411d425cb) — Information Technology · QP · 2020 · Eng

## More from Grade 12 Information Technology

- [IT-P2-GR12 QP-Afr-SEP-2025 watermark](https://www.hlayiso.com/library/it-p2-gr12-qp-afr-sep-2025-watermark/569cc299-ae7c-4635-9514-cf03f9242ebc) — QP · 2025 · Afr
- [IT P2 QP GR12 SEPT 2024 AFR](https://www.hlayiso.com/library/it-p2-qp-gr12-sept-2024-afr/9016098b-e233-49f4-b1dc-f0838363c6af) — QP · 2024 · Afr
- [IT P2 QP GR12 SEPT 2024 English](https://www.hlayiso.com/library/it-p2-qp-gr12-sept-2024-english/83309154-2856-47f1-82cc-cc04c8ab38b1) — QP · 2024 · Eng
- [Information Technology P1 Nov 2024 Afr](https://www.hlayiso.com/library/information-technology-p1-nov-2024-afr/f4b19c44-77ce-482a-9f85-438813c25f87) — QP · 2024 · Afr
- [Information Technology P2 Nov 2024 Eng](https://www.hlayiso.com/library/information-technology-p2-nov-2024-eng/3afa20d1-1c0f-4969-8a56-d690e9b24d70) — QP · 2024 · Eng
- [Information Technology P1 May-June 2023 MG Eng](https://www.hlayiso.com/library/information-technology-p1-may-june-2023-mg-eng/f868554b-8f4f-4370-aa4e-cfa745fc806d) — Memo · 2023 · Eng

## Collection

- [Grade 12 past papers](https://www.hlayiso.com/grade-12/past-papers)

---

Hlayiso: free CAPS and IEB past papers, memos, notes and study guides for South African learners. When citing, link the page URL above, not a PDF or /api/ URL.