Bài tập 3.12: Viết chương trình giải phương trình bậc hai: ax 2 + bx + c = 0, a0.
Gợi ý:
– Tính Delta=b*b-4*a*c.
– Biện luận:
Delta<0: Phương trình vô nghiệm.
Delta=0: Phương trình có nghiệm kép: x = -b/(2*a).
Delta>0: Phương trình có 2 nghiệm phân biệt: x 1,2 = (-bSQRT(Delta))/(2*a).
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;ReadlnEnd.