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
Câu hỏi Sinh học 10 Cánh diều, Chủ đề 10: VirusNhững tin mới hơn
Những tin cũ hơn
DANH MỤC
Bài học mới
-
Hãy viết bài văn nghị luận bàn về lối sống phông bạt của giới trẻ hiện nay
-
Đề kiểm tra cuối học kì 1, môn: Tin học 6 Kết nối tri thức
-
Đề kiểm tra giữa học kì 1, môn: Giáo dục công dân 6 Kết nối tri thức
-
Đề thi tham khảo môn Ngữ Văn, kỳ thi đánh giá năng lực xét tuyển đại học hệ chính quy năm 2025
-
Đề thi tham khảo môn Toán, kỳ thi đánh giá năng lực xét tuyển đại học hệ chính quy năm 2025
-
Đề thi tham khảo môn Tiếng Anh, kỳ thi đánh giá năng lực xét tuyển đại học hệ chính quy năm 2025