- Viết chương trình ghi tham số a, b của phương trình bậc nhất ax + b = 0 (a khác 0) vào tệp "ThamSo.Dat" , tham số a,b trên cùng 1 dòng.
- Viết chương trình đọc dữ liệu từ tệp "ThamSo.Dat". Rồi tính nghiệm x lưu vào tệp "Nghiem.Dat".
Mn giúp mình vs ạ
Program hotrotinhoc_hoc24;
const fi='thamso.dat';
fo='nghiem.dat';
var a,b: integer;
x: real;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,a,b);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
x:=0-b;
x:=x/a;
write(f,'x=',x:1:0);
close(f);
end;
begin
ip;
out;
end.