Các hàm và thủ tục thao tác trên tệp:

Một phần của tài liệu Giáo án Tin học 11 chuẩn KTKN_Bộ 19 full (Trang 90)

III. Tiến trình lên lớp:

3. Các hàm và thủ tục thao tác trên tệp:

các số nguyên. Var sothuc: file of real;

Hoặc Type thuc= FILE OF REAL; Var sothuc:thuc; Giải thích ví dụ Học sinh lên bảng Giải thích vd1?

Khai báo một biến sothuc chứa các số thực?

Khi khai báo var x: integer thì giá trị của nó cha đợc xác định, phải dùng lệnh gán chẳng hạn x:= 7 hoặc bằng thủ tục Read(x) để nhập giá trị cho x từ bàn phím. Cũng nh khi khai báo var f : file of integer thi f mới chỉ là một biến tệp các số nguyên và nó cha tơng ứng với 1 tệp thực sự nào. Để gán tên cho biến tệp f ta phải sử dụng thủ tục : Mọi thao tác trên tệp đều thông qua <tênbiếntệp>.

Vì vậy muốn làm các thao tác khác trên tệp trớc tiên phải sử dụng thủ tục này.

Vd1: giả sử có biến xâu s và cần gán biến tệp f với tệp có tên là dulieu.dat.

Cần gán biến tệp f1 với tệp có tên solieu.dat tại th mục gốc của ổ đĩa C?

Muốn thao tác trên tệp thì ta phải mở tệp ra để đọc dữ liệu từ tệp hoặc ta có thể tạo ra một tệp mới.

Giải thích ví dụ?

Muốn tạo 1 tệp mới có tên lop11vp.dat tại th mục khoi11 của ổ đĩa C?

Trong đó:

<kiểutệp>: là biến kiểu tệp.

<kiểuphầntử>: là kiểu của phần tử của tệp.

ví dụ1:

var f1: file of integer; vd2.

3. Các hàm và thủ tục thao tác trên tệp: tệp:

3. Các hàm và thủ tục thao tác trên tệp: tệp:

chức năng: gán <têntệp> cho <tênbiếntệp>. Trong đó <têntệp> là biến kiểu xâu hoặc hằng xâu;

<tênbiếntệp> đặt tên theo qui tắc của Turbo Pascal.

Vd1:

S:= ‘dulieu.dat’; ASSIGN(f, s); Hoặc ASSIGN(f, ‘dulieu.dat’);

b. Thủ tục mở tệp:* Mở tệp mới: * Mở tệp mới:

cú pháp:

ASSIGN(tênbiếntệp, têntệp); REWRITE(tênbiếntệp);

chức năng: tạo một tệp mới vd1:

ASSIGN(f, ‘dulieu.dat’); REWRITE(f);

Chú ý:

- Nếu <têntệp> đã tồn tại thì nội dung của tệp này sẽ bị xoá sạch và tạo thành tệp mới có kích thớc 0 byte.

- Nếu <têntệp> không có đờng dẫn thì tệp mới sẽ đợc tạo tại th mục hiện hành. Vd2:

Một phần của tài liệu Giáo án Tin học 11 chuẩn KTKN_Bộ 19 full (Trang 90)

Tải bản đầy đủ (DOC)

(129 trang)
w