VAR a,b,c,Delta,x1,x2:real; Begin Write(‘Nhap cac he so a,b,c ‘); Readln(a,b,c); If a=0 Then Begin If b<>0 then Writeln(‘ Pt co 1 nghiem la x=’,-c/b:0:2) <br />Else If c<>0 then Writeln(‘Pt vo nghiem ‘) Else Writeln(‘Pt co vo so nghiem ‘); End Else Begin Delta:=b*b-4*a*c; If Delta<0 then Writeln(‘ Pt vo nghiem’) Else Delta=0 then Writeln(‘Pt co nghiem kep x1=x2=’,-b/(2*a):0:2 ‘) Else Begin x1:=(-b-sqrt(Delta))/(2*a); x2:=(-b+sqrt(Delta))/(2*a); Writeln(‘Pt co 2 nghiem la x1= ‘,x1:0:2 ,’ va x2=’,x2:0:2); End; End; readln; End.
Mình trình bày chi tiết ở trong hình!
VAR
a,b,c,Delta,x1,x2:real;
Begin
Write(‘Nhap cac he so a,b,c ‘); Readln(a,b,c);
If a=0 Then
Begin
If b<>0 then Writeln(‘ Pt co 1 nghiem la x=’,-c/b:0:2) <br />Else If c<>0 then Writeln(‘Pt vo nghiem ‘)
Else Writeln(‘Pt co vo so nghiem ‘);
End
Else Begin
Delta:=b*b-4*a*c;
If Delta<0 then Writeln(‘ Pt vo nghiem’)
Else Delta=0 then Writeln(‘Pt co nghiem kep x1=x2=’,-b/(2*a):0:2 ‘)
Else Begin
x1:=(-b-sqrt(Delta))/(2*a);
x2:=(-b+sqrt(Delta))/(2*a);
Writeln(‘Pt co 2 nghiem la x1= ‘,x1:0:2 ,’ va x2=’,x2:0:2);
End;
End;
readln;
End.