Information Technology Grade 11 P1 2013 Memo

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.

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.

(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

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

(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

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+