برنامج لحساب الجذر التربيعي لعدد ما
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
برنامج لحساب الجذر التربيعي لعدد ما
برنامج لحساب الجذر التربيعي لعدد ما
لحساب الجذر التربيعي لعدد نستعل الدالة 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.
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
مواضيع مماثلة
» النسخة الجديدة من برنامج - برنامج تسيير محل تجاري - الموضوع من الاعضاء فقط
» برنامج لحساب مربع عدد ما
» برنامج برنامج حساب العاملي ب delphi
» برنامج تعليمي
» برنامج تعليمي 2
» برنامج لحساب مربع عدد ما
» برنامج برنامج حساب العاملي ب delphi
» برنامج تعليمي
» برنامج تعليمي 2
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى