Viết chương trình giải phương trình bậc 2 với yêu cầu sử dụng chương trình con để giải quyết các trường hợp x/r của delta giải gấp giúp e với ạ, e cần gấp lắm luôn

nhuthuy

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 30 xem

1 trả lời

Thích Trả lời

trinhtuanvu

uses crt;
var delta:extended;
a,b,c:longint;
{---Vo-nghiem---}
procedure delta_am;
begin
write('PT vo nghiem');
end;
{---Co-nghiem-kep---}
procedure delta_khong;
begin
write('PT co nghiem kep: x1=x2=',-b/(2*a):0:2);
end;
{---Co-2-nghiem-phan-biet---}
procedure delta_2;
begin
writeln('PT co 2 nghiem phan biet: ');
writeln('x1=',(-b+sqrt(delta))/(2*a):0:2);
writeln('x2=',(-b-sqrt(delta))/(2*a):0:2);
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap a,b,c: '); readln(a,b,c);
delta:=b*b-4*a*c;
if delta<0 then delta_am
else if delta=0 then delta_khong
else delta_2;
readln;
END.

Vote (0) Phản hồi (0) 2 năm trước

duongthuy1408

Mình không biết x/r của delta nên mình là chương trình con hết.

uses crt;
var a,b,c,d:longint;
procedure delta;
begin
d:=sqr(b)-4*a*c;
writeln('Delta= ',d);
end;
procedure timnghiem;
begin
if d<0 then writeln('Phuong trinh vo nghiem');
if d=0 then writeln('Phuong trinh co nghiem kep: x1=x2=-(b/(2*a))=',-(b/(2*a)));
if d>0 then
begin
writeln('Phuong trinh co 2 nghiem phan biet: ');
writeln('x1=(-b+sqrt(delta))/2*a=',(-b+sqrt(d))/2*a:0:2);
writeln('x2=(-b-sqrt(delta))/2*a=',(-b-sqrt(d))/2*a:0:2);
end;
end;
begin
clrscr;
write('Nhap a,b,c:');readln(a,b,c);
Delta;
timnghiem;
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Cho hai đại lượng tỉ lệ nghịch $x$ và $y$; $x_{1}$, $x_{2}$ là hai giá trị bất kì của $x$; $y_{1}$, $y_{2}$ là hai giá trị tương ứng của $y$. Tính $y_{1}$, $y_{2}$ biết: $y_{1}$ + $y_{2}^{2}$ = 52 và $x_{1}$ = $2$, $x_{2}$ = $3$

tam giác ABC có AB = 12 AC = 8 góc a bằng 30 độ Tính diện tích tam giác

giúp mình nhanh nhé mình cần tối nay anh nhanh và đúng mình vote 5 sao nhé

Mn giúp câu này nữa ạ! Đốt cháy 2,2gam một hợp chất hữu cơ X gồm 2 nguyên tố thu được 6,6g CO2 và nước a)Tìm CTPT của X biết M=44 b)Cho biết X làm mất dung dịch của Brom không?

" Do có việc gấp, chị Hoa đem chiếc xe máy của mik ra cửu hàng cầm đồ để vây tiền. Đến hẹn, chị mang tiền đến trả để lấy lại xe nhưng chiếc xe của chị đã bị Hà- con trai ông chủ cửa hàng : đem sử dụng làm gãy khung". Theo em: a. Hà có được quyền sử dụng chiếc xe đó ko? Vì sao? b. Chị Hoa có quyền đòi bồi thường chiếc xe bị hỏng đó ko? Ai sẽ phải bồi thường? Thanks trước ạ!

giúp mình làm bài này với ( xin lỗi vĩ phải gửi bằng ảnh )

Cho x,y,z>0 thỏa mãn: `1/x^2+1/y^2+1/z^2=3`. Chứng minh: 1/(2x+y+z)^2 + 1/(x+2y+z)^2 + 1/(x+y+2z)^2 <=3/16

Cần tuyển 2 slot chăm cày cúi Vẽ chibi or anime.

Giúp mk nhanh nhé mình cần gấp ai nhanh và đúng mình vote 5 sao nhé

Vẽ anime đi các bạn Ngoài lề: Các bạn ơi, tự dưng crush của mk lại tỏ tình vs mk vào hôm nay, ko bt là thật hay đùa. Mk nên làm j đây.

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến