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

Đọ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

Xem thêm:

w