السلام عليكم ورحمة الله وبركاته
تمرين بسيط ومختلف للتغيير
حل ورسم معادلة من الدرجة الثانية ![[صورة: 30trw2s.png]](http://i46.tinypic.com/30trw2s.png)
المستخدم يدخل a،b وc
يقوم البرنامج بحل المعادلة ورسمها ان امكن
مدة التمرين اسبوعين
بالتوفيق
وعليكم السلام اخي
حاولت في ذالك وتوصلت الى هذا الكود:
حيث ان المستعمل يستطيع تعيين 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;
ألسلأم عليكم
قمت بمحاولة لاكن دون الاخذ بعين الاعتبار (a <> 0) و ادا اخد قيمة 0 سيتم حل المعادلة على انها من الدرجة الاولى و نفس الشىء بالنسبة ل b, c
شكرأ .
حل المعادلة بالقانون العام
الاخ سعدون المعادلة التي كتبتها غير صحيحة، اعد النظر
الاخ هاني حل جيد
bo0oda الحل كما هو ناقص وغير صحيح، a b c ليست من نوع integer والاهم بالتمرين رسم المعادلة
السلام عليكم ورحمة الله وبركاته
البرنامج التالي كنت قد قمت ببرمجته منذ زمن طويل أتمنى أن يحقق المطلوب وهو لا يقوم برسم المعادلة من الدرجة الثانية فقط بل مجموعة من التوابع ....
أترككم مع المرفقات أخوكم issamdnn
اهلا اخي عصام
بالنسبة لحلك ربما لم انتبه، اين يتم رسم المعادلة من الدرجة الثانية ؟
السلام عليكم ورحمة الله وبركاته
في القائمة رسم -> تابع -> صحيح: يمكن تحديد الدرجات عندها وكذلك أمثال الدرجات ...
وعليكم السلام ورحمة الله وبركاته
أخ عصام حلك ناقص اذ لا يمن ادخال عدد سالب او به فاصلة
طبعا مدة التمرين انتهت وحان وقت الحل
تجدون الحل بالعدد 3 من مجلة دلفي للعرب (تصدر هذا المساء) ان شاء الله