Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh 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 !

Diễn đàn tin học Văn Lang - Vạn Ninh

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ínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Tệp không kiểu

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Tệp không kiểu   16/1/2015, 06:31

a. Khai báo biến tệp:
Var Bientep:File;

b. Mở tệp để ghi-đọc:
* Mở tệp mới để ghi:
Assign(bientep, tentep);
Rewrite(bientep, n);

* Mở tệp để đọc dữ liệu:
Assign(bientep, tentep);
Reset(bientep, n);
Với n là độ lớn tính theo Byte.

c. Đọc và ghi tệp không định kiểu:
* Đọc tệp không định kiểu:
BlockRead(bientep,biennho,i,j);
* biennho: là biến đã được khai báo cùng kiểu với các phần tử của tệp, biến nhớ đóng vai trò vùng nhớ đệm để lưu trữ dữ liệu đọc từ phần tử của tệp ra.
* i: là số phần tử quy định cho mỗi lần đọc.
* j: là biến kiểu Word, dùng để ghi lại số phần tử thực sự đã được đọc.
* Ghi tệp không định kiểu:
BlockWrite(bientep,biennho,i);
1. Truy nhập tệp không định kiểu:
Tệp không kiểu cũng được truy nhập như tệp có kiểu nghĩa là cũng dùng thủ tục Seek(bientep,n) để truy nhập vào phần tử thứ n+1 của tệp.
Lưu ý là với tệp không kiểu, mỗi lần con trỏ dịch chuyển nó sẽ dịch chuyển một số byte đúng bằng số byte đã quy định trong lệnh Rewrite() hoặc Reset()

Ví dụ 2.10
Nhập vào tệp các phần tử là record và sau đó viết chúng ra màn hình. Trong phần khai báo record chọn Hoten là string[15] và Diem thuộc kiểu Real.
Program tep_khong_kieu;
Uses Crt;
Type hs=record
Hoten:string[15];
Diem:real;
End;
Var
bt:file; k,nguoi:hs; i,j:byte;
begin
clrscr;
assign(bt,’tep0kieu.dat’);
rewrite(bt,22);
write(‘Nhap bao nhieu nguoi?’);
readln(n);
for i:=1 to n do with nguoi do
begin
write(‘ Ho va ten:’); readln(hoten);
write(“Diem tong:’); readln(diem);
blockwrite(bt,nguoi,1);
end;
for i:=1 to n-1 do
begin
seek(bt,i);
blockread(bt,k,1);
textcolor(red);
with k do writeln(hoten.’ ‘,diem:5:2);
end;
ose(bt);
Readln;
End.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
 
Tệp không kiểu
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

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