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”
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.
Xem Hinh