الرئيسيةالبوابةبحـثالتسجيلدخول

شاطر | 
 

 برنامج صغير بـ باسكال يحل جميع المعادلات من الدرجة الثانية

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
belkarfa abdallah
ADMIN
ADMIN
avatar

البــلـد : الجزائر
المزاج : ممتاز
الاوسمة 123

مُساهمةموضوع: برنامج صغير بـ باسكال يحل جميع المعادلات من الدرجة الثانية   الخميس أبريل 30, 2009 11:43 am

السلام عليكم ورحمة الله وبركاته
هذا برنامج صغير بـ باسكال يحل جميع المعادلات من الدرجة الثانية
Program abdallah;
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.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://87.106.143.252/servlet/redirect.srv/spz/sioblwysq/snop/p1
belkarfa abdallah
ADMIN
ADMIN
avatar

البــلـد : الجزائر
المزاج : ممتاز
الاوسمة 123

مُساهمةموضوع: رد: برنامج صغير بـ باسكال يحل جميع المعادلات من الدرجة الثانية   الخميس مايو 14, 2009 10:27 am

الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://87.106.143.252/servlet/redirect.srv/spz/sioblwysq/snop/p1
أنيسة
مشـــــــــــــــــرف
مشـــــــــــــــــرف


البــلـد : الجزائر
المزاج : مستممتع
الاوسمة 111111111

مُساهمةموضوع: رد: برنامج صغير بـ باسكال يحل جميع المعادلات من الدرجة الثانية   الثلاثاء أبريل 13, 2010 10:33 am

سلام عليكم
والله مشكوووووور
الرجوع الى أعلى الصفحة اذهب الى الأسفل
كمال85
عــضــو
عــضــو


البــلـد : الجزائر
المزاج : مشفرة
الاوسمة 44141414

مُساهمةموضوع: رد: برنامج صغير بـ باسكال يحل جميع المعادلات من الدرجة الثانية   الجمعة ديسمبر 03, 2010 12:31 am

merci
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
برنامج صغير بـ باسكال يحل جميع المعادلات من الدرجة الثانية
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
 :: منتيات الهندسة والعلوم FORUMS SCIENCES ET TECHNIQUES :: منتدى علوم وتقنيات وعلوم المادة-
انتقل الى: