Viết Chương Trình Pascal Tìm Nghiệm Của Phương Trình Bậc 2: Ax^2+ ...

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

• • Đăng nhập
  • |
  • Đăng ký
  

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

+

Lưu vào

• +

  Danh mục mới

Lưu

• hoangnhuquynh169
• Chưa có nhóm

• Trả lời

  9

• Điểm

  914

• Cảm ơn

  6

• Tin Học
• Lớp 11
• 10 điểm
• hoangnhuquynh169 - 23:59:30 19/10/2020

Viết chương trình pascal tìm nghiệm của phương trình bậc 2: ax^2+ bx+ c= 0 (a0)

• Hỏi chi tiết
• Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

• congthien4661
• Chưa có nhóm

• Trả lời

  348

• Điểm

  2125

• Cảm ơn

  134

• congthien4661

• 20/10/2020

Program GIAI_PHUONG_TRINH_BACII;

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;

ReadlnEnd.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar3.5starstarstarstarstar2 voteGửiHủy

• Cảm ơn 1
• Báo vi phạm

Đăng nhập để hỏi chi tiết

• 999999999999999999999999
• Chưa có nhóm

• Trả lời

  62

• Điểm

  679

• Cảm ơn

  15

• 999999999999999999999999

• 06/02/2022

var a, b, c : real;

begin

readln(a, b, c);

dt := b * b - 4 * a * c;

if dt >0 then

begin

if dt = 0 then writeln('x = ', (-b / (2 * a)):2:2)'

if dt < 0 then writeln(' Phương trinh vo nghiem');

end;

writeln('x1 =', ((- b + sqrt(dt))/(2 * a)):2:2);

writeln('x2 =', ((- b - sqrt(dt))/(2 * a)):2:2);

readln;

end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar3starstarstarstarstar1 voteGửiHủy

• Cảm ơn
• Báo vi phạm

Đăng nhập để hỏi chi tiếtXEM LỜI GIẢI SGK TIN 11 - TẠI ĐÂY

Bạn muốn hỏi điều gì?

Đặt câu hỏi

Tham Gia Group Dành Cho 2K8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

Bảng tin

Bạn muốn hỏi điều gì?

Đặt câu hỏi

Lý do báo cáo vi phạm?

Gửi yêu cầu Hủy

Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát

• 
• 
• 

Tải ứng dụng

• Hướng dẫn sử dụng
• Điều khoản sử dụng
• Nội quy hoidap247
• Góp ý
• Tin tức

• Inbox: m.me/hoidap247online
• Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.

Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.