Viết chương trình tìm nghiệm của phương trình bậc 2: ax² + bx + c=0 với a≠0

0 bình luận về “Viết chương trình tìm nghiệm của phương trình bậc 2: ax² + bx + c=0 với a≠0”

1. program giaiptbac2;
   uses crt;
   var a, b, c, d, x, x1, x2: real;
   begin

   clrscr;
   write(‘Nhap 3 so a, b, c’); readln(a,b,c);

     if a = 0 then write(‘Phuong trinh khong thoa man dieu kien’)
        else

           begin
              d:=b*b-4*a*c;
                 if d < 0 then write (‘Phuong trinh vo nghiem’);

                 if d = 0 then

                     begin 

                        x:=(-b)/(2*a);
                         write(‘Phuong trinh co nghiem kep x1=x2=’,x:10:2);
                     end;

                 if d > 0 then
                      begin 
                         x1:=(-b+sqrt(d))/(2*a);
                         x2:=(-b-sqrt(d))/(2*a);
                         write(‘Phuong trinh co 2 nghiem’);
                         write(‘x1=’,x1:10:2); 
                         write(‘x2=’,x2:10:2); 
                       end;
             end;
   Readln
   End.

   Trả lời

2. Program  ptb2;

   uses  crt;

   var  a,b,c,D,x1,x2:real;

   begin

             Clrscr;

             Write(‘a,b,c:’); readln(a,b,c);

            D:=b*b-4*a*c

            If a=0 then write(‘pt tro thanh pt bac 1);

            If b=0 then

                If c=0 then write(‘pt vo so nghiem’);

                Else write (‘pt vo nghiem’)

                Else write(‘pt co nghiem=‘,-c/b)

               Else

                    Begin;

                       If D<0 then write(‘pt vo nghiem’)

                       Else

                         Begin;

                           x1=(-b-sqrt(D))/(2*a);

                          x2=(-b+sqrt(D))/(2*a);

                                  Writeln(‘x1=‘,x1:6:3;’x2=‘,x2:6:3);

                     End;

           Readln;

   end.     

   Trả lời