KIỂU TỆP

Để gắn tên tệp cho tên biến tệp ta sử dụng câu lệnh theo cú pháp:

• assign(<biến tệp>,<tên tệp>);

• <tên tệp> := <tên biến tệp>;

• <biến tệp> := <tên tệp>;

• assign(<tên tệp>,<biến tệp>);

Dữ liệu kiểu tệp:

• Sẽ bị mất hết khi tắt máy

• Sẽ bị mất hết khi tắt điện đột ngột.

• Không bị mất khi tắt máy hoặc mất điện

• Lưu ở bộ nhớ RAM

Phát biểu nào dưới đây là đúng?

• A. Các kiểu dữ liệu đều được lưu trữ ở bộ nhớ trong (RAM).

• A. Dữ liệu kiểu tệp được lưu trữ ở bộ nhớ ngoài (đĩa mềm, đĩa cứng, CD, thiết bị nhớ Flash).

• Các dữ liệu trong máy tính đều bị mất đi khi tắt nguồn điện

• Dữ liệu kiểu tệp được lưu trữ ở bộ nhớ trong

Trong Pascal để khai báo hai biến tệp văn bản f1, f2 ta viết như sau

• var f1; f2 : text

• Var f1 f2 : text

• Var f1: f2 : text

• Var f1, f2 : text

Cho các thao tác với tệp sau

(1) Mở tệp để ghi dữ liệu ; (2) Mở tệp để đọc dữ liệu; (3) Khai báo và gán biến tệp với tên tệp; (4) Ghi dữ liệu; (5) Đóng tệp; (6) Đọc dữ liệu

Hãy chọn trình tự các thao tác đúng để ghi dữ liệu vào tệp:

• (3) -> (1) -> (4) -> (5);

• (1) -> (3) -> (4) -> (5);

• (2) -> (6) -> (4) -> (3);

• (3) -> (2) -> (6) -> (5);

Cho chương trình sau:

Var f: text;

Begin

Assign (f,'D:\Khoi11.txt'); Rewrite(f); Write(f,(105+304-234)); Close(f);

End.

• 105 304 234

• 105+304-234

• 175

• 105304234

Tệp f có dữ liệu 5 9 15 để đọc và ghi các giá trị này vào 3 biến x, y, z ta sử dụng câu lệnh:

• Read(f, x, y, z);

• Read(f, ‘x’, ‘y’, ‘z’);

• Read(x, y, z);

• Read(‘x’, ‘y’, ‘z’);

Cho các thao tác với tệp sau:

(1) Mở tệp để ghi dữ liệu ; (2) Mở tệp để đọc dữ liệu; (3) Khai báo và gắn biến tệp với tên tệp; (4) Ghi dữ liệu; (5) Đóng tệp; (6) Đọc dữ liệu;

Hãy chọn trình tự các thao tác đúng để đọc dữ liệu từ tệp:

• (3) ->(1) -> (4) -> (5);

• (2) -> (6) -> (4) -> (3);

• (1) -> (3) -> (4) -> (5);

• (3) -> (2) -> (6) -> (5);

Giả sử a = 5;b = 9;c = 15; để ghi các giá trị trên vào tệp f có dạng là 5 9 15 ta sử dụng thủ tục ghi:

• Write(f, a,b,c)

• Write(a, ‘ ’, b, ‘ ’, c);

• Write(f, a, ‘ ’, bc)

• Write(f, a, ‘ ’, b,‘ ’, c);

Var g: text;

Begin

Assign(g,'D:\ky2.doc'); Rewrite(g); Write(g,'510+702-792'); Close(g);

End.

Sau khi thực hiện chương trình trên, tập tin 'ky2.doc' có nội dung như thế nào?

• 510+702-792

• 510 702 792

• 420

• 510702792