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

bai 15 thao tac voi tep

12 16 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 508 KB

Nội dung

Gắn tên tệp Ví dụ: ASSIGN F, ‘D:\TP\ BAITAP.INP’; BAITAP.INP’ Biến F được gắn với tệp BAITAP.INP đã có trong thư mục TP ở ổ đĩa D.. Để gắn tên tệp VANBAN.TXT cho biến tệp F1 ta viết như [r]

(1)Bài 15 (2) VÝ dô: Var F,F1 : Text; Program vd1; Uses crt; Var F,F1: TEXT; (3) Thao tác với tệp Ghi liệu vào tệp Đọc liệu từ tệp Gán tên tệp Mở tệp để ghi Mở tệp để đọc Ghi liệu tệp Đọc liệu từ tệp Đóng tệp (4) a Ghi liệu vào tệp a1 Gắn tên tệp Ví dụ: ASSIGN (F, ‘D:\TP\ BAITAP.INP’); BAITAP.INP’) Biến F gắn với tệp BAITAP.INP đã có thư mục TP ổ đĩa D Để gắn tên tệp VANBAN.TXT cho biến tệp F1 ta viết nào? (5) a2 Mở tệp để ghi liệu: Ví dụ: Assign(F,‘D:\dulieu.inp’); Rewrite (F); Program vd1; Var F: TEXT; BEGIN Assign(F,‘D:\dulieu.inp’); Rewrite(F); (6) a3 Ghi liệu vào tệp: Program vd1; Var F: TEXT; VD: BEGIN ASSIGN(F, ‘D:\dulieu.inp’); Rewrite (F); Write (F,2,’ ’,4); (7) a4 Đóng tệp: Program vd1; Var F: TEXT; Begin ASSIGN(F, ‘D:\dulieu.inp’); Rewrite (F); Write (F,2,’ ’,4); Close(F); End (8) b Đọc liệu từ tệp: b1 Mở tệp để đọc liệu: Ví dụ: Assign(F,‘D:\dulieu.inp’); Reset (F); Program vd2; Var F: TEXT; BEGIN Assign(F,‘D:\dulieu.inp’); Reset(F); (9) b2.Đọc liệu từ tệp: VD: Program vd2; Var F: TEXT; a,b : integer; Begin ASSIGN(F, ‘D:\dulieu.inp’); Reset (F); Readln (F,a,b); Close(F); End (10) Sơ đồ thao tác với tệp Gántệp>,<tên tên tệp tệp>); Assign(<biến Mở tệp đểtệp>); ghi Rewite(<biến Mở tệp đểtệp>); đọc Reset(<biến Ghi liệu tệp kquả>); writeln(<biến tệp>,<DS Đọc dữtệp>,<DS liệu từ tệpbiến>); Readln(<biến Đóng tệp Close(<biến tệp>); (11) BÀI TẬP CỦNG CỐ I Hãy chọn phương án trả lời đúng Câu 1: Trong Pascal để khai báo biến tệp văn ta sử dụng cú pháp A.Var <tên tệp>: Text; B.Var <tên biến tệp>: Text; C.Var <tên tệp>: string; D.Var <tên biến tệp>: string; Câu 2: Để gắn tệp KQ.TXT cho biến tệp f1 ta sử dụng câu lệnh: A f1:=‘KQ.TXT’; B KQ.TXT:=f1; C Assign(‘KQ.TXT’,f1); D Assign(f1, ‘KQ.TXT’); (12) BÀI TẬP CỦNG CỐ I Hãy chọn phương án trả lời đúng Câu 3: Trong Pascal mở tệp văn để ghi ta sử thủ tục: A Reset (<biến tệp>); B Rewrite (< biến tệp>); C Assign (<biến tệp>,<tên tệp>); D.Var <tên biến tệp>: text; Câu 4: Trong Pascal mở tệp văn để đọc liệu ta dùng thủ tục: A Rewrite(<biến tệp>); B Var <tên biến tệp>:text; C Assign(‘KQ.TXT’,f1); D Reset(<biến tệp>); (13)

Ngày đăng: 09/09/2021, 21:15

w