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

[محمد عبد العزيز]

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

تمرين بسيط ومختلف للتغيير
حل ورسم معادلة من الدرجة الثانية

المستخدم يدخل 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]

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

[محمد عبد العزيز]

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

[issamdnn]

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

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

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

[محمد عبد العزيز]

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

[issamdnn]

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

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

[محمد عبد العزيز]

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

[محمد عبد العزيز]

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