Bài 15: Thao tác với tệp

Mĩ Lâm

Viết chương trình cho máy tính đọc từ tệp DAYSO.txt gồm các số nguyên có ít nhất 2 dòng

Tính tổng cấc số có trong tệp DAYSO.txt, ghi kết quả ra màn hình và tệp KETQUA.txt

Tính tổng và trung bình cộng các số chẵn trong tệp dayso.txt, ghi các kết quả vào tệp KETQUA.txt

Nguyên Hưng Trần
22 tháng 7 2021 lúc 21:25

Uses crt;
var f1,f2:text;
    i,n,tong,tongchan,dem:integer;
    tb:real;
Begin
 clrscr;
 Assign(f1,'DAYSO.txt');
 Assign(f2,'KETQUA.txt');
 reset(f1);dem:=0;tong:=0;tongchan:=0;
 While Not EOF(f1) do
  Begin
  read(f1,i);
  inc(tong,i);
  If i mod 2 = 0 then
    begin
    inc(dem);
    inc(tongchan,i);
    end;
  End;
 tb:=tongchan/dem;
 close(f1);
 rewrite(f2);
 writeln(f2,tong);
 writeln(f2,tongchan);
 writeln(f2,tb:0:2);
 close(f2);
 write(tong);
 readln;
End.

Bình luận (0)

Các câu hỏi tương tự
33. PHAN THỊ HỒNG THẮM 1...
Xem chi tiết
A3-37-Bùi Ngọc Phương Tr...
Xem chi tiết
Nguyễn Hoàng Thiên Lam
Xem chi tiết
Hoài Ân 02 Lê Huỳnh
Xem chi tiết
Huy Đan
Xem chi tiết
Kiên Tạ
Xem chi tiết
Trang Ha
Xem chi tiết
Dania sunna
Xem chi tiết
Felix MC-Gamer
Xem chi tiết