exercice pascale

الموضوع في 'أرشيف المنتدى التعليمي' بواسطة belgassem2007, بتاريخ ‏8 نوفمبر 2008.

  1. belgassem2007

    belgassem2007 عضو مميز

    إنضم إلينا في:
    ‏19 أكتوبر 2007
    المشاركات:
    918
    الإعجابات المتلقاة:
    56
      08-11-2008 16:41
    ecrire un programe qui permet de resoudre l'equation : ax²+bx+c=0 aidez moi et donner une solution ecrite en pascale​
     
  2. anas sellami

    anas sellami عضو نشيط

    إنضم إلينا في:
    ‏4 فيفري 2007
    المشاركات:
    299
    الإعجابات المتلقاة:
    132
      08-11-2008 16:58
    :besmellah2:

    tu dois chercher et donner une solution et si c'est faux on te
    donne l'aide et la solution correcte.

    mais si tu veut la solution prête ça ne revient à rien....

    commence à diviser ton programme en modules...ça sera plus simple... puis cherche à trouver les variables qu'on va utiliser...
     
    1 person likes this.
  3. belgassem2007

    belgassem2007 عضو مميز

    إنضم إلينا في:
    ‏19 أكتوبر 2007
    المشاركات:
    918
    الإعجابات المتلقاة:
    56
      08-11-2008 18:03
    program calcul;
    uses wincrt ;
    var a,b,c,x,y,n,m:real;
    begin
    write('a='); readln(a);
    write('b='); readln(b);
    write('c='); readln(c);
    y:=((b*b)-(4*a*c));
    if a<>0 then
    begin
    n:=((-b)-(sqrt(y)))/(2*a);
    m:=((-b)+(sqrt(y)))/(2*a);
    end
    else if b<>0 then
    n:=-c/b
    else if c=0 then
    write('tout x est sol')
    else writeln('pas de sol');
    writeln('n=',n:4:1,' m=',m:4:1);
    end.
     
  4. belgassem2007

    belgassem2007 عضو مميز

    إنضم إلينا في:
    ‏19 أكتوبر 2007
    المشاركات:
    918
    الإعجابات المتلقاة:
    56
      08-11-2008 18:04
    dis moi si c correcte ou non
     
  5. InfoDuNet

    InfoDuNet عضو مميز

    إنضم إلينا في:
    ‏4 فيفري 2007
    المشاركات:
    648
    الإعجابات المتلقاة:
    279
      27-11-2008 14:34

    Si racine de delta >0
    alors x'=-racine de delta -b/2a ou x"=racine de delta -b/2a
    sinon
    Si racine de delta=0
    alors x=-b/2a
    sinon impossible​
     

مشاركة هذه الصفحة

جاري تحميل الصفحة...