Question

Hãy viết chương trình: ax2+bx+c=0 (a khác 0). các hệ số a,b,c từ tệp thamso.inp, nghiệm phương trình ghi ra tệp kq.inp.

Answer 1

const fi='thamso.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

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;

if delta=0 then writeln(f2,'Nghiem cua phuong trinh la: ',-b/2*a:4:2);

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

close(f1);

close(f2);

end.