Bt 3 :Tạo một File m số thực,các số thực được đọc từ bàn phím.

a)Sau đó đọc lại kq -> hiện kq ra màn hình.

b)Cho biết số phần tử có mặt trong file.

c)Mở file đã có,ghi them DL vào file.

d)Đổi tên file.

program file_m;

var m:integer;

    x:real;

    f:file of real;

begin

     write('vao m=');readln(m);

     assign(f,'c:\dulieu1.dat');

     rewrite(f);

     for i:=1 to m do

     begin

          write('vao x=');readln(n);

          write(f,x);

     end;

     close(f);

     assign(f,'c:\dulieu1.dat');

     reset(f);

     while not(eofcf) do

     begin

          read(f,x);

          write(x:7:2);

     end;

     close(f);

     {********}

     assign(f,'c:\dulieu1.dat');

     reset(f);

     writeln('so phan tu cua file la',filesize(f));

     close(f);

     {*********}

     assign(f,'c:\dulieu1.dat');

     reset(f);

     seek(f,filesize(f));

     for i:= to 10 do

     begin

          readln(x);

          write(f,x);

     end;

     close(f);

     {***********}

     assign(f,'c:\dulieu1.dat');

     reset(F);

     rename(f,'c:\dulieu1.dat');

     close(f);

     end;