[تمرين] رسم معادلة من الدرجة الثانية

[B.M.AbdelAziZ]

السلام عليكم ورحمة الله وبركاته

تمرين بسيط ومختلف للتغيير
حل ورسم معادلة من الدرجة الثانية http://i46.tinypic.com/30trw2s.png

المستخدم يدخل a،b وc
يقوم البرنامج بحل المعادلة ورسمها ان امكن

مدة التمرين اسبوعين

بالتوفيق

[King SofT]

وعليكم السلام اخي
حاولت في ذالك وتوصلت الى هذا الكود:
حيث ان المستعمل يستطيع تعيين a.b فقط
procedure TForm1.Button1Click(Sender: TObject);
var
a,b : Integer ;
x,y : Real ;
dx : Real ;
Begin
x :=-100 ;
dx :=0.1 ;
y := 0 ;
a := Round (x*15 +Width div 2);
b := Round (-y*15+Height div 2);
form1.Image1.Canvas.MoveTo(a,b);
Repeat
form1.Image1.Canvas.LineTo(a,b) ;
x := x + dx ;
y :=strtoint(Edit1.Text)*SQR(x)+strtoint(Edit2.Text) ;
a := Round (x*50+Width div 2);
b := Round (-y*50+Height div 2);
until x>150;

end;

[hanipino]

ألسلأم عليكم

قمت بمحاولة لاكن دون الاخذ بعين الاعتبار (a <> 0) و ادا اخد قيمة 0 سيتم حل المعادلة على انها من الدرجة الاولى و نفس الشىء بالنسبة ل b, c

شكرأ .

[bo0oda]

حل المعادلة بالقانون العام

[B.M.AbdelAziZ]

الاخ سعدون المعادلة التي كتبتها غير صحيحة، اعد النظر
الاخ هاني حل جيد
bo0oda الحل كما هو ناقص وغير صحيح، a b c ليست من نوع integer والاهم بالتمرين رسم المعادلة

[issamdnn]

السلام عليكم ورحمة الله وبركاته

البرنامج التالي كنت قد قمت ببرمجته منذ زمن طويل أتمنى أن يحقق المطلوب وهو لا يقوم برسم المعادلة من الدرجة الثانية فقط بل مجموعة من التوابع ....

أترككم مع المرفقات أخوكم issamdnn

[B.M.AbdelAziZ]

اهلا اخي عصام
بالنسبة لحلك ربما لم انتبه، اين يتم رسم المعادلة من الدرجة الثانية ؟

[issamdnn]

السلام عليكم ورحمة الله وبركاته

في القائمة رسم -> تابع -> صحيح: يمكن تحديد الدرجات عندها وكذلك أمثال الدرجات ...

[B.M.AbdelAziZ]

وعليكم السلام ورحمة الله وبركاته
أخ عصام حلك ناقص اذ لا يمن ادخال عدد سالب او به فاصلة

[B.M.AbdelAziZ]

طبعا مدة التمرين انتهت وحان وقت الحل
تجدون الحل بالعدد 3 من مجلة دلفي للعرب (تصدر هذا المساء) ان شاء الله