Viết chương trình giải phương trình ax2+bx+c=0 ( a<>0 ) giúp dùm mình cần gấp sáng nay lúc 7h45 giúp dùm mình Bài 9: Cấu trúc rẽ nhánh
1 câu trả lời
Program baitap;
Uses crt;
Var d,x1,x2,a,b,c : real;
Begin
Clrscr;
Write('a='); Readln(a);
Write('b='); Readln(b);
Write('c='); Readln(c);
d:=b*b-4*a*c;
If d>0 then
Begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
Writeln('2 nghiem PT la: ',x1:0:2,' va: ',x2:0:2);
End
Else if d=0 then
Begin
x1:=(-b)/(2*a);
Writeln('PT co nghiem kep la: ',x1:0:2);
End
Else Writeln('Phuong trinh vo nghiem');
Readln;
End.
