برامج وتقنيات: برنامج حل معادلة من الدرجة الثانية باستعمال الدلفي

البرنامج يقوم بحل معادلة من الدرجة الثانية ذات متغير وحيد ،
طريقة عمل البرنامج :

أكتب معاملات كل حد من حدود ثلاثي الحدود ذو المتغير X، في الخانات المناسبة
بمجرد كتابة قيمة المعامل والانتقال إلى الخانة الموالية تظهر النتيجة في مربع النص.
في مربع النص تظهر المعادلة مع معاملات الحدود.
يمكن نسخ محتوى مربع النص أو تعديله ثم نسخه ولصقه في مكان يقبل اللصق.
كرر النقاط السابقة حسب الحاجة.
أنقر على الزر إنهاء لغلق البرنامج.

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

كود سورس البرنامج مرفق للموضوع ويوضح مثال الاستعمال الأعداد المعقدة أو المركبة عن استعمال الوحدة

System.VarCmplx

في دلفي ، وهي وحدة تقوم بمعالجة الأعداد المركبة واستعمالاتها.
حل المعادلة يعطينا قيمتين ، قد تكون هتين القيمتين متساوتين أو عددين حقيقين أو مركبين:
تابع الفيديو :

وهذا نص الإجراء الذي يقوم بإعطاء حلول المعادلة من الدرجة الثانية :


procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := '';
  TryStrToFloat(Edit1.Text, A1); //A1
  TryStrToFloat(Edit2.Text, A2); //A2
  TryStrToFloat(Edit3.Text, A3); //A3
  Memo1.Lines.Add(Edit1.Text + 'X²+' + Edit2.Text + 'X+' + Edit3.Text + '=0');

  Resoudre2ord(A1, A2, A3, X1, X2); //A1*X²+A2*X+A3=0
  Memo1.Lines.Add('X1=' + VarToStr(X1));
  Memo1.Lines.Add('X2=' + VarToStr(X2))
end;