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

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

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

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

عدد المساهمات : 108
تاريخ التسجيل : 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
مبرمج مجتهد

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

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

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


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