منتدى الطلبة الجزائريين

منتدى يجمع طلبة الجزائر و يستقبل إبداعاتهم.. أيوب قادم
 
الرئيسيةالبوابةاليوميةس .و .جبحـثالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

 un programme en pascal

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

المساهمات : 18
تاريخ التسجيل : 17/05/2009
العمر : 30
الموقع : www.etudiant.ibda3.org

مُساهمةموضوع: un programme en pascal   الأربعاء مارس 31, 2010 1:33 pm

ça c est un program qui permet de résoudre une équation du second degré
ax2+bx+c=0
program equation;
uses wincrt;
var x1,x2,a,b,c,delta:real;
begin
writeln('résolution d''une equation du second degré ');
writeln('saisir les coefficients d''une equation de second degré');
readln(a,b,c);
if a=0 then
if b=0 then
if c=0 then
writeln('il existe une infinité de solutions')
else writeln('il n''y a pas de solutions')
else
begin
x1:=-c/b;
writeln('il existe une solution:',x1);
end
else
delta:= b*b-4*a*c;
if delta>0 then
begin
x1:=(-b-sqrt(delta))/(2*a);
x2:=(-b+sqrt(delta))/(2*a);
writeln('l''equation admet 2 racines:x1=',x1,'et x2=',x2);
end
else
begin
if delta=0 then
begin
x1:=-b/(2*a);
writeln('l''equation admet une racine double égale à',x1);
end
else writeln('cette équation n''admet pas de solution');
end;
end.


الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://etudiant.ibda3.org
 
un programme en pascal
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» الضغط الجوي
» Cours Pharmacologie Spéciale Univ Blida 2008/2009
» Programme 1ere année Mathématique et Informatique

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى الطلبة الجزائريين :: الشعب الجامعية :: منتدى الإعلام الألي-
انتقل الى: