شرح برنامج تعليمي

[طيباوي ابو علي1]

برنامج تعليمي

بسم الله الرحمن الرحيم

الصلاة والسلام رسول الله صلى الله عليه وسلم وعلى آله وصحبه أجمعين

----------------------------------------

الوحدة 1

----------------------------------------

unit UMath;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    GroupBox2: TGroupBox;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    Label1: TLabel;
    GroupBox3: TGroupBox;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    Label2: TLabel;
    BitBtn17: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

uses UAdd, Sous, Multi, Divi, Ece, Mayen, Carre, Racin, CarreM, CarreP,
  Rect, Tiriang, Circule, Rect1, Tiriang1, Circule1;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  Form3.ShowModal;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  Form4.ShowModal;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  Form5.ShowModal;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
 Form7.ShowModal;
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
  Form8.ShowModal;
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
  Form9.ShowModal;
end;

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
  Form10.ShowModal;
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
begin
   Form11.ShowModal;
end;

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
   Form15.ShowModal;
end;

procedure TForm1.BitBtn11Click(Sender: TObject);
begin
   Form16.ShowModal;
end;

procedure TForm1.BitBtn12Click(Sender: TObject);
begin
   Form17.ShowModal;
end;

procedure TForm1.BitBtn13Click(Sender: TObject);
begin
   Form12.ShowModal;
end;

procedure TForm1.BitBtn14Click(Sender: TObject);
begin
   Form18.ShowModal;
end;

procedure TForm1.BitBtn15Click(Sender: TObject);
begin
   Form19.ShowModal;
end;

procedure TForm1.BitBtn16Click(Sender: TObject);
begin
   Form20.ShowModal;
end;

end.

--------------------------------------------

الوحدة 2

--------------------------------------------

unit UAdd;

interface

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

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
var
   Num1, Num2: Real;
   Egal: Real;

begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 + Num2
  Egal := Num1 + Num2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÍÜÜÇÕÜÜá ÇáÌÜãÚ åÜæ ' + Edit3.Text;

  Edit2.ReadOnly := true;
  BitBtn1.Enabled := false;

end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
  Edit2.ReadOnly := false;
end;

procedure TForm2.Edit2Change(Sender: TObject);
begin
  BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة3

--------------------------------------------

unit Sous;

interface

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

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
var
   Num1, Num2: Real;
   Egal: Real;
   
begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 - Num2
  Egal := Num1 - Num2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÍÇÕá ÇáØÑÍ åÜÜæ  ' + Edit3.Text;
  BitBtn1.Enabled := false;
end;

procedure TForm3.Edit1Exit(Sender: TObject);
begin
BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة4

--------------------------------------------

unit Multi;

interface

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

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);
var
   Num1, Num2: Real;
   Egal: Real;
   
begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 × Num2
  Egal := Num1 * Num2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÍÇÕá ÇáÖÑÈ åÜÜæ  ' + Edit3.Text;
  BitBtn1.Enabled := false;
end;

procedure TForm4.Edit1Exit(Sender: TObject);
begin
BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة5

--------------------------------------------

unit Divi;

interface

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

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);
var
   Num1, Num2: Real;
   Egal: Real;
   
begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 ÷ Num2
  Egal := Num1 / Num2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÍÇÕá ÇáÞÓãÉ åÜÜæ  ' + Edit3.Text;
  BitBtn1.Enabled := false;

end;

procedure TForm5.Edit2Exit(Sender: TObject);
begin
BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة6

--------------------------------------------

unit Ece;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Math;

type
  TForm7 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);
var
   Num1, Ec: Real;
   Egal: Real;

begin
  //  Num1 = Edit1.Text
  //  Ec = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Ec := StrToFloat(Edit2.Text);
  //  Egal = Num1 ^ Ec
  Egal := Power(Ec,Num1);
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÇáäÇÊÌ åÜÜæ   ' + Edit3.Text;

  BitBtn1.Enabled := false;
end;

procedure TForm7.Edit1Exit(Sender: TObject);
begin
 BitBtn1.Enabled := false;
end;

end.

--------------------------------------------

الوحدة7

--------------------------------------------

unit Mayen;

interface

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

type
  TForm8 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);
var
   Num1, Num2: Real;
   Egal: Real;
   
begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 + Num2 / 2
  Egal := (Num1 + Num2) / 2;
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÇáäÇÊÌ åÜÜæ   ' + Edit3.Text;

 BitBtn1.Enabled := false;
end;

procedure TForm8.Edit1Exit(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة8

--------------------------------------------

unit Carre;

interface

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

type
  TForm9 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);
var
   Num1: Real;
   Egal: Real;
   
begin
  //  Num1 = Edit1.Text
  Num1 := StrToFloat(Edit1.Text);
  //  Egal = Num1 ^2
  Egal := Sqr(Num1);
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÇáäÇÊÌ åÜÜæ   ' + Edit3.Text;
 BitBtn1.Enabled := false;
end;

procedure TForm9.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة9

--------------------------------------------

unit Racin;

interface

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

type
  TForm10 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.BitBtn1Click(Sender: TObject);
var
   Num1: Real;
   Egal: Real;
   
begin
  //  Num1 = Edit1.Text
  Num1 := StrToFloat(Edit1.Text);
  Egal := Sqrt(Num1);
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÇáäÇÊÌ åÜÜæ   ' + Edit3.Text;
 BitBtn1.Enabled := false;
end;

procedure TForm10.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة10

--------------------------------------------

unit CarreM;

interface

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

type
  TForm11 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.BitBtn1Click(Sender: TObject);
var
   Num1: Real;
   Egal: Real;
   
begin
  //  Num1 = Edit1.Text
  Num1 := StrToFloat(Edit1.Text);
  //  Egal = Num1 × Num1
  Egal := Num1 * Num1;
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ãÓÇÍÉ ÇáãÑÈÚ åí    ' + Edit3.Text;
 BitBtn1.Enabled := false;
end;

procedure TForm11.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة11

--------------------------------------------

unit CarreP;

interface

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

type
  TForm12 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form12: TForm12;

implementation

{$R *.dfm}

procedure TForm12.BitBtn1Click(Sender: TObject);
var
   Num1: Real;
   Egal: Real;
begin
  //  Num1 = Edit1.Text
  Num1 := StrToFloat(Edit1.Text);
  //  Egal = Num1 × 4
  Egal := Num1 * 4;
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := ' ãÍíØ ÇáãÑÈÚ åÜÜæ  ' + Edit3.Text;
 BitBtn1.Enabled := false;

end;

procedure TForm12.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة12

--------------------------------------------

unit Rect;

interface

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

type
  TForm15 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form15: TForm15;

implementation

{$R *.dfm}

procedure TForm15.BitBtn1Click(Sender: TObject);
var
   Num1, Num2: Real;
   Egal: Real;

begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 × Num2
  Egal := Num1 * Num2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := ' ãÓÇÍÉ ÇáãÓÊØíá ' + Edit3.Text;
  BitBtn1.Enabled := false;
end;

procedure TForm15.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة13

--------------------------------------------

unit Tiriang;

interface

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

type
  TForm16 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form16: TForm16;

implementation

{$R *.dfm}

procedure TForm16.BitBtn1Click(Sender: TObject);
var
   Num1, Num2: Real;
   Egal: Real;

begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 * Num2 / 2
  Egal := (Num1 * Num2) / 2;
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := ' ãÓÇÍÉ ÇáãËáË  ' + Edit3.Text;
  BitBtn1.Enabled := false;
end;

procedure TForm16.Edit1Exit(Sender: TObject);
begin
   BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة14

--------------------------------------------

unit Circule;

interface

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

type
  TForm17 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form17: TForm17;

implementation

{$R *.dfm}

procedure TForm17.BitBtn1Click(Sender: TObject);
var
   Num1: Real;
   Egal: Real;

begin
  //  Num1 = Edit1.Text
  Num1 := StrToFloat(Edit1.Text);

  //  Egal = Num1 *
  Egal := Sqr(Num1) * 3.1415;
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := ' ãÓÇÍÉ ÇáÏÇÆÑÉ  ' + Edit3.Text;

  BitBtn1.Enabled := false;
end;

procedure TForm17.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة15

--------------------------------------------

unit Rect1;

interface

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

type
  TForm18 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form18: TForm18;

implementation

{$R *.dfm}

procedure TForm18.BitBtn1Click(Sender: TObject);
var
   Num1, Num2: Real;
   Egal: Real;
begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = (Num1 + Num2)*2
  Egal := (Num1 + Num2) * 2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := ' ãÍíØ ÇáãÓÊØíá  ' + Edit3.Text;
  BitBtn1.Enabled := false;

end;

procedure TForm18.Edit1Exit(Sender: TObject);
begin
  BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة15

--------------------------------------------

unit Tiriang1;

interface

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

type
  TForm19 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Edit4: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form19: TForm19;

implementation

{$R *.dfm}

procedure TForm19.BitBtn1Click(Sender: TObject);
var
   Num1, Num2, Num3: Real;
   Egal: Real;

begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  //  Num3 = Edit3.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  Num3 := StrToFloat(Edit3.Text);
  //  Egal = Num1 + Num2 + Num3
  Egal := Num1 + Num2 + Num3;
  //  Edit1.Text =  Egal
  Edit4.Text := FloatToStr(Egal);
  Label3.Caption := ' ãÍíØ ÇáãËáË  ' + Edit4.Text;
  BitBtn1.Enabled := false;
end;

procedure TForm19.Edit2Exit(Sender: TObject);
begin
   BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة16

--------------------------------------------

unit Circule1;

interface

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

type
  TForm20 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form20: TForm20;

implementation

{$R *.dfm}

procedure TForm20.BitBtn1Click(Sender: TObject);
var
   Num1: Real;
   Egal: Real;

begin
  //  Num1 = Edit1.Text
  Num1 := StrToFloat(Edit1.Text);

  //  Egal = Num1 × 2 ×  3.1415
  Egal := Num1 * 2 * 3.1415;
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := '' + Edit3.Text;
  BitBtn1.Enabled := false;

end;

procedure TForm20.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.