Bài tập 2.8: Viết chương trình giải phương trình `ax^2 + bx + c = 0` Với các hệ số a,b,c được nhập từ bàn phím. $*$ Hướng dẫn: - Nhập các số các hệ số vào các biến a,b,c. - Tính delta = `b^2-4ac.` - Nếu delta > 0 thì phương trình có hai nghiệm `x_1` = (-b + sqrt(delta))/(2a) `x_2` = (-b - sqrt(delta))/(2a) - Nếu delta = 0 thì phương trình co nghiệm kép x = -b/(2a) - Nếu delta < 0 thì phương trình vô nghiệm.

Program phuongtrinhbac2;

uses crt;
var a,b,c,x1,x2,x,delta :real;

begin

clrscr;
writeln('nhap he so a:' ); readln(a);

writeln('nhap he so b:' ); readln(b);

writeln('nhap he so c:' ); readln(c);

delta:=b*b-4*a*c;

if delta >0 then

begin

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

x2:=(-b - sqrt(delta))/(2*a);
writeln('phuong trinh co 2 nghiem la ',x2, ' va ',x1);

end;

if delta =0 then

begin

x := -b/(2*a);

writeln('phuong trinh co nghiem kep',x);

end;
if delta < 0 then writeln ('phuong trinh vo nghiem');

readln;
end.