# Information Technology Grade 11 P1 2020 Memo (Afr)

> Grade 11 Information Technology Paper 1 memorandum from the National Exemplar November Exam 2020 (Afrikaans), 11 pages. Read online or download the free PDF.

- Page: https://www.hlayiso.com/library/grade-11-information-technology-2020-national-exemplar-november-exam-memorandum-paper-1-afrikaans/7dd07d03-326b-43d1-9440-001803f14832
- Updated: 2026-09-28
- Subject: Information Technology
- Grade: Grade 11
- Language: Afrikaans
- Document type: Memorandum
- Year: 2020
- Exam period: National Exemplar November Exam
- Paper: 1
- Curriculum: CAPS
- Pages: 11

Breadcrumbs: [Home](https://www.hlayiso.com/) › [Library](https://www.hlayiso.com/library) › [Grade 11](https://www.hlayiso.com/library/grade-11) › [Information Technology](https://www.hlayiso.com/library/grade-11/information-technology) › [Information Technology Grade 11 P1 2020 Memo (Afr)](https://www.hlayiso.com/library/grade-11-information-technology-2020-national-exemplar-november-exam-memorandum-paper-1-afrikaans/7dd07d03-326b-43d1-9440-001803f14832)

## About this document

Information Technology · Grade 11 · National Exemplar November Exam · 2020 · Afrikaans. Memorandum, 11 pages. Read online or download the PDF.

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

## Matching paper and memo

- [IT P1 QP GR11 NOV2020 Afrikaans](https://www.hlayiso.com/library/grade-11-information-technology-2020-national-exemplar-november-exam-question-paper-paper-1-afrikaans/83e10fa3-445e-4555-a985-c004e2982008) — QP · 2020 · Afr
- [IT P1 QP GR11 NOV2020 Afrikaans D](https://www.hlayiso.com/library/grade-11-information-technology-2020-national-exemplar-november-exam-question-paper-paper-1-afrikaans/df854c01-9053-430b-b1d1-beb016f0f838) — QP · 2020 · Afr

## Document text

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

### Page 1

NASIONALE
                     SENIOR SERTIFIKAAT

                         GRAAD 11

                      NOVEMBER 2020

               INLIGTINGSTEGNOLOGIE V1
                     NASIENRIGLYN

PUNTE:   150

                Hierdie nasienriglyn bestaan uit 11 bladsye.

### Page 2

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

### Page 3

(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

### Page 4

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

### Page 5

(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

### Page 6

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

### Page 7

(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

### Page 8

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

### Page 9

(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

### Page 10

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

### Page 11

(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

## Related documents

- [IT P1 QP MEMO GR11 NOV2020 Afrikaans D](https://www.hlayiso.com/library/grade-11-information-technology-2020-national-exemplar-november-exam-memorandum-paper-1-afrikaans/9dfca362-ba2e-43f6-947d-2f7c2aad0ded) — Information Technology · Memo · 2020 · Afr
- [IT P2 GR11 MEMO NOV2020 AFR D](https://www.hlayiso.com/library/grade-11-information-technology-2020-national-exemplar-november-exam-memorandum-paper-2-afrikaans/40e4609f-a288-4991-86eb-07f586af4002) — Information Technology · Memo · 2020 · Afr
- [IT-P2-GR11 QP MEMO NOV2020 AFR D](https://www.hlayiso.com/library/grade-11-information-technology-2020-national-exemplar-november-exam-memorandum-paper-2-afrikaans/4a901958-1706-46e5-8fb1-d67739b39ec7) — Information Technology · Memo · 2020 · Afr
- [IT P1 QP MEMO GR11 NOV2020 Afrikaans D](https://www.hlayiso.com/library/it-p1-qp-memo-gr11-nov2020-afrikaans-d/09d5bea3-08be-4b20-9a72-e526738e9d32) — Information Technology · Memo · 2020 · Afr
- [IT-P2-GR11 QP-Afr-NOV-2020](https://www.hlayiso.com/library/grade-11-information-technology-2020-national-exemplar-november-exam-question-paper-paper-2-afrikaans/07b2bcb7-4a41-492b-8cf6-b9dad4f25eeb) — Information Technology · QP · 2020 · Afr
- [IT P1 QP GR11 NOV2020 Afrikaans](https://www.hlayiso.com/library/it-p1-qp-gr11-nov2020-afrikaans/3004cfd1-3dc0-4c27-8e34-e7946b874eb4) — Information Technology · QP · 2020 · Afr

## More from Grade 11 Information Technology

- [Gr 11 Info Tech ATP 2023-24](https://www.hlayiso.com/library/gr-11-info-tech-atp-2023-24/67fc595c-646e-4c38-9951-fe5fe3a113a7) — ATP
- [IT P1 QP GR11 NOV 2022 AFR](https://www.hlayiso.com/library/it-p1-qp-gr11-nov-2022-afr/e4251ebe-2f65-4c6f-992b-f7208b36300a) — QP · 2022 · Afr
- [IT P2 GR11 QP NOV2022 Afrikaans](https://www.hlayiso.com/library/it-p2-gr11-qp-nov2022-afrikaans/00d1cb8c-b0d9-41ea-9060-a94b73039d3a) — QP · 2022 · Afr
- [IT P1 QP GR11 NOV 2022 AFR](https://www.hlayiso.com/library/grade-11-information-technology-2022-exemplar-november-exam-question-paper-paper-1-afrikaans/a17870ba-8fac-4013-9eda-0831f367fbca) — QP · 2022 · Afr
- [IT P2 GR11 QP NOV2022 Afrikaans](https://www.hlayiso.com/library/grade-11-information-technology-2022-exemplar-november-exam-question-paper-paper-2-afrikaans/be8f522c-a9ab-4a0d-bbce-f1b478d57356) — QP · 2022 · Afr
- [GEO-Sept-QP & Memo-2015-Gr11](https://www.hlayiso.com/library/geo-sept-qp-memo-2015-gr11/cfa849fa-4151-4938-b293-d0122c3a72c6) — QP + Memo · 2021

## Collection

- [Grade 11 past papers](https://www.hlayiso.com/grade-11/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.