برنامج لحساب مربع عدد ما

اذهب الى الأسفل

برنامج لحساب مربع عدد ما

مُساهمة  ali1 في 14/1/2017, 5:54 pm


برنامج لحساب مربع عدد ما

تستعمل الدالة sqr لاجاد لحساب مربع عدد


الكود:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 Edit2.Text := FloatToStr(sqr(StrToFloat(Edit1.Text)));
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
 if Edit1.Text <> '' then BitBtn1.Enabled := true
  else BitBtn1.Enabled := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.bidimode:=bdRightToLeft;
  Form1.font.charset:=ARABIC_CHARSET;
  Form1.font.name:='Arial';
  Form1.caption:='    حساب مربع عدد ما';
  Label1.bidimode:=bdRightToLeft;
  Label1.font.charset:=ARABIC_CHARSET;
  Label1.font.name:='Arial';
  Label1.caption:='أدخل عدد ';
  Label1.cursor:=crDefault;
  Label2.bidimode:=bdRightToLeft;
  Label2.font.charset:=ARABIC_CHARSET;
  Label2.font.name:='Arial';
  Label2.caption:='النتيجة';
  Label2.cursor:=crDefault;
  Edit1.bidimode:=bdRightToLeft;
  Edit1.font.charset:=ARABIC_CHARSET;
  Edit1.font.name:='Arial';
  Edit1.cursor:=crDefault;
  BitBtn1.bidimode:=bdRightToLeft;
  BitBtn1.font.charset:=ARABIC_CHARSET;
  BitBtn1.font.name:='Arial';
  BitBtn1.caption:='حساب';
  BitBtn1.cursor:=crHandPoint;
  Edit2.bidimode:=bdRightToLeft;
  Edit2.font.charset:=ARABIC_CHARSET;
  Edit2.font.name:='Arial';
  Edit2.cursor:=crDefault;
  BitBtn2.bidimode:=bdRightToLeft;
  BitBtn2.font.charset:=ARABIC_CHARSET;
  BitBtn2.font.name:='Arial';
  BitBtn2.caption:='اغلاق';
  BitBtn2.cursor:=crHandPoint;
end;

end.


procedure TForm1.BitBtn2Click(Sender: TObject);
var
 x, y: real;

begin
 x := StrToFloat(Edit1.Text);
 y := sqr(x);
 Edit2.Text := FloatToStr(y);
end;

_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 857
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى