**Triệu hồi thần TIN !!.**
Giải và biện luận phương trình bậc 2 một ẩn: `ax^2+bx+c=0` (VCT Pascal)
Hướng dẫn giải:
– TH1: `a=0, b=0, c=0 ⇒` phương trình vô số `n_o`
– TH2: `a=0, b=0, c\ne0 ⇒` phương trình vô `n_o`
– TH3: `a=0, b\ne0 ⇒` phương trình về bậc nhất 1 ẩn `bx+c=0`
` ⇒` có `n_o` là `x={-c}/b`
– TH4: `a\ne0`
` Δ=b^2-4ac`
Nếu `Δ<0 →` phương trình vô `n_o`
`Δ=0 →` phương trình có `n_o` kép là `x_1=x_2=-b/{2a}`
`Δ>0 →` phương trình có 2 `n_o` là `x_1={-b-sqrt{a}}/{2a}`
`x_2={-b-sqrt{Δ}}/{2a}`
uses crt;
var a,b,c,d:real;
begin
clrscr;
write(‘a,b,c= ‘);readln(a,b,c);
if(a=0)and(b=0)and(c=0) then writeln(‘Phuong trinh vo so nghiem’) else
if(a=0)and(b=0)and(c<>0) then writeln(‘Phuong trinh vo ngiem’) else
if(a=0)and(b<>0)then writeln(‘Nghiem la x= ‘,(-c)/b) else
if a<>0 then
begin
d:=b*b-4*a*c;
if d<0 then writeln(‘Phuong tring vo nghiem’) else
if d=0 then writeln(‘Phuong trinh co nghiem kep la x1=x2=’,-((b)/(2*a)));
if d>0 then writeln(‘Phuong trinh co nghiem la x1=’,(-b-sqrt(a))/(2*a),’ x2=’,(-b-sqrt(d))/(2*a));
end;
readln
end.
Uses crt;
Var a, b, c, dt: longint;
Begin
Clrscr;
Write(‘Nhap a = ‘); readln(a);
Write(‘Nhap b = ‘); readln(b);
Write(‘Nhap c = ‘); readln(c);
dt:=0;
If ((a = 0) and (b = 0) and (c = 0)) then writeln(‘Phuong trinh co vo so nghiem’);
If ((a = 0) and (b = 0) and (c <> 0) then writeln(‘Phuong trinh vo nghiem’);
If ((a = 0) and (b <> 0)) then writeln(‘Nghiem cua phuong trinh la: ‘-c/b:6:2);
If (a <> 0) then
Begin
dt:=b*b-4*a*c;
If dt<0 then writeln(‘Phuong trinh vo nghiem’);
If dt=0 then writeln(‘Phuong trinh co 2 nghiem kep la: x1 = x2 = ‘,-b/(2*a):5:2);
If dt>0 then writeln(‘Phuong trinh co 2 nghiem phan biet: x1 = ‘,(-b-sqrt(a))/(2*a):4:2,’; x2 = ‘,(-b-sqrt(dt))/(2*a):4:2);
End;
Readln
End.