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;
