دخول

sabre · 07-08-2015, 07:23 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; 
Delta,x1,x2,x : real;
begin
  a := StrToFloat(Edit1.Text);
  b := StrToFloat(Edit2.Text);
  c := StrToFloat(Edit3.Text); 
  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; 
   if Delta < 0 then
   begin
    Edit4.Text := FloatToStr(Delta);
    Label8.Caption := 'ليس لها حل في مجموعة الاعداد الحقيقية R';
   end
   else
   begin
    x1 := (-b-sqrt(Delta))/(2*a); 
    x2 := (-b+sqrt(Delta))/(2*a);
    Edit4.Text := FloatToStr(Delta); 
    Edit5.Text := FloatToStr(x1); 
    Edit6.Text := FloatToStr(x2); 
  end; 
 end;
end;

كود :
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;

.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة