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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lưu Hương Ly

Cho một tệp có tên input.txt. tệp input chứa nhiều dòng, mỗi dòng là 3 số thực, cách nhau bởi dấu cách. Viết chương trình:

a) Tính tổng số thực trên mỗi dòng trong tệp input.txt

b) Tính trung bình cộng các số thực trên mỗi dòng trong tệp input.txt

Nguyễn Lê Phước Thịnh
1 tháng 3 2021 lúc 17:16

uses crt;

const fi='input.txt'

var f1:text;

    a,b,c:array[1..100]of real;

    i,n:integer;

begin

clrscr;

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

n:=0;

while not eof(f1) do

  begin

     n:=n+1;

     readln(f1,a[n],b[n],c[n]);

  end;

for i:=1 to n do

  writeln('Tong cua dong ',i,' la: ',a[i]+b[i]+c[i]:4:2);

for i:=1 to n do

  writeln('Trung binh cong cua dong ',i,' la: ',(a[i]+b[i]+c[i])/3:4:2);

close(f1);

readln;

end.


Các câu hỏi tương tự
Nguyễn Văn Thường
Xem chi tiết
33. PHAN THỊ HỒNG THẮM 1...
Xem chi tiết
Hoài Ân 02 Lê Huỳnh
Xem chi tiết
Yến Chi Phan Nguyễn
Xem chi tiết
Dania sunna
Xem chi tiết
Kiên Tạ
Xem chi tiết
HoangNhuNguyet
Xem chi tiết
An Đinh
Xem chi tiết
Felix MC-Gamer
Xem chi tiết