Phương trình bậc 2 ax^2+bx+c=0(a khác 0)

0 bình luận về “Phương trình bậc 2 ax^2+bx+c=0(a khác 0)”

1. program tin_hoc;

   uses  crt;

   var a,b,c,  : real;

         x1,x2: longint;

   begin

      readln( a,b,c);

   x1 :=(-b+sqrt( b*b-4*a*c))/(2*a);

   x2 := (-b-sqrt( b*b-4*a*c))/(2*a);

   writeln( ‘nghiem x1 la’,x1);

   write (‘ nghiem x2 la’, x2);

    Readln

   End.      

   Bình luận