Kiến thức

Giải phương trình bậc 2 ax^2+bx+c=0-Em Yêu Tin Học

Bạn đang xem: Giải phương trình bậc 2 ax^2+bx+c=0-Em Yêu Tin Học

Giải phương trình bậc 2 ax^2+bx+c=0

6

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 2thuật toán giải phương trinhg bậc 2
thuật toán giải phương trinhg bậc 2
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; Readln End. 
3.5 56 votes
Article Rating

Chuyên mục: Kiến thức

Related Articles

Trả lời

Email của bạn sẽ không được hiển thị công khai. Các trường bắt buộc được đánh dấu *

Back to top button