1. Trang chủ
  2. » Giáo Dục - Đào Tạo

Bai 15 Thao tac voi tep

12 8 0

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 12
Dung lượng 1,04 MB

Nội dung

Đọc/ ghi têp văn bản * Một số hàm chuẩn thường dùng trong xử lí têp văn bản EOF; Cho giá trị true nếu con trỏ đang chỉ tới cuối têp... EOLN; Cho giá trị true nếu con trỏ đang chỉ tới cu[r]

(1)Trường THPT Nguyễn Huệ TIN HỌC: LỚP 11 Giáo viên:Nguyễn Thị Hương Vy (2) Trường THPT Nguyễn Huê Thứ ngày tháng năm 2016 Tin học 11 Tiết 37, Bài 15 Thao Tác Với Têp Giáo viên: Nguyễn Thị Hương Vy (3) Khai báo tệp văn Var <Tên biến tệp> : TEXT; Ví dụ: tep1,tep2 : Text; Program vd1; Uses crt; Var tep1,tep2: TEXT; (4) Thao tác với tệp Gắn tên têp Mở têp để ghi Mở têp để đọc Đọc liêu từ têp Ghi liêu têp Đóng têp (5) a Gắn tên tệp ASSIGN (<BIẾN TỆP>,<TÊN TỆP>); Tên tệp: Là biến xâu xâu Ví dụ: ASSIGN(tep1, ‘D:\TP\BAITAP.INP’); Biến tep1 gắn với têp có tên BAITAP.INP thư mục TP ổ đĩa D (6) b Mở tệp Thủ tục mở têp để ghi kết quả: REWRITE (<biến tệp>); *Nếu trên ổ D:\TP chưa có tệp BAITAP.INP, thì tệp tạo rỗng Nếu đã có, thì nội dung cũ bị xoá để chuẩn bị ghi liệu Ví dụ: ASSIGN(tep2, ‘D:\TP\BAITAP.INP’); REWRITE (tep2); (7) b Mở tệp Thủ tục mở têp để đọc liêu: RESET(<biến tệp>); Ví dụ: ASSIGN(tep1, ‘D:\TP\BAITAP.INP’); RESET (tep1); Chú ý: Khi mở tệp, biến tệp phải gắn tên tệp thủ tục assign (8) c Đọc/ ghi tệp văn *Trong đó: Danh sách biến là nhiều tên biến đơn Danh sách kết gồm nhiều phần tử Phần tử có thể là biến đơn biểu thứ ( số học, quan hê lôgic) xâu (9) c Đọc/ ghi têp văn * Một số hàm chuẩn thường dùng xử lí têp văn EOF(<biến tệp>); Cho giá trị true trỏ tới cuối têp EOLN(<biến tệp>); Cho giá trị true trỏ tới cuối dòng (10) Thao tác với tệp assign Rewrite Reset Read/readln Write/writeln close (11) Ví dụ: GHI DỮ LIỆU RA TỆP Program vd1; Uses crt; Var tep2: TEXT; a,b: integer; BEGIN Clrscr; ASSIGN(tep2, ‘D:\TP\BAITAP.INP’); REWRITE (tep2); a:=3; b:=5; WRITE (tep2,a,b); Close(tep2); Readln; END ĐỌC DỮ LIỆU TỪ TỆP Program vd2; Uses crt; Var tep2: TEXT; x1,y1: integer; BEGIN Clrscr; ASSIGN(tep2, ‘D:\TP\BAITAP.INP’); RESET (tep2); READLN(tep2, x1,y1); WRITE (‘Hai so la’ ,x1,y1); Close(tep2); Readln; END (12) Hãy nhớ!  Khai báo têp văn bản: Var < Tên biến têp>: Text;  Gán tên têp: ASSIGN(<tên biến têp>);  Mở têp: - Để đọc: RESET(<Tên biến têp>); - Để ghi: REWRITE(< Tên biến têp>);  Đọc/ghi têp Đọc: READ(<Tên biến têp>, biến nhận); Ghi: REWRITE(< Tên biến têp>,biến đưa ra); Đóng têp Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ quan nào là tác giả CLOSE(< chươngtªn trìnhbiÕn xin liên hê với chúng tôi tÖp>); (13)

Ngày đăng: 28/09/2021, 14:46

w