Gr11: Formating using tab settings in Rich Edit

{$R *.dfm}

procedure TForm1.btnSet_ParagraphClick(Sender: TObject);
begin
  redtOutput.Paragraph.TabCount:=4;
  redtOutput.Paragraph.Tab[0]:=0;
  redtOutput.Paragraph.Tab[1]:=35;
  redtOutput.Paragraph.Tab[2]:=90;
  redtOutput.Paragraph.Tab[3]:=120;
  redtOutput.Lines.Add('Name      Surname          Test1    Test2');
  redtOutput.Lines.Add('===============================');
end;

procedure TForm1.btnLoad_InfoClick(Sender: TObject);
begin
    redtOutput.Lines.Add(edtName.Text+#9 + edtSurname.Text+#9 + edtTest1.Text +
    #9 + edtTest2.Text);
end;

Gr10 Homework for Wednesday 30/5

1. Do Activity 2 on p64.
2. Do Activity 3 Questions 1,4 and 5.

Gr10 Homewwork Practical for 24 May

Do Exercises 6,7 and 8 on page62.
Also read section on if-else

Gr10 Practical Exam Scope

Note this exam is also on Friday 8 June 2012 from 08h00 to 10h15.
Topics to study includes .
Module 1.2:  pp25 -  42. Introduction to Graphical Programming.
Module 1.3:  pp43 - 58.  Input Processing and Output.
Module 1.4:  pp59 - 65  Decision Making.
Check all the exercises that were done during terms1 -2.

Gr10 June Exam Scope (Theory)

The work to study for the theory paper on 8th June 2012 8h00 - 10h30

1.Module 1.1 pp8 - 24.
2. Overview of Scratch Program pp26-27.
3. Repetition Actions pp32 - top 34.
4. Variables pp44 - 45.
5. Decision Making pp59 - 61
6. Section2 pp105 - 127.
Also pay attention to creating algorithms and pseudo code
when given a problem.

The following code will test to see if a number is divisible by three:

{$R *.dfm}

var

  iNumber: Integer;

  bTest:Boolean;

function DivideByThree(iNumber:Integer):Boolean ;

var

  sNumber:string;

  i,iSum: Byte;

begin

  DivideByThree:=False;

  iSum:=0;

  sNumber    := IntToStr(iNumber);

  for i := 1 to Length(sNumber) do

     iSum := iSum + StrToInt(sNumber[i]);

   if (iSum mod 3 = 0) then

      DivideByThree := True;

end;  // end DivideByThree

procedure TForm1.btnTestClick(Sender: TObject);

begin

   iNumber := StrToInt(edtNumber.Text);

   if DivideByThree(iNumber) then

       ShowMessage('Divisible Byte three')

   else

       ShowMessage('Not Divisible Byte three')

end;

end.