Bài 16: Ví dụ làm việc với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Vy Chou

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

Minh Lệ
24 tháng 4 2020 lúc 21:25

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.


Các câu hỏi tương tự
Dương Hữu Thành
Xem chi tiết
Phạm Đức Huy
Xem chi tiết
linh thuy
Xem chi tiết
lê khánh huyền
Xem chi tiết
Dư Dư
Xem chi tiết
Lan Ngọc
Xem chi tiết
Minh
Xem chi tiết
Tran Ngô
Xem chi tiết
Trung Kiên Lưu
Xem chi tiết