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

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

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

مُساهمة  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
مبرمج مجتهد

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

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

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


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