Tin học Viết chương trình giải phương trình bậc 2 ax bình +bx+c bằng 0(a khác o) đọc các biến a,b,c từ tệp “dulieu.inp” và nghiệm phương trình đưa ra tệp “kq. 20/07/2021 By Nevaeh Viết chương trình giải phương trình bậc 2 ax bình +bx+c bằng 0(a khác o) đọc các biến a,b,c từ tệp “dulieu.inp” và nghiệm phương trình đưa ra tệp “kq.inp”
var f1, f2: text; a, b, c, d: real;begin assign(f1, ‘dulieu.inp’); reset(f1); assign(f2, ‘kq.inp’); rewrite(f2); read(f1, a, b, c); d:=sqr(b)-4*a*c; if d<0 then write(f2, ‘vo nghiem’) else if d=0 then write(f2, ‘nghiem: ‘, -b/(2*a)) else begin write(f2, ‘nghiem 1: ‘); writeln(f2,(-b-sqrt(d))/(2*a)); write(f2, ‘nghiem 2: ‘); writeln(f2,(-b+sqrt(d))/(2*a)); end; close(f2); close(f1)end. Trả lời