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

من طرف alla13 السبت أغسطس 01, 2015 12:32 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;

.