Question

M.n giải giúp em bài này với ạ: Đọc dữ liệu gồm 3 số thực từ tệp VB.TXT sau đó tính tổng, tích của 3 số thực trên ghi vào tệp KQ.TXT

#em cảm ơn

Answer 1

const fi='vb.txt';

fo='kq.txt';

var f1,f2:text;

a,b,c,t,s:real;

begin

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

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

readln(f1,a,b,c);

t:=a+b+c;

s:=a*b*c;

writeln(f2,'tong la: ',t:4:2);

writeln(f2,'tich la: ',s:4:2);

close(f1);

close(f2);

end.

Answer 2

Program hotrotinhoc;

const fi='vb.txt';

fo='kq.txt';

var f: text;

a,b,c: real;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,a,b,c);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

writeln(f,'Tong : ',a+b+c:1:2);

write(f,'Tich : ',a*b*c:1:2);

close(f);

end;

begin

ip;

out;

end.