Question

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

Answer 1

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.