Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !
Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !
Nơi trao đổi thông tin Văn Lang
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Nơi trao đổi thông tin Văn Lang

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhTìm kiếmLatest imagesĐăng kýĐăng Nhập

 

 Tệp có kiểu

Go down 
Tác giảThông điệp
Admin
Admin
Admin


Posts : 120
Danh tiếng : 6
Join date : 10/11/2014
Age : 22

Tệp có kiểu Empty
Bài gửiTiêu đề: Tệp có kiểu   Tệp có kiểu Icon_minitime16/1/2015, 06:30

a. Đọc và ghi :
- Ghi lên tệp: Write(bientep,bien1,bien2,…);
bien1,bien2,…là các biến cùng kiểu với biến tệp.
- Đọc tệp: Read(bientep,bien1,bien2,…);
Chú ý:
Khác với tệp văn bản, việc ghi và đọc tệp có kiểu không sử dụng các lệnh Writeln hoặc readln nghĩa là tệp có kiểu không ghi dữ liệu thành các dòng. Các phần tử của tệp có kiểu được ghi liên tục trong các ô nhớ và chỉ có ký hiệu kết thúc tệp EOF.
Khi chúng ta đọc hoặc ghi xong một phần tử thì con trỏ tệp sẽ tự động chuyển đến vị trí kế tiếp.
1. Truy nhập vào tệp: Seek(bientep,i); i=0,1,2,…
Thủ tục seek sẽ định vị con trỏ tại vị trí thứ i của tệp.
1. các hàm xử lý tệp:
* Filesize(bientep) cho biết số phần tử có trong tệp
* FilePos(bientep) cho biết vị trí hiện thời của con trỏ tệp
* Eof(Bientep) cho giá trị là True nếu con trỏ tệp ở vị trí cuối tệp, ngược lại cho giá trị False

Ví dụ 2.9:
Tạo một tệp lấy tên là TEPCK.DAT để vừa ghi vừa sửa dữ liệu:

Program Tep_co_kieu:
Uses crt;
Var bt:file of byte; i:byte; n:real;
Begin
Clrscr;
Assign(bt,’ TEPCK.DAT’);
Rewrite(bt);
For i:=0 to 5 do write(bt,i); {ghi vào tệp 5 số nguyên}
Reset(bt);
Writeln(‘Du lieu luu tru trong tep TEPCK.DAT’);
While not eof(BT) do
Begin
Read(bt,i); write(i:5);
End;
Writeln;
Seek(bt,3); {định vị con trỏ tại phần tử thứ 4}
Textcolor(magenta);
Read(bt,i);
Writeln (‘So trong tep o vi trí thu 4:’,i);
i:=33;
seek(bt,3);
write(bt,i);
seek(bt,3); read(bt,i);
writeln(‘So moi trong tep o vi tri 4:,i);
writeln(‘vi tri hien thoi cua con tro:’, filepos(bt));
readln;
close(bt);
end.
Về Đầu Trang Go down
https://forumpascalvanlang.forumvi.com
 
Tệp có kiểu
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Tệp không kiểu
» Dữ liệu kiểu mảng
» Dữ liệu kiểu mảng
» Các kiểu dữ liệu đơn giản và phép toán tương ứng
» Tham gia chuỗi tọa đàm trực tuyến: Một tuần làm "Du học sinh kiểu Úc" ngay tại Việt Nam

Permissions in this forum:Bạn không có quyền trả lời bài viết
Nơi trao đổi thông tin Văn Lang  :: Lí thuyết :: Tệp (File)-
Chuyển đến