Viết chương trình giải phương trình bậc 2 ax2 + bx + c = 0 (a0)
Program Bai_lam; Show Hãy giúp mọi người biết câu trả lời này thế nào? star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star 5 star star star star star 2 vote 1. Viết chương trình giải phương trình bậc 2 (ax2+ bx + c =0)thuật toán giải phương trinhg bậc 2Chú ý: 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ẫn3.6 59 votes Đánh giá bài viết var delta,a,b,c,x1,x2:real; begin write('Nhap a = ');Readln(a); write('Nhap b = ');readln(b); write('Nhap c = ');readln(c); if a = 0 then write('Khong phai phuong trinh bac hai') else begin delta:=b*b-4*a*c; if delta = 0 then begin x1:=-b/(2*a); write('Phuong trinh co nghiem kep x1 = x2 = ',x1:10:2); end end; if delta>0 then begin writeln('Phuong trinh co hai nghiem phan biet '); x1:=(-b+sqrt(delta))/(2*a); x2:=(-b-sqrt(delta))/(2*a); write('x1 = ',x1:10:2,' va x2 = ',x2:10:2); end; if delta < 0 then write('Phuong rinh vo nghiem'); readln; end. |