Tìm các biến trrong pt : ax ² + bx + c = 0 (a khác 0) và viết chương trình khai báo

BÀI LÀM 

Program GIAI_PHUONG_TRINH_BACII;

Uses CRT;

Var a,b,c,D,x,x1,x2: real;

Begin 

 Clrscr;  

Writeln('GIAI PHUONG TRINH BAC II: ');  

Writeln('-------------------------------------------');  

Write('Nhap he so a='); readln(a);  

Write('Nhap he so b='); readln(b); 

 Write('Nhap he so c='); readln(c); 

 If a=0 then   

 If b=0 then    

  If c=0 then   

   Writeln('Phuong trinh co vo so nghiem')    

  Else Writeln('Phuong trinh vo nghiem')    

Else

Writeln('Phuong trinh co mot nghiem: x=',-c/b: 4: 2)

  Else 

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

If D=0 then Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a): 4: 2)    

  Else  

      If D<0 then Writeln('Phuong trinh vo nghiem')     

   Else         

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

  Writeln('Phuong trinh co 2 nghiem la x1= ',x1:4:2 ,' va x2= ',x2:4:2);           

 End;  

   End;

Readln

End.

- Phương trình : ax² + bx + c = 0

- a,  b,  c lưu hệ số của phương trình

- d là giá trị delta

- x, x1, x2 là các nghiệm phương trình

- Các biến sử dụng là : a,  b,  c,  d,  x,  x1,  x2

- Khai báo : var a,  b,  c,  d,  x,  x1,  x2 : real;