Giúp em với : Viết chương trình để đọc chiều dài a và rộng b từ tệp ‘Dientich.txt’ và ghi kết quả tính diện tích hình chữ nhật vào tệp ‘Ketqua.txt’
2 câu trả lời
uses crt;
var f1,f2:text;
a,b:longint;
const fi='Dientich.txt';
fo='Ketqua.txt';
begin
assign(f1,fi);reset(f1);
assign(f2,fo);rewrite(f2);
readln(f1,a,b);
writeln(f2,a*b)
close(f1);close(f2);
end.
uses crt;
var a, b : integer; f1, f2 : text;
begin
clrscr;
assign(f1, 'Dientich.txt'); reset(f1);
assign(f2, 'Ketqua.txt'); rewrite(f2);
readln(f1, a, b);
writeln(f2, 'Dien tich = ', a * b);
close(f1); close(f2);
end.
