Question

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" (giúp em với ạ)

Answer 1

const fi='dulieu.inp'

fo='kq.inp'

var f1,f2:text;

a,b,c,delta:real;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b,c);

delta:=sqr(b)-4*a*c;

if delta<0 then writeln(f2,'Phuong trinh vo nghiem');

if delta=0 then writeln(f2,'Phuong trinh co nghiem kep la: ',-b/(2*a):4:2);

if delta>0 then 

begin

writeln(f2,'Nghiem thu nhat la: ',(-b+sqrt(delta))/(2*a):4:2);

writeln(f2,'Nghiem thu hai la: ',(-b-sqrt(delta))/(2*a):4:2);

end;

close(f1);

close(f2);

end.