Tính trubg bình các số trong tệp dữ liệu TXT mỗi hàng có 3 số x1,x2,x3 Giúp em với mn ơi em cảm ơn

0 bình luận về “Tính trubg bình các số trong tệp dữ liệu TXT mỗi hàng có 3 số x1,x2,x3 Giúp em với mn ơi em cảm ơn”

1. program trung_binh;

   uses crt;

   var f:text;

         x1,x2,x3:integer;

   begin

          clrscr;

          Assign(f,’DULIEU.TXT’);   reset(f);

          while not eof(f) do

                 begin

                        readln(f,x1,x2,x3);

                        write((x1+x2+x3)/3:0:3);

                 end;

          close(f);  readln;

   end.

   Bình luận

2. var f: text;

          x1, x2, x3, tb: real;

   Begin

       Assign(f, ‘dulieu.txt’); reset(f);

       Read(f, x1, x2, x3);

       tb:=(x1+x2+x3)/3;

       Write(‘trung binh: ‘, tb:10:4);

       Readln

   End.

   Bình luận