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  Get year from edtyob  Get province from cmbprovince  If itemindex of combobox = 0  add 1 to counter for EC  Else if itemindex = 1  add 1 to counter for WC  Else Showmessage  and exit  Alternative no 1: Case structure  Itemindex = 0  add 1 to counter for EC  Itemindex = 1  add 1 to counter for WC  26 Else  Showmessage  and exit  Compile code: Get first name initial  Get surname initial  using pos  1st character of first name  1st character of surname  Characters 3 and 4 from year  First 4 characters  from province  Random number  in correct range  (randomrange(1000,60001) using inttostr  Showmessage component to display code  pnlEC caption = counter for EC  pnlWC caption = counter for WC  using inttostr for both  Copyright reserved Please turn over

(EC/NOVEMBER 2020) INFORMATION TECHNOLOGY P1 3 1.2 Button [Q1.2 Encryption] get input from edtinput  and set to uppercase  initialise new string to a star  use a loop  from 1 to length of the input string  13 get the correct encrypted number (using any method)   add the character number to the new string and add a star  display compiled  string in label lbldisplay  1.3 The rgpbackground onclick event: If radiogroup box itemindex = 0  then set imgbackground visible property  = false  7 If radiogroup box itemindex = 1  then set imgbackground picture to ‘SAFlag.jpg’  and  set imgbackground visible property = true  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  Inner loop from outer loop counter + 1 to 10  If arrqty[outer] < arrqty [inner] then  set temp = arrqty [outer]  set arrqty [outer] = arrqty [inner]  set arrqty [inner] = temp  do the same swap algorithm for arrdays  using string temp variable  Display arrays loop from 1 to 10  21 use richedit  display contents of arrdays,  arrqty  using tab stop  using inttostr for arrqty  Calculate and display average initialise total variable  loop from 1 to 10  set total variable = total  + arrqty using loop index  calculate average = total/10  display average in richedit with a message rounded to a whole number  2.2 Button [Q2.3 Multiples] If file does not exist then  Show message  exit  Assignfile and reset text file  Alternative solution Set counter = 0 for loop from 1 to 5  Loop to end of text file  Read line  into an array  using for loop counter  Add 1 to counter (initialised)  Read line Add to an array using counter  (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)  append number  from constant array using loop index to end of array using loop index  and store into same array  Assignfile with correct file name and Rewrite statement  Loop from 1 to counter or 5  Write content of array using loop index  to text file  Closefile statement after loop  Display a message that the file was written  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  Loop to end of the table  If Pages  > 100  7 Then display Title  in richedit  Go to next record before end of loop  3.2 BUTTON: [Q3.2 Change to English] Go to first record  Loop to end of the table  If Language = ‘eng’  Then Edit  7 Set Language = ‘English’  Post  Go to next record before end of loop  3.3 BUTTON: [Q3.3 Delete PMC articles] Go to first record  Loop to end of the table  if Source = 'PMC' then  6 Delete  else  Go to next record before end of loop  3.4 BUTTON: [Q3.4 Percentage of Chinese articles] Set counter to 0  and total to 0  Go to first record  Loop to end of the table  If Language = ‘Chinese’  Then Add 1 to counter  Add 1 to total variable  13 Go to next record before end of loop  Display in richedit  Total of all articles converted to string  Percentage calculated correctly  and converted to string with no decimal places  3.5 BUTTON: [Q3.5 Insert Article] tblresearch.Insert;  tblresearch['Title'] := ‘Vaccine trials’;  tblresearch['Author'] := ‘Watson M’;  7 tblresearch['Publisher'] := ‘Cureus’;  tblresearch['Pages'] := 43; tblresearch['Language'] := ‘English’;  tblresearch.Post;  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 and age  from input components Get system date  If age >= 60 then string = ‘your test date is on’  joined to system date converted to string  Else  string = ‘your test date is on’  22 joined to system date  + 1 day  converted to string  if chksymptoms.Checked  and  (chktravel.Checked or chkcontact.Checked ) then lbldisplay.Caption  = name + #13  + compiled string  else lbldisplay.Caption = 'Phone your doctor if you are worried';  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