Giải phương trình bậc hai bằng pascal
Lập trình giải phương trình bậc hai: aX^2 + bX + C =0 bằng ngôn ngữ Pascal.
Program PTB2;
Var
a,b,c:Integer;
Delta,x,x1,x2:Real;
Begin
Writeln('GIAI PHUONG TRINH BAC 2');
Writeln('-----------------------');
Write('-Nhap he so a= ');
Readln(a);
Write('-Nhap he so b= ');
Readln(b);
Write('-Nhap he so c= ');
Readln(c);
Delta:=sqr(b)-4*a*c;
If Delta < 0 Then
Writeln('+Phuong trinh vo nghiem')
Else
If Delta=0 Then
Begin
X:=-b/2*a;
Writeln('+Phuong trinh co 2 nghiem bang nhau X1=X2= ',X:6:2);
End
Else
Begin
X1:=-b-Sqrt(Delta)/2*a;
X2:=-b+Sqrt(Delta)/2*a;
Writeln('+Nghiem thu nhat = ',X1:6:2);
Writeln('+Nghiem thu hai = ',X2:6:2);
End;
Writeln;
Writeln(' Bam phim de ket thuc');
Readln
End.
Sách giải st
Ý kiến bạn đọc
Theo dòng sự kiện
Những tin mới hơn
Những tin cũ hơn
BÀI XEM NHIỀU
-
Câu hỏi Sinh học 10 Cánh diều, Chủ đề 3: Giới thiệu chung về tế bào.
-
Câu hỏi Sinh học 10 Cánh diều, Chủ đề 1: Giới thiệu khái quát chương trình môn Sinh học
-
Câu hỏi Sinh học 10 Cánh diều, Chủ đề 2: Các cấp độ tổ chức của thế giới sống
-
Câu hỏi Sinh học 10 Cánh diều, Chủ đề 6: Trao đổi chất và chuyển hoá năng lượng ở tế bào
-
Câu hỏi Sinh học 10 Cánh diều, Chủ đề 4: Thành phần hoá học của tế bào
-
Câu hỏi Sinh học 10 Cánh diều, Chủ đề 5: Cấu trúc của tế bào