Viết chương trình giải phương trình bậc hai ax bình công bx công c bằng 0 với a khác 0

Xác định bài toán:•- Input: Các số thực a, b, c [a≠0].- Output: Các số thực X thoả mãn ax2 + bx + c = 0.- Ý tưởng:- Tính d = b2 - 4ac.- Lần lượt xét ba trường hợp cho giá trị d:nếu  d 0 thì kết luận phương trình có hai nghiệm phân biệt là:x - [-b± √ d ] / 2a.Thuật toán:Mô tả thuật toán bằng cách liệt kê:Bước I. Nhập ba số a, b, c;Bước 2. d 4-[b*b - 4*a*c];Bước 3.nếu d < 0 thì đưa ra thông báo phương trình vô nghiệm rồi kết thúc;nếu d = 0 thì đưa ra thông báo phương trình có một nghiệm và tính nghiệmx = -b/[2*a], rồi kết thúc;

nếu [d> 0 thì đưa ra thông báo phương trình có hai nghiệm phân biệt, tính nghiệm X/= [-b + -√ d] / [2*a] và x2 = [-b - √ d ] / [2*a], rồi kết thúc;

Home / Tin học / Tin học lớp 11 / Viết chương trình giải phương trình bậc 2 [ax2 + bx + c =0]

Viết chương trình giải phương trình bậc 2 [ax2 + bx + c =0]

Xem thêm:  Tính các số Fibonacci

Check Also

  Viết chương trình nhập vào một ma trận vuông cấp n. a. Tính tổng …

Nhận định Sai về hàm [Tin học - Lớp 11]

1 trả lời

Một GB xấp xỉ bao nhiêu byte [Tin học - Lớp 6]

2 trả lời

Phát biểu nào trong các phát biểu sau là sai [Tin học - Lớp 6]

3 trả lời

Để đọc dữ liệu trong tệp [Tin học - Lớp 11]

1 trả lời

Cho biết số lớn nhất trong các số vừa nhập đó [Tin học - Lớp 8]

1 trả lời

thuật toán giải phương trinhg bậc 2

Chú ý: Thuật toán trên không xét các trường hợp a, b, c bằng 0 như code ở dưới, code thì đầy đủ hơn.

2. Code pascal giải PT bậc II

Program GIAI_PHUONG_TRINH_BACII; Uses CRT; {Su dung thu vien CRT} Var a,b,c,D,x,x1,x2: real; Begin Clrscr; {xoa man hình, neu khong USES CRT thi lenh nay se bi bao loi} Writeln['GIAI PHUONG TRINH BAC II: ']; Writeln['-------------------------------------------']; Write['Nhap he so a=']; readln[a]; {Viet thong bao nhap a vaf cho nhap he so a vao tu ban phim } Write['Nhap he so b=']; readln[b]; {Viet thong bao nhap b vaf cho nhap he so b vao tu ban phim } Write['Nhap he so c=']; readln[c]; {Viet thong bao nhap c vaf cho nhap he so c vao tu ban phim } If a=0 then If b=0 then If c=0 then Writeln['Phuong trinh co vo so nghiem'] {a=0, b=0, c=0 } Else Writeln['Phuong trinh vo nghiem'] {a=0, b=0, c0} Else Writeln['Phuong trinh co mot nghiem: x=',-c/b: 4: 2] {a=0, b0} Else {a 0} Begin D:=b*b-4*a*c; If D=0 then Writeln['Phuong trinh co nghiem kep: x=',-b/[2*a]: 4: 2] {Delta =0} Else If D