Giải phương trình bậc 2 ax2 + bx + c = 0 pascal
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ự
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. Program Bai_lam;
Writeln('GIAI PHUONG TRINH BAC 2'); Writeln('-----------------------'); Write('-Nhap he so a= '); Write('-Nhap he so b= '); Write('-Nhap he so c= '); Writeln('+Phuong trinh vo nghiem') Writeln('+Phuong trinh co 2 nghiem bang nhau X1=X2= ',X:6:2); Writeln('+Nghiem thu nhat = ',X1:6:2); Writeln('+Nghiem thu hai = ',X2:6:2); Writeln(' Bam phim de ket thuc');
Giải phương trình bậc 2 (ax2+ bx + c =0)
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 IIProgram 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
4. Videos hướng dẫn
3.6 59 votes Đánh giá bài viết |