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

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

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

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

مُساهمة  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


عدل سابقا من قبل mah11 في 24/5/2015, 12:37 pm عدل 1 مرات (السبب : تصحيح بعض المعلومات)

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

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

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

مُساهمة  sdk11 في 13/6/2015, 12:21 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 109
تاريخ التسجيل : 19/09/2014

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

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

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


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

alla
مبرمج مجتهد

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

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

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


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