حسام معادلة من الدرجة الثانية

**mah11** 4/8/2013, 8:41 pm

حسام معادلة من الدرجة الثانية

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين

ضع على الفورم 6
TLabel
ضع على الفورم 3
TButton
ضع على الفورم 6
TEdit

الكود:: procedure TForm1.Button1Click(Sender: TObject); // delph.forumalgerie.net var a,b,c : real; // delph.forumalgerie.net Delta,x1,x2 : real; // delph.forumalgerie.net begin a := StrToCurr(Edit1.Text); // delph.forumalgerie.net b := StrToCurr(Edit2.Text); // delph.forumalgerie.net c := StrToCurr(Edit3.Text); // delph.forumalgerie.net Delta := b*b - 4*a*c; // delph.forumalgerie.net if Delta < 0 then Edit4.Text := ' ليس لها حل ' else begin x1 := (-b-sqrt(Delta))/(2*a); // delph.forumalgerie.net x2 := (-b+sqrt(Delta))/(2*a); // delph.forumalgerie.net Edit4.Text := CurrToStr(Delta); // delph.forumalgerie.net Edit5.Text := CurrToStr(x1); // delph.forumalgerie.net Edit6.Text := CurrToStr(x2); // delph.forumalgerie.net end; // delph.forumalgerie.net end; // delph.forumalgerie.net

منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net

sdk11 13/6/2015, 12:21 am

بارك الله فيك

ali 14/6/2015, 12:18 pm

الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

حسام معادلة من الدرجة الثانية

===========================
=
= a*x^2 + b*x + c = 0
=
===========================
1

a = 0
b = 1
c = 1

Delta = b*b - 4*a*c;

Delta = 1*1 - 4*0*1
Delta = 1*1 - 0
Delta = 1 - 0
Delta = 1

Delta > 0

x1 := (-b-sqrt(Delta))/(2*a);

x1 = (-1-sqrt(1))/(2*0)
x1 = (-1-sqrt(1))/0
x1 = (-1-1)/0
x1 = -2/0

Div. par zéro impossible
القسمة على صفر مستحيل

-----------------------------
a*x^2 + b*x + c = 0

0*x^2 + 1*x + 1 = 0
0 + 1*x + 1 = 0
1*x + 1 = 0
1*x = -1
x = -1/-1
x = 1

=============================
2

a = 1
b = 0
c = 1

Delta = b*b - 4*a*c;

Delta = 0*0 - 4*1*1
Delta = 0*0 - 4
Delta = 0 - 4
Delta = -4

Delta < 0

ليس لها حل في مجموعة الاعداد الحقيقية R

=============================
3

a = 1
b = 1
c = 0

Delta = b*b - 4*a*c;

Delta = 1*1 - 4*1*0
Delta = 1*1 - 0
Delta = 1 - 0
Delta = 1

Delta > 0

x1 := (-b-sqrt(Delta))/(2*a);

x1 = (-1-sqrt(1))/(2*1)
x1 = (-1-sqrt(1))/2
x1 = (-1-1)/2
x1 = -2/2
x1 = -1

=============================

الكود:: procedure TForm1.Button1Click(Sender: TObject); var a,b,c : real; // djelfa Delta,x1,x2,x : real; // djelfa begin a := StrToFloat(Edit1.Text); // djelfa b := StrToFloat(Edit2.Text); // djelfa c := StrToFloat(Edit3.Text); // djelfa if a = 0 then begin if b=0 then ShowMessage('ليس لها حل') else begin x := -c/b; ShowMessage('الحل هـــــو ' +FloatToStr(x)); Label8.Caption := ''; end; end else begin Delta := b*b - 4*a*c; // djelfa if Delta < 0 then begin Edit4.Text := FloatToStr(Delta); // djelfa Label8.Caption := 'ليس لها حل في مجموعة الاعداد الحقيقية R'; end else begin x1 := (-b-sqrt(Delta))/(2*a); // djelfa x2 := (-b+sqrt(Delta))/(2*a); // djelfa Edit4.Text := FloatToStr(Delta); // djelfa Edit5.Text := FloatToStr(x1); // djelfa Edit6.Text := FloatToStr(x2); // djelfa end; // djelfa end; end; // djelfa

الكود:: procedure TForm1.BitBtn1Click(Sender: TObject); begin Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; Edit4.Text := ''; Edit5.Text := ''; Edit6.Text := ''; Label8.Caption := ''; end;

الكود:: procedure TForm1.Edit1Change(Sender: TObject); begin if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then Button1.Enabled := true else Button1.Enabled := false; end;

الكود:: procedure TForm1.Edit2Change(Sender: TObject); begin Edit1Change(Sender); end;

الكود:: procedure TForm1.Edit3Change(Sender: TObject); begin Edit1Change(Sender); end;

حسام معادلة من الدرجة الثانية

حسام معادلة من الدرجة الثانية

رد: حسام معادلة من الدرجة الثانية

معادلة من الدرجة الثانية