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
Tran Ngô

cho tệp Data.txt chứa liên tiếp các số nguyên, mỗi số trên 1 dòng. viết chương trình đọc các số vào chương trình pascal và tính trùng bình cộng các số đó. ghi kết quả vào TBC.txt

 

 

Nguyễn Lê Phước Thịnh
25 tháng 2 2021 lúc 13:39

const fi='data.txt'

fo='tbc.txt'

var f1,f2:text;

a:array[1..100]of integer;

n,i,t:integer;

begin

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

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

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

readln(f1,a[n]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t/n:4:2);

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Trung Kiên Lưu
Xem chi tiết
Trung Kiên Lưu
Xem chi tiết
Lan Ngọc
Xem chi tiết
Lê Thị Hồng Trang
Xem chi tiết
Dương Hữu Thành
Xem chi tiết
Trần Vi Sa
Xem chi tiết
Nguyễn Nhật Bình
Xem chi tiết
Phạm Đức Huy
Xem chi tiết
Lê Đức Tài
Xem chi tiết