# Information Technology Grade 12 P1 2013 Memo

> Grade 12 Information Technology Paper 1 memorandum from the Eastern Cape Mock Exam 2013, 12 pages. Read online or download the free PDF.

- Page: https://www.hlayiso.com/library/it-p1-memo/c94992f8-451b-47e3-93ef-60bab6eb9069
- Updated: 2026-09-27
- Subject: Information Technology
- Grade: Grade 12
- Document type: Memorandum
- Year: 2013
- Exam period: Eastern Cape Mock Exam
- Paper: 1
- Curriculum: CAPS
- Pages: 12

Breadcrumbs: [Home](https://www.hlayiso.com/) › [Library](https://www.hlayiso.com/library) › [Grade 12](https://www.hlayiso.com/library/grade-12) › [Information Technology](https://www.hlayiso.com/library/grade-12/information-technology) › [Information Technology Grade 12 P1 2013 Memo](https://www.hlayiso.com/library/it-p1-memo/c94992f8-451b-47e3-93ef-60bab6eb9069)

## About this document

Information Technology · Grade 12 · Eastern Cape Mock Exam · 2013. Memorandum, 12 pages. Read online or download the PDF.

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

## Document text

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

### Page 1

Downloaded from hlayiso.com

                   Province of the
                   EASTERN CAPE
                   EDUCATION

                          NATIONAL
                     SENIOR CERTIFICATE

                   GRADE/GRAAD 12

                     SEPTEMBER 2013

         INFORMATION TECHNOLOGY P1 /
           INLIGTINGSTEGNOLOGIE V1
                 MEMORANDUM

MARKS/PUNTE: 120

                     This memorandum consists of 12 pages./
                   Hierdie memorandum bestaan uit 12 bladsye.

### Page 2

Downloaded from hlayiso.com
2                                 INFORMATION TECHNOLOGY P1                               (SEPTEMBER 2013)

 QUESTION/VRAAG 1: DATABASE AND DELPHI                                         (33 marks/punte)

procedure TForm1.Button1Click(Sender: TObject);
begin
qryschool.Active := false;
qryschool.SQL.text := 'select * from childrenTb order by name';
qryschool.Active := true ;
SetGridColumnWidths(DBGrid1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
qryschool.Active := false;
qryschool.SQL.text := 'select name from childrenTb where (allergies = true)  and (ExtraActivities like
"%Cooking is Fun%")';
qryschool.Active := true;
SetGridColumnWidths(DBGrid1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
qryschool.Active := false;
qryschool.SQL.text := 'select name, (2013 - year(dateOfBirth) ) as [Age]  from childrenTb';
qryschool.Active := true;
SetGridColumnWidths(DBGrid1);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
qryschool.Active := false;
qryschool.SQL.text := 'select name,dad_name,mom_name from childrenTb,parentsTb where
childrenTb.ChildID = parentsTb.childID and AvailableToHelp = true';
qryschool.Active := true;
SetGridColumnWidths(DBGrid1);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
qryschool.Active := false;
qryschool.SQL.text := 'select count(*) as [Boys doing Ball Skills]  from childrenTb where ExtraActivities
like "%Ball Skills%"';
qryschool.Active := true;
SetGridColumnWidths(DBGrid1);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
qryschool.Active := false;
qryschool.SQL.text := 'insert into childrenTb values (23,"Rebekka","White",2009/04/02,"F",No,"Cooking
is Fun")';
qryschool.ExecSQL;
qryschool.SQL.Text := 'select * from childrenTb';
qryschool.Active := true;

### Page 3

Downloaded from hlayiso.com
(SEPTEMBER 2013)                   INLIGTINGSTEGNOLOGIE V1                                          3

SetGridColumnWidths(DBGrid1);
end;

procedure TForm1.Button7Click(Sender: TObject);
var
sactivity : string;
begin
sactivity := inputbox('Enter activity','',''); 
qryschool.Active := false;
qryschool.SQL.text := 'select name, surname from childrenTb where ExtraActivities like
"%'+sactivity+'%"';
qryschool.Active := true;
SetGridColumnWidths(DBGrid1);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
qryschool.Active := false;
qryschool.SQL.text := 'select name, surname, dateofbirth from childrenTb where
(MONTH(Dateofbirth)=10)  or (MONTH(Dateofbirth)=11)  or (MONTH(Dateofbirth)=12) ';
qryschool.Active := true;                               *where (MONTH(DateOfBirth) in (10,11,12))
SetGridColumnWidths(DBGrid1);                                  can also be used
end;

### Page 4

Downloaded from hlayiso.com
 4                          INFORMATION TECHNOLOGY P1                     (SEPTEMBER 2013)

QUESTION/VRAAG 2                                                   (50 marks/punte)

2.1   2.1.1   Define a class TSchool                                                          1
              Private                                                                         1
              Declaring fname, fdob, fdeposit, fage                                           1

      2.1.2   Constructor heading                                                             1
              Assigning and initialising fields                                               1

      2.1.3   Procedure CalcAge heading                                                       1
              Calculate fage                                                                  1
              SysUtils                                                                        1

      2.1.4   Function getreason : string     heading                                         1
              Nested if statements                                                            6

      2.1.5   Function accepted : Boolean heading                                             1
              If deposit paid and age is correct then accept should be true                   3

      2.1.6   GetName heading                                                                 1
              fname assigned to result/function                                               1

      2.1.7   GetDOB heading                                                               1
              fdob assigned to result/function                                             1
                                                                                         /23/

2.2   2.2.1   Declare arrlearners, icount (global)                                            2
              Initialise counter                                                              1
              Check if file exists, ShowMessage                                               2
              Assignfile and Reset                                                            2
              While not eof() do                                                              1
              Readln                                                                          1
              Increase counter                                                                1
              Get name                                                                        1
              Get dob                                                                         1
              Get deposit                                                                     1
              Assign to arrlearner                                                            1

      2.2.2   Loop                                                                            1
              Call getname  display                                                          1

      2.2.3   Loop                                                                            1
              Call calcage                                                                    1
              If accepted = true then increase counter and display the name                   3
              Display how many learners have been accepted                                    1

      2.2.4   Loop                                                                             1
              Call calcage                                                                     1
              If accepted = false then display the name and reason                             3
                                                                                             /27/

### Page 5

Downloaded from hlayiso.com
(SEPTEMBER 2013)                           INLIGTINGSTEGNOLOGIE V1        5

POSSIBLE SOLUTION
unit Unit2;

interface
 uses
  sysutils;

type
 TSchool = class
  private
   fname : string;
   fdob : string;
   fdeposit : boolean;             
   faccept : boolean;
   fage : integer;
  public
   constructor create(sname, sdob : string; bdeposit : boolean);
   procedure calcage;
   function accepted : boolean;
   function getname : string;
   function getdob : string;
   function getreason : string;
  end;

implementation

constructor Tschool.create(sname, sdob : string; bdeposit : boolean); 
begin
fname := sname;
 fdob := sdob;
 fdeposit := bdeposit;            
 faccept := false;
end;

procedure Tschool.calcage; 
begin
fage := 2013 - strtoint(copy(fdob,7,4)); 
end;

function TSchool.getreason : string; 
begin

 if (fage < 4) or (fage > 6) then
   getreason := 'Incorrect Age'
 else
 if (fdeposit = false) then
   getreason := 'Deposit not paid'
 else
    if ((fage < 4) or (fage>6)) and (fdeposit = false) then
      getreason := 'Deposit not paid and incorrect age'; 
end;

function TSchool.accepted : boolean; 
begin
 if (fdeposit = true)  and ((fage>=4) and (fage<=6))  then
   result := true; 
end;

function Tschool.getdob : string; 

### Page 6

Downloaded from hlayiso.com
6                                      INFORMATION TECHNOLOGY P1   (SEPTEMBER 2013)

begin
 result := fdob; 
end;

function Tschool.getname : string; 
begin
 result := fname; 
end;
end.

### Page 7

Downloaded from hlayiso.com
(SEPTEMBER 2013)                           INLIGTINGSTEGNOLOGIE V1            7

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Menus, StdCtrls, ComCtrls, unit2;

type
 TForm1 = class(TForm)
  MainMenu1: TMainMenu;
  RichEdit1: TRichEdit;
  Displayallcandidates1: TMenuItem;
  Close1: TMenuItem;
  AcceptedCandidates1: TMenuItem;
  ReasonsforNonAcceptance1: TMenuItem;
  DisplayallApplications1: TMenuItem;
  Exit1: TMenuItem;
  procedure DisplayallApplications1Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure Close1Click(Sender: TObject);
  procedure AcceptedCandidates1Click(Sender: TObject);
  procedure ReasonsforNonAcceptance1Click(Sender: TObject);
  procedure Exit1Click(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
 end;

var
 Form1: TForm1;
 icount : integer; 
 arrschools : array[1..50] of Tschool; 
implementation

{$R *.dfm}

procedure TForm1.DisplayallApplications1Click(Sender: TObject);
var
 k:integer;
begin
 for k := 1 to icount do
  begin
    richedit1.lines.add(arrschools[k].getname); 
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 myfile : textfile;
 soneline,sname,sdob : string;
 k,ipos: integer;
 bdeposit : boolean;
begin
  icount := 0; 
  if fileexists('Applications.txt') <> true then
    begin
     ShowMessage('File does not exist'); 

### Page 8

Downloaded from hlayiso.com
8                                    INFORMATION TECHNOLOGY P1                         (SEPTEMBER 2013)

   Exit;
  end;
 Assignfile(myfile,'Applications.txt'); 
 Reset(myfile); 
 while not eof(myfile) do
  begin
   readln(myfile, soneline); 
   ipos := pos('#',soneline);
   sname := copy(soneline,1, ipos-1); 
   delete(soneline,1,ipos);
   ipos := pos('#',soneline);
   sdob := copy(soneline,1, ipos-1); 
   delete(soneline,1,ipos);
   bdeposit := strtobool(soneline); 
   inc(icount); 
   arrschools[icount]:=Tschool.create(sname, sdob, bdeposit); 
  end;
  closefile(myfile);
end;

procedure TForm1.AcceptedCandidates1Click(Sender: TObject);
var
 k, itotal : integer;
begin
 richedit1.clear;
 for k := 1 to icount do
   begin
    arrschools[k].calcage; 
    if arrschools[k].accepted = true then
     begin
      itotal := itotal + 1; 
      richedit1.Lines.add(arrschools[k].getname); 
     end;
   end;
  richedit1.lines.add(inttostr(itotal)+' children accepted'); 
end;

procedure TForm1.ReasonsforNonAcceptance1Click(Sender: TObject);
var
 k : integer;
begin
      richedit1.Clear;
      for k := 1 to icount do
       begin
       arrschools[k].calcage; 
       if arrschools[k].accepted = false then
        richedit1.Lines.add(arrschools[k].getname + #9 + arrschools[k].getreason) 
       end;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
 Exit;
end;

end.

### Page 9

Downloaded from hlayiso.com
 (SEPTEMBER 2013)                    INLIGTINGSTEGNOLOGIE V1                            9

QUESTION/VRAAG 3                                                     (37 marks/punte)

3.1    Initialise row counter                                                               1
       Check if file exist and error message                                                1
       Assignfile and reset                                                                 1
       Readln                                                                               1
       Initialise column counter                                                            1
       Increase row counter                                                                 1
       Loop                                                                                 1
       Assign ticket numbers to array                                                       2

3.2    For row loop                                                                         1
       For col loop                                                                         1
       Display array in stringgrid                                                          1

3.3    Initialise counter                                                                   1
       For loops                                                                            1
       If statement to see if a ticket has been sold                                        1
       Increase counter if true                                                             1
       Display how many tickets have been sold                                              1

3.4    Random(230) + 1                                                                      1
       For loops                                                                            1
       If ticket number = random number, then display in listbox                            2
       Increase counter                                                                     1
       Repeat until counter = 10                                                            1

3.5    Initialise variables                                                                 2
       For loops                                                                            1
       If a ticket was sold increase counter                                                2
       If it is more than previous values, then assign highest to max and remember
       which row                                                                            3
       Display the child’s name who sold the most tickets                                   1

3.6    Calculate amount                                                                     1
       Calculate amount to be donated                                                       1
       Display amount and donated amount                                                    2
       Rounded to two decimal places                                                        1

### Page 10

Downloaded from hlayiso.com
10                                    INFORMATION TECHNOLOGY P1                         (SEPTEMBER 2013)

POSSIBLE SOLUTION

unit Question3_u;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Grids, StdCtrls;

type
 TForm1 = class(TForm)
 …
 end;

var
 Form1: TForm1;
 ar2tickets : array[1..23,1..10] of integer;
 iticketssold : integer;

const
 arrnames : array[1..23] of string = ('Jack','Sarah','Ben','Lily','Jocelyn','Adrian',
                     'Anathi','Anita','Ashwin','Peter','Chloe','Jeff','Nathi',
                     'Wandile','Kerry','Sethu','Caryn','Nicola','Phila',
                     'Lindelwa','Kevin','Alex','Rebekka');
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 irow : integer;
begin

 for irow := 1 to 23 do
   stringgrid1.cells[0,irow-1] := arrnames[irow];

end;
procedure TForm1.Button1Click(Sender: TObject);
var
 irow,icol,ipos : integer;
 myfile : textfile;
 soneline : string;
begin
 irow := 0;
 if fileexists('Tickets.txt')<>true then
   begin
    ShowMessage('File does not exist');   
    Exit;
   end;
 Assignfile(myfile, 'Tickets.txt');    
 Reset(myfile);
 while not eof(myfile) do
  begin

### Page 11

Downloaded from hlayiso.com
(SEPTEMBER 2013)                        INLIGTINGSTEGNOLOGIE V1            11

  readln(myfile, soneline); 
  icol := 0; 
  inc(irow); 
  ipos := pos(',',soneline);
  while ipos <> 0 do
    begin
     inc(icol);
     ar2tickets[irow,icol] := strtoint(copy(soneline,1,ipos-1)); 
     delete(soneline,1,ipos);
     ipos := pos(',',soneline);
    end;
 end;
 closefile(myfile);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
 irow, icol : integer;
begin
 for irow := 1 to 23 do
   for icol := 1 to 10 do
    stringgrid1.cells[icol,irow-1] := inttostr(ar2tickets[irow,icol]); 
end;

procedure TForm1.Button3Click(Sender: TObject);
var
 irow, icol : integer;
begin
 iticketssold := 0; 
 for irow := 1 to 23 do
   for icol := 1 to 10 do
    if ar2tickets[irow,icol] > 0 then
      inc(iticketssold); 
 ShowMessage(inttostr(iticketssold) + ' tickets sold'); 
end;

procedure TForm1.Button4Click(Sender: TObject);
var
 iran, irow, icol, idraws : integer;
begin
  randomize;
  repeat
   iran := random(230) + 1; 
   for irow := 1 to 23 do
     begin
     for icol := 1 to 10 do
      begin
       if ar2tickets[irow,icol] = iran then
         begin
          listbox1.Items.add(inttostr(iran)) ;
          inc(idraws); 
         end
      end;

### Page 12

Downloaded from hlayiso.com
12                                 INFORMATION TECHNOLOGY P1                 (SEPTEMBER 2013)

   end;
 until idraws = 10; 
end;

procedure TForm1.Button5Click(Sender: TObject);
var
 imax, irow,icol,ihighest,ichild : integer;

begin
 imax := 0; 
 for irow := 1 to 23 do
  begin
   ihighest := 0; 
   for icol := 1 to 10 do
     begin
       if ar2tickets[irow,icol] <> 0 then
         inc(ihighest); 
     end;
   if ihighest > imax then
    begin
     imax := ihighest; 
     ichild := irow; 
    end;
   end;
  ShowMessage(stringgrid1.cells[0,ichild-1] + ' sold the most tickets'); 
end;

procedure TForm1.Button6Click(Sender: TObject);
var
 ramount, rdonate : real;

begin
 ramount := iticketssold * 25; 
 rdonate := 40/100*ramount; 
 ShowMessage('Total Amount Raised '+floattostrf(ramount, fffixed,8,2)); 
 ShowMessage('Total Amount Donated '+floattostrf(rdonate, fffixed,8,2)) 
end;

end.

## Related documents

- [Gr12 INFT P1 QP AFR S13](https://www.hlayiso.com/library/gr12-inft-p1-qp-afr-s13/8204cf59-1d85-451d-b855-d05abfb8fa40) — Information Technology · QP · 2013 · Afr
- [Gr12 INFT P1 QP ENG S13](https://www.hlayiso.com/library/gr12-inft-p1-qp-eng-s13/501e0893-fed0-42d9-9741-f8303cd5620e) — Information Technology · QP · 2013 · Eng
- [IT P2 GR12 MEMO Afr](https://www.hlayiso.com/library/it-p2-gr12-memo-afr/f4ba34e5-b061-4b93-823a-cb33db2c7675) — Information Technology · Memo · 2013 · Afr
- [Computer Studies P1 HG 2013 Memo](https://www.hlayiso.com/library/computer-studies-p1-hg-2013-memo/a92819d8-b87f-4188-97da-009bf91ae487) — Information Technology · Memo · 2013
- [Information Technology P1 Nov 2012 Memo Eng](https://www.hlayiso.com/library/information-technology-p1-nov-2012-memo-eng/9be72774-3cfc-4bee-aa47-2ec61c41b966) — Information Technology · Memo · 2013 · Eng
- [IT P1 GR12 MEMO SEPT 2022 Afrikaans](https://www.hlayiso.com/library/it-p1-gr12-memo-sept-2022-afrikaans/43cd69be-f0ac-46f4-9d4c-b2503fe09125) — Information Technology · Memo · 2022 · Afr

## More from Grade 12 Information Technology

- [IT-P2-GR12 QP-Afr-SEP-2025 watermark](https://www.hlayiso.com/library/it-p2-gr12-qp-afr-sep-2025-watermark/569cc299-ae7c-4635-9514-cf03f9242ebc) — QP · 2025 · Afr
- [IT P2 QP GR12 SEPT 2024 AFR](https://www.hlayiso.com/library/it-p2-qp-gr12-sept-2024-afr/9016098b-e233-49f4-b1dc-f0838363c6af) — QP · 2024 · Afr
- [IT P2 QP GR12 SEPT 2024 English](https://www.hlayiso.com/library/it-p2-qp-gr12-sept-2024-english/83309154-2856-47f1-82cc-cc04c8ab38b1) — QP · 2024 · Eng
- [Information Technology P1 Nov 2024 Afr](https://www.hlayiso.com/library/information-technology-p1-nov-2024-afr/f4b19c44-77ce-482a-9f85-438813c25f87) — QP · 2024 · Afr
- [Information Technology P2 Nov 2024 Eng](https://www.hlayiso.com/library/information-technology-p2-nov-2024-eng/3afa20d1-1c0f-4969-8a56-d690e9b24d70) — QP · 2024 · Eng
- [Information Technology P1 May-June 2023 MG Eng](https://www.hlayiso.com/library/information-technology-p1-may-june-2023-mg-eng/f868554b-8f4f-4370-aa4e-cfa745fc806d) — Memo · 2023 · Eng

## Collection

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