Saladine
عدد المساهمات : 252 السٌّمعَة : 44 تاريخ التسجيل : 14/03/2009 العمر : 34
| موضوع: مشروع عمل برنامج حل معادلات من الدرجة الثانية 1/5/2009, 18:02 | |
| السلام عليكم ورحمة الله وبركاته قمت بفترة بعمل برنامج يحل معادلات من الدرجة الثانية بلغة باسكال وطبقته وعمل بشكل جيد لكن علي عمله بدلفي كي يستعمله الجميع مثل اي برنامج تطبيقي عى العموم هذا هو البرنامج كتبيا بـ الباسكال قريبا سيتم اكمال العمل ان شاء الله وسوف اضعه باسم جمعية السعادة كهدية -------- Program Saladine; Var a,b,c,d,x,y:real; Begin Read(a,b,c); d:=SQR(b)-4*a*c; If d>0 Then Begin x:=-b-SQRT(d)/2*a; y:=-b+SQRT(d)/2*a; Writeln('x=',x); writeln('y=',y); end else if d=0 Then Begin x:=-b/2*a; y:=x Write('x=y=',x); end else Write('there is not a solution in Number real'); End. --------
لا تنسوني ووالدي من صالح دعائكم | |
|
بسمة أمل
عدد المساهمات : 357 السٌّمعَة : 30 تاريخ التسجيل : 07/03/2009 العمر : 34 الموقع : شبكة فلسطين للحوار
| موضوع: رد: مشروع عمل برنامج حل معادلات من الدرجة الثانية 2/5/2009, 09:25 | |
| موفق اخي صلاح على هذا المشروع
وان شاء الله يعم بالفائدة على الجميع
| |
|
Saladine
عدد المساهمات : 252 السٌّمعَة : 44 تاريخ التسجيل : 14/03/2009 العمر : 34
| موضوع: رد: مشروع عمل برنامج حل معادلات من الدرجة الثانية 2/5/2009, 15:15 | |
| اللهم امين شكرا على المرور
| |
|
*تسنيم عضو مميز
عدد المساهمات : 2136 السٌّمعَة : 592 تاريخ التسجيل : 21/02/2009
| |