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

برنامج لحساب الجذر التربيعي لعدد ما

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

برنامج لحساب الجذر التربيعي لعدد ما

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


برنامج لحساب الجذر التربيعي لعدد ما

لحساب الجذر التربيعي لعدد نستعل الدالة sqrt
لأنها هي التي تستطيع اجاده


الكود:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

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

procedure TForm1.Button2Click(Sender: TObject);
begin
 Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.bidimode:=bdLeftToRight;
  form1.font.charset:=ARABIC_CHARSET;
  form1.font.name:='arial black';
  form1.font.size:=9;
  form1.font.style:=[fsbold];
  form1.position:=poScreenCenter;
  form1.caption:='';
  form1.left:=324;
  form1.top:=246;
  form1.height:=276;
  form1.width:=375;
  form1.cursor:=crDefault;
  Label1.Left:=289;
  Label1.top:=40;
  Label1.height:=18;
  Label1.width:=46;
  Label1.cursor:=crDefault;
  Label1.bidimode:=bdLeftToRight;
  Label1.font.charset:=ARABIC_CHARSET;
  Label1.font.name:='arial black';
  Label1.font.style:=[fsbold];
  Label1.caption:='أدخل عدد';
  Label2.Left:=277;
  Label2.top:=120;
  Label2.height:=18;
  Label2.width:=34;
  Label2.cursor:=crDefault;
  Label2.bidimode:=bdLeftToRight;
  Label2.font.charset:=ARABIC_CHARSET;
  Label2.font.name:='arial black';
  Label2.font.style:=[fsbold];
  Label2.caption:='النتيجة';
  Edit1.Left:=48;
  Edit1.top:=32;
  Edit1.height:=26;
  Edit1.width:=225;
  Edit1.cursor:=crDefault;
  Edit1.bidimode:=bdLeftToRight;
  Edit1.font.charset:=ARABIC_CHARSET;
  Edit1.font.name:='arial black';
  Edit1.font.style:=[fsbold];
  Edit1.text:='25';
  Edit1.taborder:=0;
  Button1.Left:=144;
  Button1.top:=72;
  Button1.height:=25;
  Button1.width:=75;
  Button1.cursor:=crHandPoint;
  Button1.bidimode:=bdLeftToRight;
  Button1.font.charset:=ARABIC_CHARSET;
  Button1.font.name:='arial black';
  Button1.font.style:=[fsbold];
  Button1.caption:='حساب';
  Button1.taborder:=1;
  Edit2.Left:=120;
  Edit2.top:=112;
  Edit2.height:=26;
  Edit2.width:=145;
  Edit2.cursor:=crDefault;
  Edit2.bidimode:=bdLeftToRight;
  Edit2.font.charset:=ARABIC_CHARSET;
  Edit2.font.name:='arial black';
  Edit2.font.style:=[fsbold];
  Edit2.text:='';
  Edit2.taborder:=2;
  Button2.Left:=48;
  Button2.top:=192;
  Button2.height:=25;
  Button2.width:=153;
  Button2.cursor:=crHandPoint;
  Button2.bidimode:=bdLeftToRight;
  Button2.font.charset:=ARABIC_CHARSET;
  Button2.font.name:='arial black';
  Button2.font.style:=[fsbold];
  Button2.caption:='خروج';
  Button2.taborder:=3;
end;

end.

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

alla
مبرمج مجتهد

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

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

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


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