IT P1 MEMO GR11 NOV 2020 Afrikaans D

NASIONALE SENIOR SERTIFIKAAT GRAAD 11 NOVEMBER 2020 INLIGTINGSTEGNOLOGIE V1 NASIENRIGLYN PUNTE: 150 Hierdie nasienriglyn bestaan uit 11 bladsye.

2 INLIGTINGSTEGNOLOGIE V1 (EC/NOVEMBER 2020) NAAM VAN LEERDER: TOTAAL TOTAAL TOTAAL TOTAAL TOTAAL VRAAG 1 VRAAG 2 VRAAG 3 VRAAG 4 /46 /42 /40 /22 /150 MAKS PUNTE VRAAG 1 PUNTE BEHAAL 1.1 Knoppie [V1.1 Kry pasiëntkode] Kry naam en van uit edtnaamvan 9 Kry die jaar uit edtjaar 9 Kry provinsie uit cmbprovinsie 9 As ‘itemindex’ van kombinasieblokkie = 0 9 Tel 1 by teller vir Oos-Kaap 9 Else 9 As ‘itemindex’ = 1 9 Tel 1 by Wes-Kaap teller 9 Else 9 Vertoon boodskap 9 en exit 9 Alternatief no 1: Case struktuur 9 Itemindex = 0 9 tel 1 by Oos-Kaap teller 9 Itemindex = 1 9 tel 1 by Wes-Kaap teller 9 26 Else 9 Vertoon boodskap 9 en exit 9 Kompileer die kode: Kry die eerste letter van naam 9 Kry die eerste letter van die van 9 gebruik pos 9 1ste karakter van naam 9 1ste karakter van die van 9 Karakters 3 en 4 van jaar 9 Eerste 4 karakters 9 van provinsie9 Ewekansige getalle 9 met die korrekte reeks (range) 9 (randomrange(1000,60001) en die gebruik van inttostr 9 Showmessage komponent om kode te vertoon 9 pnlOK caption = Oos-Kaap teller 9 pnlWK caption = Wes-Kaap teller 9 gebruik inttostr vir albei 9 Kopiereg voorbehou Blaai om asseblief

(EC/NOVEMBER 2020) INLIGTINGSTEGNOLOGIE V1 3 1.2 Knoppie [V1.2 Enkripsie] Kry toevoer van edttoevoer 9 en verander dit na uppercase 9 Ken * toe aan nuwe string 9 Gebruik ʼn lus 9 van 1 tot lengte van string 9 Kry korrekte geënkripteerde nommer (gebruik enige metode) 13 9999 Voeg die karakterindeks by die nuwe string 9 asook ʼn * 9 Vertoon die gekompileerde 9 string in label lblvertoon 9 1.3 Die rgpPrent ‘onclick’ gebeurtenis: As radiogroep se itemindeks= 0 9 stel imgPrent se visible eienskap 9 = false 9 7 As radiogroep se itemindeks = 1 9 stel imgPrent na ‘SAFVlag.jpg’9 en 9 stel imgPrent se visible eienskap = true 9 Vraag 1 Totaal 46 Kopiereg voorbehou Blaai om asseblief

4 INLIGTINGSTEGNOLOGIE V1 (EC/NOVEMBER 2020) MAKS PUNTE VRAAG 2 PUNTE BEHAAL 2.1 Knoppie [V2.1 Vertoon] Sorteer twee skikkings Buite-lus van 1 tot 9 9 Binnelus van buitelus-teller +1 tot 10 9 As arrhoeveel[k] < arrhoeveel[l] dan 9 stel temp = arrhoeveel[k] 9 stel arrhoeveel[l] = arrhoeveel[k] 9 set arrhoeveel[k] = temp 9 doen die volgende algoritme vir arrdae 9 gebruik ʼn string temp veranderlike 9 Vertoon skikkings 21 Lus van 1 tot 10 9 Gebruik ʼn richedit 9 Vertoon inhoud van arrdae, 9 arrhoeveel 9 Gebruik ‘tab stop’ 9 gebruik inttostr vir arrhoeveel 9 Bereken en vertoon gemiddeld Inisialiseer die totaal veranderlike 9 Lus van 1 tot 10 9 stel totaal veranderlike = totaal 9 + arrhoeveel[lus indeks] 9 bereken gemiddelde = totaal/10 9 vertoon gemiddeld in richedit 9met ʼn boodskap afgerond na ʼn heelgetal 9 2.2 Knoppie [V2.3 Veelvoude] As die lêer nie bestaan nie 9 Vertoon ʼn boodskap 9 exit 9 Assignfile 9, reset9 Alternatiewe oplossing Lus van 1 tot 5 9 Stel teller = 0 Lees reël 9 en stoor in Lus tot einde van lêer 9 skikking 9 gebruik lusteller 9 Tel 1 by teller 9 Lees ʼn reël 9 Voeg by skikking, gebruik die teller 9 (trek 1 punt af as dieselfde tekslêer-veranderlike gebruik is in die volgende afdeling en dit is na die lees van lêer nie toegemaak nie) 21 Lus van 1 tot teller (of 5) 9 Voeg die syfer 9 van die konstante skikking 9 Aan die einde van die skikking [lusindeks] 9 En stoor in dieselfde skikking 9 Assignfile met korrekte lêernaam 9en Rewrite statement 9 Lus van 1 tot teller of 5 9 Skryf skikking na tekslêer 9 gebruik die lusindeks 9 Closefile statement after loop 9 Vertoon ʼn boodskap om te wys dat lêer geskryf is 9 Vraag 2 Totaal 42 Kopiereg voorbehou Blaai om asseblief

(EC/NOVEMBER 2020) INLIGTINGSTEGNOLOGIE V1 5 MAKS PUNTE VRAAG 3 PUNTE BEHAAL 3.1 KNOPPIE: [V3.1 Vertoon Bladsye] Gaan na eerste record 9 Lus tot einde van tabel 9 As Bladsye 9 > 100 9 7 Vertoon Titel 9 in richedit 9 Gaan na volgende rekord voor einde van lus 9 3.2 KNOPPIE: [V3.2 Verander na English] Gaan na eerste rekord 9 Lus tot einde van tabel 9 As Language = ‘eng’ 9 Edit 9 7 Stel Language = ‘English’ 9 Post 9 Gaan na volgende rekord voor einde van lus 9 3.3 KNOPPIE: [V3.3 Verwyder PMC artikels] Gaan na eerste rekord 9 Lus tot einde van tabel 9 As Bron = 'PMC' 9 6 Delete 9 else 9 Gaan na volgende rekord voor einde van lus 9 3.4 KNOPPIE: [V3.4 Persentasie van Chinese artikels] Stel teller na 0 9 en totaal na 0 9 Gaan na eerste rekord 9 Lus tot einde van tabel 9 As Language = ‘Chinese’ 9 Voeg 1 by teller 9 Voeg 1 by totaal veranderlike 9 13 Gaan na volgende rekord voor einde van lus 9 Vertoon in richedit 9 Totaal van al die artikels omgeskakel na string 9 Persentasie korrek bereken 9 vertoon as ʼn string 9 as ʼn heelgetal met geen desimale plekke 9 3.5 KNOPPIE: [V3.5 Voeg Artikel By] tblnavorsing.Insert; 9 tblnavorsing['Titel'] := ‘Vaccine trials’; 9 tblnavorsing['Outeur'] := ‘Watson M’; 9 7 tblnavorsing['Uitgewer'] := ‘Cureus’; 9 tblnavorsing[;Bladsye'] := 43; 9 tblnavorsing['Taal'] := ‘English’; 9 tblnavorsing.Post; 9 Vraag 3 Totaal 40 Kopiereg voorbehou Blaai om asseblief

6 INLIGTINGSTEGNOLOGIE V1 (EC/NOVEMBER 2020) MAKS PUNTE VRAAG 4 PUNTE BEHAAL Knoppie [V4 Versoek vir Toets] Kry naam en van 9 en ouderdom 9 van toevoerkomponente Kry die stelseldatum 9 As ouderdom >= 60 9 string = ‘jou toetsdatum is’ 9 en stelseldatum as ʼn string 9 Else 9 22 string = ‘jou toetsdatum is’ 9 en stelseldatum 9 + 1 dag 9 as string 9 if chkSimptome.Checked 9 and 9 (chkReis.Checked 9or 9chkKontak.Checked 9) lblVertoon.Caption 9 = name 9+ #139 + kompileerde string 9 else 9 lblVertoon.Caption = 'Bel jou dokter as jy bekommerd is'; 9 Vraag 4 Totaal 22 Kopiereg voorbehou Blaai om asseblief

(EC/NOVEMBER 2020) INLIGTINGSTEGNOLOGIE V1 7 VOORGESTELDE OPLOSSINGS VRAAG 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; Kopiereg voorbehou Blaai om asseblief

8 INLIGTINGSTEGNOLOGIE V1 (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; VRAAG 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; Kopiereg voorbehou Blaai om asseblief

(EC/NOVEMBER 2020) INLIGTINGSTEGNOLOGIE V1 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; Kopiereg voorbehou Blaai om asseblief

10 INLIGTINGSTEGNOLOGIE V1 (EC/NOVEMBER 2020) VRAAG 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 Kopiereg voorbehou Blaai om asseblief

(EC/NOVEMBER 2020) INLIGTINGSTEGNOLOGIE V1 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; VRAAG 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; Kopiereg voorbehou Blaai om asseblief