Question

- 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 ạ

Answer 1

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.