Information Technology Grade 11 P1 2020 Memo (Eng)

NATIONAL SENIOR CERTIFICATE GRADE 11 NOVEMBER 2020 INFORMATION TECHNOLOGY P1 MARKING GUIDELINE MARKS: 150 This marking guideline consists of 11 pages.

2 INFORMATION TECHNOLOGY P1 (EC/NOVEMBER 2020) NAME OF LEARNER: TOTAL TOTAL TOTAL TOTAL TOTAL QUESTION 1 QUESTION 2 QUESTION 3 QUESTION 4 /46 /42 /40 /22 /150 MAX MARKS QUESTION 1 MARKS ACHIEVED 1.1 Button [Q1.1 Get patient code] Get full name from edtfullname 9 Get year from edtyob 9 Get province from cmbprovince 9 If itemindex of combobox = 0 9 add 1 to counter for EC 9 Else9 if itemindex = 1 9 add 1 to counter for WC 9 Else9 Showmessage 9 and exit 9 Alternative no 1: Case structure 9 Itemindex = 0 9 add 1 to counter for EC 9 Itemindex = 1 9 add 1 to counter for WC 9 26 Else 9 Showmessage 9 and exit 9 Compile code: Get first name initial 9 Get surname initial 9 using pos 9 1st character of first name 9 1st character of surname 9 Characters 3 and 4 from year 9 First 4 characters 9 from province 9 Random number 9 in correct range 9 (randomrange(1000,60001) using inttostr 9 Showmessage component to display code 9 pnlEC caption = counter for EC 9 pnlWC caption = counter for WC 9 using inttostr for both 9 Copyright reserved Please turn over

(EC/NOVEMBER 2020) INFORMATION TECHNOLOGY P1 3 1.2 Button [Q1.2 Encryption] get input from edtinput 9 and set to uppercase 9 initialise new string to a star 9 use a loop 9 from 1 to length of the input string 9 13 get the correct encrypted number (using any method) 999 9 add the character number to the new string 9and add a star 9 display compiled 9 string in label lbldisplay 9 1.3 The rgpbackground onclick event: If radiogroup box itemindex = 0 9 then set imgbackground visible property 9 = false 9 7 If radiogroup box itemindex = 1 9 then set imgbackground picture to ‘SAFlag.jpg’ 9 and 9 set imgbackground visible property = true 9 Question 1 Total 46 Copyright reserved Please turn over

4 INFORMATION TECHNOLOGY P1 (EC/NOVEMBER 2020) MAX MARKS QUESTION 2 MARKS ACHIEVED 2.1 Button [Q2.1 Display] Sorting two arrays outer loop from 1 to 9 9 Inner loop from outer loop counter + 1 to 10 9 If arrqty[outer] < arrqty [inner] then 9 set temp = arrqty [outer] 9 set arrqty [outer] = arrqty [inner] 9 set arrqty [inner] = temp 9 do the same swap algorithm for arrdays 9 using string temp variable 9 Display arrays loop from 1 to 10 9 21 use richedit 9 display contents of arrdays, 9 arrqty 9 using tab stop 9 using inttostr for arrqty 9 Calculate and display average initialise total variable 9 loop from 1 to 10 9 set total variable = total 9 + arrqty using loop index 9 calculate average = total/10 9 display average in richedit 9with a message rounded to a whole number 9 2.2 Button [Q2.3 Multiples] If file does not exist then 9 Show message 9 exit 9 Assignfile 9and reset text file 9 Alternative solution Set counter = 0 for loop from 1 to 5 9 Loop to end of text file 9 Read line 9 into an array 9 using for loop counter 9 Add 1 to counter (initialised) 9 Read line 9Add to an array using counter 9 (subtract 1 mark if the same text file variable is used to write to text file in next operation and the text file was not closed after reading) 21 Loop from 1 to counter (or 5) 9 append number 9 from constant array 9using loop index to end of array using loop index 9 and store into same array 9 Assignfile with correct file name 9and Rewrite statement 9 Loop from 1 to counter or 5 9 Write content of array using loop index 9 to text file 9 Closefile statement after loop 9 Display a message that the file was written 9 Question 2 Total 42 Copyright reserved Please turn over

(EC/NOVEMBER 2020) INFORMATION TECHNOLOGY P1 5 MAX MARKS QUESTION 3 MARKS ACHIEVED 3.1 BUTTON: [Q3.1 Display Pages] Go to first record 9 Loop to end of the table 9 If Pages 9 > 100 9 7 Then display Title 9 in richedit 9 Go to next record before end of loop 9 3.2 BUTTON: [Q3.2 Change to English] Go to first record 9 Loop to end of the table 9 If Language = ‘eng’ 9 Then Edit 9 7 Set Language = ‘English’ 9 Post 9 Go to next record before end of loop 9 3.3 BUTTON: [Q3.3 Delete PMC articles] Go to first record 9 Loop to end of the table 9 if Source = 'PMC' then 9 6 Delete 9 else 9 Go to next record before end of loop 9 3.4 BUTTON: [Q3.4 Percentage of Chinese articles] Set counter to 0 9 and total to 0 9 Go to first record 9 Loop to end of the table 9 If Language = ‘Chinese’ 9 Then Add 1 to counter 9 Add 1 to total variable 9 13 Go to next record before end of loop 9 Display in richedit 9 Total of all articles converted to string 9 Percentage calculated correctly 9 and converted to string 9with no decimal places 9 3.5 BUTTON: [Q3.5 Insert Article] tblresearch.Insert; 9 tblresearch['Title'] := ‘Vaccine trials’; 9 tblresearch['Author'] := ‘Watson M’; 9 7 tblresearch['Publisher'] := ‘Cureus’; 9 tblresearch['Pages'] := 43;9 tblresearch['Language'] := ‘English’; 9 tblresearch.Post; 9 Question 3 Total 40 Copyright reserved Please turn over

6 INFORMATION TECHNOLOGY P1 (EC/NOVEMBER 2020) MAX MARKS QUESTION 4 MARKS ACHIEVED Button [Q4 Request for test] Get full name 9and age 9 from input components Get system date 9 If age >= 60 9then string = ‘your test date is on’ 9 joined to system date converted to string 9 Else 9 string = ‘your test date is on’ 9 22 joined to system date 9 + 1 day 9 converted to string 9 if chksymptoms.Checked 9 and 9 (chktravel.Checked 9or 9chkcontact.Checked 9) then lbldisplay.Caption 9 = name 9+ #13 9 + compiled string 9 else9 lbldisplay.Caption = 'Phone your doctor if you are worried'; 9 Question 4 Total 22 Copyright reserved Please turn over

(EC/NOVEMBER 2020) INFORMATION TECHNOLOGY P1 7 SAMPLE SOLUTIONS QUESTION 1 procedure TQuestion1.btnQ1_1Click(Sender: TObject); var sfull, sfirst, ssur, scode : string; sdate, sprov : string; begin // enter your code here case cmbprovince.itemindex of 0 : inc(inumec); 1 : inc(inumwc) else begin showmessage('Please choose a province'); exit; end; end; sfull := edtfullname.Text; sfirst := sfull[1]; delete(sfull,1,pos(' ',sfull)); ssur := sfull[1]; sdate := edtyob.text; sprov := cmbprovince.Text; scode := sfirst + ssur + copy(sdate,3,2) + copy(sprov,1,4) + inttostr(randomrange(1000,60001)); showmessage('Your patient code is ' + scode); pnlec.Caption := inttostr(inumec); pnlwc.Caption := inttostr(inumwc); end; procedure TQuestion1.btnQ1_2Click(Sender: TObject); var k, ipos : integer; snew, SSENT : string; const salpha = ' ABCDEFGHIJKLMNOPQRSTUVWXYZ'; begin // enter your code here ssent := uppercase(edtinput.Text); snew := '*'; for k := 1 to length(ssent) do begin ipos := pos(ssent[k],salpha); snew := snew + inttostr(ipos) + '*'; end; lbldisplay.Caption := snew; end; Copyright reserved Please turn over

8 INFORMATION TECHNOLOGY P1 (EC/NOVEMBER 2020) procedure TQuestion1.rgbpictureClick(Sender: TObject); begin // enter your code here case rgbpicture.itemindex of 0 : imgdisplay.Visible := false; 1 : begin imgdisplay.Visible := true; imgdisplay.Picture.LoadFromFile('SAFlag.jpg'); end; end; end; QUESTION 2 procedure TfrmQuestion2.btnQ2_1Click(Sender: TObject); var k, l, itemp, inum, icount, itotal : integer; stemp, snum : string; rpercent : real; bfound : boolean; begin // provided code do not delete//////// redout.Paragraph.TabCount := 1; redout.Paragraph.tab[0] := 40; redout.Lines.Add('Date' + #9 + 'Cases'); for k := 1 to 9 do for l := k + 1 to 10 do begin if arrqty[k] < arrqty[l] then begin itemp := arrqty[k]; arrqty[k] := arrqty[l]; arrqty[l] := itemp; stemp := arrdays[k]; arrdays[k] := arrdays[l]; arrdays[l] := stemp; end; end; itotal := 0; for k := 1 to 10 do itotal := itotal + arrqty[k]; for k := 1 to 10 do redout.Lines.Add(arrdays[k] + #9 + inttostr(arrqty[k])); redout.Lines.Add(''); redout.Lines.Add('Average number of infections = ' + floattostrf(itotal/10,fffixed,8,0)); end; Copyright reserved Please turn over

(EC/NOVEMBER 2020) INFORMATION TECHNOLOGY P1 9 procedure TfrmQuestion2.btnQ2_2Click(Sender: TObject); // provided code do not delete/////// const arradd : array [1..5] of integer = (8,6,4,2,0); /////////////////////////////////////////////// var myfile, tfile : textfile; sline : string; k : integer; arrnumbers : array[1..6] of string; icount : integer; begin if not fileexists('numbers.txt') then begin showmessage('file not found'); exit; end; assignfile(myfile,'numbers.txt'); reset(myfile); icount := 0; while not eof(myfile) do begin inc(icount); readln(myfile,sline); arrnumbers[icount]:= sline; end; //closefile(myfile); for k := 1 to icount do begin arrnumbers[k] := arrnumbers[k] + inttostr(arradd[k]); end; assignfile(tfile,'Multiples of 18.txt'); rewrite(tfile); for k := 1 to 5 do writeln(tfile, arrnumbers[k]); closefile(tfile); end; Copyright reserved Please turn over

10 INFORMATION TECHNOLOGY P1 (EC/NOVEMBER 2020) QUESTION 3 procedure TfrmQuestion3.btnQ3_1Click(Sender: TObject); begin reddisplay.Clear; tblresearch.First; while not tblresearch.eof do begin if tblresearch['Pages'] > 100 then reddisplay.Lines.Add(tblresearch['Title']); tblresearch.Next; end; end; procedure TfrmQuestion3.btnQ3_2Click(Sender: TObject); begin tblresearch.First; while not tblresearch.eof do begin if tblresearch['Language'] = 'eng' then begin tblresearch.Edit; tblresearch['Language'] := 'English'; tblresearch.Post; end; tblresearch.Next; end; end; procedure TfrmQuestion3.btnQ3_3Click(Sender: TObject); begin tblresearch.First; while not tblresearch.eof do begin if tblresearch['Source'] = 'PMC' then tblresearch.Delete else tblresearch.Next; end; end; procedure TfrmQuestion3.btnQ3_4Click(Sender: TObject); var inum , itotal : integer; begin inum := 0; itotal := 0; reddisplay.Clear; tblresearch.First; while not tblresearch.eof do begin Copyright reserved Please turn over

(EC/NOVEMBER 2020) INFORMATION TECHNOLOGY P1 11 if tblresearch['Language'] = 'Chinese' then inc(inum); inc(itotal); tblresearch.next; end; reddisplay.Lines.Add('Total number of articles = ' + inttostr(itotal)); reddisplay.Lines.Add('Percentage of Chinese articles = ' + floattostrf(inum/itotal *100,fffixed,8,0) + ' percent'); end; procedure TfrmQuestion3.btnQ3_5Click(Sender: TObject); begin tblresearch.insert; tblresearch['Title'] := 'Vaccine trials'; tblresearch['Author'] := 'Watson M'; tblresearch['Publisher'] := 'Cureus'; tblresearch['Pages'] := '43'; tblresearch['Language'] := 'English'; tblresearch.Post; end; QUESTION 4 procedure TfrmQuestion4.btnQ4Click(Sender: TObject); var sname : string; iage : integer; stestdate : string; begin // enter your code here// sname := edtname.Text; iage := sedage.Value; if iage >= 60 then stestdate := 'Your test is on ' + datetostr(date) else stestdate := 'Your test is on ' + datetostr(date + 1); if cbxsymptoms.Checked and (cbxtravel.Checked or cbxcontact.Checked) then lbldisplay.Caption := sname + #13 + stestdate else lbldisplay.Caption := 'Phone your doctor if you are worried'; Showmessage('File has been written'); end; Copyright reserved Please turn over