Viết chương trình pascal giải phương trình ax2 bx + c=0 a khác 0

60 điểm

NguyenChiHieu

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

Tổng hợp câu trả lời [1]

Program GIAI_PHUONG_TRINH_BACII; Uses crt; Var a,b,c,d,x,x1,x2:real; Begin 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]; Trang 2 If a=0 then If b=0 then If c=0 then Writeln['Phuong trinh co vo so nghiem'] Else Else Writeln['Phuong trinh vo nghiem'] Else Begin Writeln['Phuong trinh co mot nghiem: x=',-c/b:4:2] 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

Giải phương trình bậc 2 [ax2+ bx + c =0]

Program GIAI_PHUONG_TRINH_BAC_HAI;
Uses crt;
Var a,b,c,d,x,x1,x2:real;
Begin
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];
Write['Phuong trinh co hai nghiem: ‘];
Writeln[‘ x1=',x1:4:2,' va x2=',x2:4:2];
End;
End;
Readln;
End.

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['Pt co 2 nghiem la x1= ',x1:4:2 ,' va x2=',x2:4:2]; End; End; Readln End.

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, c<>0} Else Writeln['Phuong trinh co mot nghiem: x=',-c/b: 4: 2] {a=0, b<>0} 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<0 then Writeln['Phuong trinh vo nghiem'] {Delta <0} Else {Delta >0} 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 {Truoc END. thi khong can dau ;} End.

3. Xem thêm

• Giải phương trình bậc nhất.
• Giải hệ phương trình tuyến tính.

4. Videos hướng dẫn

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

Câu 8: Viết chương trình giải phương trình bậc 2: ax2 + bx + c = 0 [a khác 0]

Các câu hỏi tương tự

• Toán lớp 11
• Ngữ văn lớp 11
• Tiếng Anh lớp 11

Program Bai_lam;
Uses crt;
Var a,b,c,d,x,x1,x2:real;
Begin
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];
Write['Phuong trinh co hai nghiem: ‘];
Writeln[‘ x1=',x1:4:2,' va x2=',x2:4:2];
End;
End;
Readln;
End.

Video liên quan

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('Pt co 2 nghiem la x1= ',x1:4:2 ,' va x2=',x2:4:2); End; End; Readln End.

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, c<>0} Else Writeln('Phuong trinh co mot nghiem: x=',-c/b: 4: 2) {a=0, b<>0} 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<0 then Writeln('Phuong trinh vo nghiem') {Delta <0} Else {Delta >0} 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 {Truoc END. thi khong can dau ;} End.

3. Xem thêm

• Giải phương trình bậc nhất.
• Giải hệ phương trình tuyến tính.

4. Videos hướng dẫn

3.6 59 votes

Đánh giá bài viết