Cho tệp BT.TXT chứa 3 số nguyên liên tiếp trên 1 dòng. Viết chương trình đọc dữ liệu từ tệp BT.TXT, tính tổng các số trên cùng 1 dòng; ghi tổng của các dòng vào tệp KQ.txt
HƯỚNG DẪN
Các bước thực hiện bài toán ?
1. Gắn tệp BT.TXT, KQ.TXT vào các biến tệp
2. Mở tệp BT.TXT để đọc và mở tệp KQ.TXT để ghi
3. Nếu chưa cuối tệp BT.TXT thì thực hiện
3.1. Đọc dữ liệu từ tệp gắn vào biến x, y, z
3.2. tß x+y+z
3.3. Ghi t vào tệp KQ.TXT trên 1 dòng
4. Đóng các tệp
Program hotrotinhoc_hoc24;
const fi='BT.TXT';
fo='KQ.TXT';
var f: text;
x,y,z: integer;
t: longint;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,x,y,z);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
t:=x+y+z;
write(f,t);
close(f);
end;
begin
ip;
out;
end.
