2932
259
Viết chương trình ax^2+bx+c=0 (xét hai trường hợp a=0 và a#0)
Mọi người giúp em đề này với ạ, em cảm ơn nhiều ạ!
Mọi người giúp em đề này với ạ, em cảm ơn nhiều ạ!
- Thread starter Ngọc Trâm 2004
- Ngày gửi
Đặt quảng cáo
Binance
kiếm tiền
thông báo
chơi game
2048
text link
facebook
cách viết bài
thẻ điện thoại
BOT giao dịch
MEXC
tự sướng
5 triệu
Bạn được nhieutamsu mời tham gia diễn đàn viết bài kiếm tiền VNO, bấm vào đây để đăng ký.
1 người đang xem
2932
259
A, b, c, x được nhập từ bàn phím ạ?
Bạn cho mình đề chi tiết hơn nha ^^
Bạn cho mình đề chi tiết hơn nha ^^
A, b, c được nhập từ bàn phím ạ.
C++ là như vầy nè bạn:
#include <stdio. H>
#include <math. H>
Int main () {
Float a, b, c;
Float delta;
Printf ( "Enter a, b and c: \n") ;
Scanf ( "%f%f%f", &a, &b, &c) ;
Delta = b * b - 4 * a * c;
If (a == 0) {
Printf ( "You must enter a > 0\n") ;
Return 0; // finish
}
If (delta < 0) {
Printf ( "Impossible equation (No result for x) \n") ;
}
If (delta == 0) {
Float x = -b / (2 * a) ;
Printf ( "x = %. 2f\n", x) ;
}
If (delta > 0) {
Float x1 = (-b + sqrt (delta)) / (2 * a) ;
Float x2 = (-b - sqrt (delta)) / (2 * a) ;
Printf ( "x1 = %. 2f\n", x1) ;
Printf ( "x2 = %. 2f\n", x2) ;
}
Return 0;
}
#include <stdio. H>
#include <math. H>
Int main () {
Float a, b, c;
Float delta;
Printf ( "Enter a, b and c: \n") ;
Scanf ( "%f%f%f", &a, &b, &c) ;
Delta = b * b - 4 * a * c;
If (a == 0) {
Printf ( "You must enter a > 0\n") ;
Return 0; // finish
}
If (delta < 0) {
Printf ( "Impossible equation (No result for x) \n") ;
}
If (delta == 0) {
Float x = -b / (2 * a) ;
Printf ( "x = %. 2f\n", x) ;
}
If (delta > 0) {
Float x1 = (-b + sqrt (delta)) / (2 * a) ;
Float x2 = (-b - sqrt (delta)) / (2 * a) ;
Printf ( "x1 = %. 2f\n", x1) ;
Printf ( "x2 = %. 2f\n", x2) ;
}
Return 0;
}
Last edited by a moderator:
Mã:
Program GIAI_PHUONG_TRINH_BAC_II;
Uses CRT;
Var a,b,c,D,x,x1,x2: real;
Begin
Clrscr;
Writeln('GIAI PHUONG TRINH BAC II: ');
Writeln('-------------------------------------------');
Write('Nhap he so a='); readln(a);
Write('Nhap he so b='); readln(b);
Write('Nhap he so c='); readln(c);
If a=0 then
If b=0 then
If c=0 then
Writeln('Phuong trinh co vo so nghiem')
Else Writeln('Phuong trinh vo nghiem')
Else Writeln('Phuong trinh co mot nghiem: x=',-c/b: 4: 2)
Else
Begin
D:=b*b-4*a*c;
If D=0 then Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a): 4: 2)
Else
If D<0 then Writeln('Phuong trinh vo nghiem')
Else
Begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
Writeln('Phuong trinh co 2 nghiem la x1= ',x1:4:2 ,' va x2= ',x2:4:2);
End;
End;
Readln
End.Đây em nhé, chắc là đúng đó
Em có thể bỏ phần program và uses (nếu thích) vì nó không quan trọng và không ảnh hưởng đến kết quả.
Từ khóa:
Sửa
-
- Từ khóa
- bài tập lớp 11 pascal viết chương trình
Những người đang xem chủ đề này
Các chủ đề tương tự
