Viết chương trình giải phương trình bậc 2:
ax2 + bx + c = 0 (a # 0)
với a, b, c là các số thực được nhập từ bàn phím.
Chương trình:
Program PTB2 ;
Var
a,b,c: Real ;
D,X,X1,X2: Real ;
Begin
Writeln(′Nhap he so a, b, c: ′) ;
Readln(a,b,c) ;
D:=sqr(b)-4*a*c ;
If D < 0 Then
Writeln(′+Phuong trinh vo nghiem′) ;
If D = 0 Then
Begin
X:=-b/(2*a) ;
Writeln(′+Phuong trinh co nghiem kep X1 = X2 = ′,X:6:2) ;
End
Else
Begin
X1:=(-b-Sqrt(D))/(2*a);
X2:=(-b+Sqrt(D))/(2*a);
Writeln(′X1 = ′,X1:6:2);
Writeln(′X2 = ′,X2:6:2);
End;
Readln
End.
Link Source: http://phanchutrinh.vn/hinh/ptb2.rar