دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  alla في 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;

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

alla
مبرمج مجتهد

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

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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