pascal Fermé

Question

Bonjour, les ga je ne sais paas qu'est ce qui colle pas avec mon programme je veux pleurer. program trinome; const EPS = 1E-10; var a, b, c : real; delta : real; x1, x2 : real; function sign(D : real): integer; begin if D > 0.0 then sign := +1 else if D < 0.0 then sign := -1 else sign := 0 end; {sign} begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); delta := b*b - 4*a*c; if delta >= 0 then begin x1 := (-b - sign(b) * sqr(delta))/(2.0*a); x2 := c/(a*x1); if delta < EPS then writeln('la racine double est : x = ', x1:8:4) else writeln('les racines réelles sont x1 = ', x1:8:4, ' et x2 = ', x2:8:4) end else writeln('pas de racines réelles.') Readln; end. Configuration: Windows 8 / Chrome 24.0.1312.57

iceberglca · Answer

excuzzé c'est plutot celui ci 
PROGRAM discriminant;
VAR
   a,b,c, sol, sol1, sol2: INTEGER;
   sqrt:REAL;
   delta: REAL;
   v: REAL;

Begin

     Writeln('veuillez saisir le nombre a');
     Readln(a);
     Writeln('veuillez saisir le nombre b');
     Readln(b);
     Writeln('veuillez saisir le nombre c');
     Readln(c);
     (*calcul du discriminant*)
     delta:= b*b-4*(a*c);
     v:= sqrt(discr);
     (*affichage du r'sultat*)
     Writeln(' le discriminant de ',a,'x^2+',b,'x^1+',c,'est:',delta);
     If delta<0 then
        Begin

             Writeln('comme celui ci est n'gatif donc on ne peut pas le d'terminer');
             Readln;
        End
     Else
        (*affichons les solutions*)
     if delta=0 then
        Begin
                 Writeln('comme celui ci est nulle donc la solution est:X=',sol1);
                 sol1:= -b div (2*a);
                 readln;
        end
     Else
          If delta>0 then
             Begin
                  Writeln('les solutions sont:X1=', sol2);
                  Sol2:= -b -v / 2* a;


     End
     end.

Pascal

1 réponse

Discussions similaires