IT P1 MEMO GR11 NOV 2020 Afrikaans hlayiso.com

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

Downloaded from hlayiso.com 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  Kry die jaar uit edtjaar  Kry provinsie uit cmbprovinsie  As ‘itemindex’ van kombinasieblokkie = 0  Tel 1 by teller vir Oos-Kaap  Else  As ‘itemindex’ = 1  Tel 1 by Wes-Kaap teller  Else  Vertoon boodskap  en exit  Alternatief no 1: Case struktuur  Itemindex = 0  tel 1 by Oos-Kaap teller  Itemindex = 1  tel 1 by Wes-Kaap teller  26 Else  Vertoon boodskap  en exit  Kompileer die kode: Kry die eerste letter van naam  Kry die eerste letter van die van  gebruik pos  1ste karakter van naam  1ste karakter van die van  Karakters 3 en 4 van jaar  Eerste 4 karakters  van provinsie Ewekansige getalle  met die korrekte reeks (range)  (randomrange(1000,60001) en die gebruik van inttostr  Showmessage komponent om kode te vertoon  pnlOK caption = Oos-Kaap teller  pnlWK caption = Wes-Kaap teller  gebruik inttostr vir albei  Kopiereg voorbehou Blaai om asseblief

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

Downloaded from hlayiso.com 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  Binnelus van buitelus-teller +1 tot 10  As arrhoeveel[k] < arrhoeveel[l] dan  stel temp = arrhoeveel[k]  stel arrhoeveel[l] = arrhoeveel[k]  set arrhoeveel[k] = temp  doen die volgende algoritme vir arrdae  gebruik ʼn string temp veranderlike  Vertoon skikkings 21 Lus van 1 tot 10  Gebruik ʼn richedit  Vertoon inhoud van arrdae,  arrhoeveel  Gebruik ‘tab stop’  gebruik inttostr vir arrhoeveel  Bereken en vertoon gemiddeld Inisialiseer die totaal veranderlike  Lus van 1 tot 10  stel totaal veranderlike = totaal  + arrhoeveel[lus indeks]  bereken gemiddelde = totaal/10  vertoon gemiddeld in richedit met ʼn boodskap afgerond na ʼn heelgetal  2.2 Knoppie [V2.3 Veelvoude] As die lêer nie bestaan nie  Vertoon ʼn boodskap  exit  Assignfile , reset Alternatiewe oplossing Lus van 1 tot 5  Stel teller = 0 Lees reël  en stoor in Lus tot einde van lêer  skikking  gebruik lusteller  Tel 1 by teller  Lees ʼn reël  Voeg by skikking, gebruik die teller  (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)  Voeg die syfer  van die konstante skikking  Aan die einde van die skikking [lusindeks]  En stoor in dieselfde skikking  Assignfile met korrekte lêernaam en Rewrite statement  Lus van 1 tot teller of 5  Skryf skikking na tekslêer  gebruik die lusindeks  Closefile statement after loop  Vertoon ʼn boodskap om te wys dat lêer geskryf is  Vraag 2 Totaal 42 Kopiereg voorbehou Blaai om asseblief

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

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

Downloaded from hlayiso.com (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

Downloaded from hlayiso.com 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

Downloaded from hlayiso.com (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

Downloaded from hlayiso.com 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

Downloaded from hlayiso.com (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