# Information Technology Grade 11 P1 2013 Memo > Grade 11 Information Technology Paper 1 memorandum from the Eastern Cape November 2013, 6 pages. Read online or download the free PDF. - Page: https://www.hlayiso.com/library/it-p1-memo/e2908a62-f3bf-4ece-9096-6a0af513db6f - Updated: 2026-09-27 - Subject: Information Technology - Grade: Grade 11 - Document type: Memorandum - Year: 2013 - Exam period: Eastern Cape November - Paper: 1 - Curriculum: CAPS - Pages: 6 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 2013 Memo](https://www.hlayiso.com/library/it-p1-memo/e2908a62-f3bf-4ece-9096-6a0af513db6f) ## About this document Information Technology · Grade 11 · Eastern Cape November · 2013. Memorandum, 6 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 NATIONAL SENIOR CERTIFICATE NASIONALE SENIOR SERTIFIKAAT GRADE/GRAAD 11 NOVEMBER 2013 INFORMATION TECHNOLOGY P1 INLIGTINGSTEGNOLOGIE V1 MEMORANDUM MARKS/PUNTE: 150 This memorandum consists of 6 pages. Hierdie memorandum bestaan uit 6 bladsye. ### Page 2 Downloaded from hlayiso.com 2 INFORMATION TECHNOLOGY P1 (NOVEMBER 2013) QUESTION/VRAAG 1 – 23 marks/punte unit Question1_u; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Memo1: TMemo; RadioGroup1: TRadioGroup; CheckBox1: TCheckBox; procedure Button1Click(Sender: TObject); private public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Nested if-Statement can be sname, stime, susername, ssurname, spassword : string; used instead of the Case begin Statement: randomize;  sname := edit1.text;  Award one mark for making use ssurname := edit2.text;  of the radiogroup1.itemindex susername := ssurname + sname[1];  and then one mark for each spassword := inttostr(random(1000000)+1);  case radiogroup1.itemindex of correct option. 0: stime := '15';  (6) 1: stime := '15';  2: stime := '20';  3: stime := '25';  4: stime := '30';  end; memo1.clear; memo1.lines.Add('Welcome '+sname +' ' +ssurname);  memo1.lines.add('');  memo1.Lines.add('Your once-off username is: '+susername);  memo1.lines.add('Your once-off password is: '+spassword);  memo1.lines.add('');  memo1.lines.add('You are allowed to work for '+stime+' minutes.');  if checkbox1.checked = true then memo1.lines.add('There will be no printing costs')  else memo1.lines.add('Printing costs will be R0.40 per page');  end; end. ### Page 3 (NOVEMBER 2013) Downloaded from hlayiso.com INLIGTINGSTEGNOLOGIE V1 3 begin QUESTION/VRAAG 2 – SAMPLE SOLUTION/VOORBEELDOPLOSSING icount := icount + 1;  (34 marks/punte) if adolibrary['Language'] = 2 then unit Question2memo_u; inc(iafrikaans);  adolibrary.Next;  interface end; iaverage := round(iafrikaans/icount*100);  uses label3.caption := inttostr(iaverage)+'% Afr Books';  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, end; Dialogs, Grids, DBGrids, DB, ADODB, ComCtrls, StdCtrls, Buttons; procedure TForm1.Button3Click(Sender: TObject); type var TForm1 = class(TForm) icount : integer; … sauthor : string; end; begin icount := 0;  var sauthor := edit1.text;  Form1: TForm1; adolibrary.open;  adolibrary.First;  implementation while not adolibrary.Eof do begin {$R *.dfm} if adolibrary['AuthorID'] = sauthor then icount := icount + 1;  procedure TForm1.Button1Click(Sender: TObject); adolibrary.next;  var end; icount : integer; label4.caption := 'The author wrote '+inttostr(icount)+' books';  begin end; icount := 0;  adolibrary.open;  procedure TForm1.Button4Click(Sender: TObject); adolibrary.first;  var while not adolibrary.eof do icount : integer; begin begin icount := icount + 1;  icount := 0;  adolibrary.next;  adolibrary.Open;  end; adolibrary.First;  label1.caption := inttostr(icount) + ' books in the library';  while not adolibrary.Eof do end; begin if adolibrary['YearPublished'] > 2000 then procedure TForm1.Button2Click(Sender: TObject); inc(icount);  var adolibrary.Next;  icount,iafrikaans,iaverage : integer; end; label5.caption := inttostr(icount)+' published after 2000';  begin end; icount := 0;  adolibrary.Open;  end. adolibrary.first;  while not adolibrary.Eof do ### Page 4 Downloaded from hlayiso.com 4 INFORMATION TECHNOLOGY P1 (NOVEMBER 2013) procedure TForm1.FormCreate(Sender: TObject); var myfile : textfile; begin QUESTION/VRAAG 3 – SAMPLE SOLUTION/VOORBEELDOPLOSSING (77 marks/punte) icount := 0; icounter := 0; unit Question3_u; randomize; Assignfile(myfile,'books.txt'); interface reset(myfile); while not eof(myfile) do uses begin Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, inc(icount); Dialogs, StdCtrls, ComCtrls, Menus; readln(myfile,arrbooks[icount]); end; type richedit1.Paragraph.TabCount := 2; TForm1 = class(TForm) richedit1.Paragraph.tab[0] := 150; MainMenu1: TMainMenu; richedit1.Paragraph.tab[1] := 200; CreateBookCode1: TMenuItem; end; SortaccAuthor1: TMenuItem; GenerateOnceoffPassword1: TMenuItem; procedure TForm1.CreateBookCode1Click(Sender: TObject); Fines1: TMenuItem; var RichEdit1: TRichEdit; k,ipos : integer;  Search1: TMenuItem; begin procedure FormCreate(Sender: TObject); richedit1.Clear; procedure CreateBookCode1Click(Sender: TObject); richedit1.lines.add('Book Title'+#9+'Book Code');  procedure SortaccAuthor1Click(Sender: TObject); for k := 1 to icount do procedure GenerateOnceoffPassword1Click(Sender: TObject); begin procedure Fines1Click(Sender: TObject); ipos := pos(';',arrBooks[k]);  procedure Search1Click(Sender: TObject); arrtitle[k]  := copy(arrbooks[k],1,ipos-1);  private delete(arrbooks[k],1,ipos);  arrbooks : array[1..150] of string; ipos := pos(',',arrbooks[k]); arrtitle : array[1..150] of string; arrsurname[k] := copy(arrbooks[k],1,ipos-1);  arrcode : array[1..150] of string; arrcode[k] := copy(arrsurname[k],1,3) +inttostr(k);  arrsurname : array[1..150] of string; richedit1.Lines.add(arrtitle[k] + #9 + arrcode[k]);  icount,icounter : integer; end; public end; { Public declarations } procedure TForm1.SortaccAuthor1Click(Sender: TObject); end; var k, l : integer; var ssurname, stitle : string;  Form1: TForm1; begin for k := 1 to icount - 1 do implementation begin for l := k + 1 to icount do {$R *.dfm} begin if arrsurname[k] > arrsurname[l] then ### Page 5 (NOVEMBER 2013) Downloaded from hlayiso.comINLIGTINGSTEGNOLOGIE V1 5 begin idiff := idayin - idayout ssurname := arrsurname[k];  else arrsurname[k] := arrsurname[l];  idiff := ((31 - idayout) + idayin);  arrsurname[l] := ssurname;  if idiff <=14 then begin stitle := arrtitle[k];  richedit1.lines.add('Date Out: '+stakeout);  richedit1.lines.add('Date In: '+sdate);  arrtitle[k] := arrtitle[l];  richedit1.lines.add('No Fine');  arrtitle[l] := stitle;  end end; else if (idiff >14) and (idiff <= 21) then end; end; begin richedit1.clear; richedit1.lines.add('Date Out: '+stakeout);  for k := 1 to icount do richedit1.lines.add('Date In: '+sdate);  richedit1.lines.add(arrsurname[k]  +#9+ arrtitle[k]);  richedit1.Lines.add('R '+floattostrf((idiff-14)*1.50,fffixed,6,2));  end; end else procedure TForm1.GenerateOnceoffPassword1Click(Sender: TObject); begin var richedit1.lines.add('Date Out: '+stakeout);  suser, ssurname, sname, spassword : string;  richedit1.lines.add('Date In: '+sdate);  arrpassword : array[1..150] of string;  richedit1.Lines.add('R '+floattostrf((idiff-21)*2.50,fffixed,6,2));  begin end; inc(icounter);  end; suser := inputbox('Enter name and surname','lower case ONLY','');  ssurname := copy(suser,pos(' ',suser)+1, 3);  procedure TForm1.Search1Click(Sender: TObject); sname := copy(suser, 1, pos(' ',suser)-1);  var spassword := ssurname[1] + uppercase(ssurname[2])  + ssurname[3]  + squery : string; inttostr(random(10));  bfound : boolean;  spassword := spassword + uppercase(sname[1])  + sname[2]  + inttostr(random(100))  k : integer; + '#';  begin showmessage(suser + '''s password is '+ spassword);  bfound := false;  arrpassword[icounter]  := suser + ': ' + spassword;  squery := inputbox('Enter Book Title','','');  end; for k := 1 to icount do begin procedure TForm1.Fines1Click(Sender: TObject); if arrtitle[k] = squery then var bfound := true stakeout,slate,sdate : string; end; idiff,idayout,idayin,imonthin,imonthout : integer;  if bfound = true then begin ShowMessage('Book found!')  richedit1.clear; else stakeout := inputbox('Enter date book was taken out','MM/DD','');  ShowMessage('Sorry, the book is not in the library.');  sdate := (copy(datetostr(Now),1,5));  end; idayout := strtoint(copy(stakeout,4,2));  imonthin := strtoint(copy(sdate,4,2));  end. idayin := strtoint(copy(sdate,4,2));  imonthout := strtoint(copy(stakeout,1,2));  if imonthin = imonthout then ### Page 6 Downloaded from hlayiso.com 6 INFORMATION TECHNOLOGY P1 (NOVEMBER 2013) +strtoint(sISBN[5])*1+strtoint(sISBN[6])*3+strtoint(sISBN[7])*1+strtoint(sISBN[8])*3+  +strtoint(sISBN[9])*1+strtoint(sISBN[10])*3+strtoint(sISBN[11])*1+strtoint(sISBN[12])*3; irem := itotal mod 10;  icheck := 10 - irem;  if icheck = 10 then QUESTION/VRAAG 4 – SAMPLE SOLUTION/VOORBEELDOPLOSSING icheck := 0;  if icheck = strtoint(sISBN[13]) then (16 marks/punte) richedit1.Lines.add(sISBN)  unit Question4memo_u; else begin interface richedit2.Lines.add(sISBN);  Delete(sISBN,13,1);  uses Insert(inttostr(icheck),sISBN,13);  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, richedit2.lines.add('Correct ISBN: '+sISBN);  Dialogs, Buttons, StdCtrls, ComCtrls; end; end; type TForm1 = class(TForm) end. Button1: TButton; RichEdit1: TRichEdit; RichEdit2: TRichEdit; BitBtn1: TBitBtn; Edit1: TEdit; TOTAL/TOTAAL: 150 Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); private public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var k, itotal, irem, icheck : integer; sISBN : string;  begin sISBN := edit1.text;  itotal := strtoint(sISBN[1])*1+strtoint(sISBN[2])*3+strtoint(sISBN[3])*1+strtoint(sISBN[4])*3+ ## Related documents - [IT P1 GR11 NOV2013 QP (Eng)](https://www.hlayiso.com/library/it-p1-gr11-nov2013-qp-eng/541c84c9-79a2-409a-a626-cb4433d4db80) — Information Technology · QP · 2013 · Eng - [IT PAPER 1 GR11 NOV2013 QP (Afr)](https://www.hlayiso.com/library/it-paper-1-gr11-nov2013-qp-afr/b52b8a79-6a41-4d13-80fa-cb639f81951c) — Information Technology · QP · 2013 · Afr - [INFT-P2 GR11 NOV13 MEMO (Afr)](https://www.hlayiso.com/library/inft-p2-gr11-nov13-memo-afr/39c6924d-e4a6-4dd6-a725-a88b53a4dcd8) — Information Technology · Memo · 2013 · Afr - [INFT-P2 GR11 NOV13 MEMO (Eng)](https://www.hlayiso.com/library/inft-p2-gr11-nov13-memo-eng/7ba8aeb4-7a2e-4653-bbfb-c163593d67d6) — Information Technology · Memo · 2013 · Eng - [IT P1 MEMO GR11 NOV 2020 Afrikaans D](https://www.hlayiso.com/library/it-p1-memo-gr11-nov-2020-afrikaans-d/25d21533-ac81-4ade-a4b8-c56f655e7a81) — 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 ## 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 P1 QP GR11 NOV 2022 English](https://www.hlayiso.com/library/it-p1-qp-gr11-nov-2022-english/3db564bd-1d04-48ab-aedd-fae2d9f9939f) — QP · 2022 · Eng - [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 P2 GR11 QP NOV2022 English](https://www.hlayiso.com/library/it-p2-gr11-qp-nov2022-english/1c12dccc-2a5b-4b41-a80c-5bd8b30f6151) — QP · 2022 · Eng - [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 ## 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.