Bài tập Tệp
Câu 1:
Số lượng phần tử trong 3 tệp ở trên là:
Không được lớn hơn 128.
Không được lớn hơn 225.
Phải được khai báo trước.
Không bị giới hạn mà chỉ phụ thuộc vào dung lượng đĩa.
Câu 2:
Trong Pascal, để khai báo biến cho 3 tệp trên ta viết:
var f1; f2; f3:text;
var f1, f2, f3:text;
var f1; f2; f3:integer;
var f1, f2, f3:byte;
Câu 3:
Trong Pascal, để mở tệp NGUYEN1.TXT ta viết:
Assign( f1, ‘NGUYEN1.TXT’); Reset(f1);
Reset(f1);
Assign( f1, ‘NGUYEN1.TXT’); Rewrite(f1);
Reset(‘NGUYEN1.TXT’);
Câu 4:
Trong Pascal, để mở tệp NGUYEN2.TXT ta viết:
Assign( f2, ‘NGUYEN2.TXT’); Rewrite(f2);
Rewrite(f2);
Assign( f2, ‘NGUYEN2.TXT’); Reset(f2);
Rewrite(‘NGUYEN2.TXT’);
Câu 5:
Trong Pascal, để mở tệp NGUYEN12.TXT ta viết:
Assign( f3, ‘NGUYEN12.TXT’); Rewrite(f3);
Rewrite(f3);
Assign( f3, ‘NGUYEN12.TXT’); Reset(f3);
Rewrite(‘NGUYEN12.TXT’);
Câu 6:
Khi dùng câu lệnh mở tệp NGUYEN1.TXT như ở câu 3A thì vị trí con trỏ tệp nằm ở đâu?
Đầu tệp
Cuối tệp
Giữa tệp
Ngẫu nhiên ở vị trí bất kì.
Câu 7:
Muốn đọc hết dữ liệu trong tệp NGUYEN1.TXT rồi ghi vào tệp NGUYEN12.TXT ta viết:
For i:=1 to 3 do Begin Read(f1, a); Write(f3, a); End;
For i:=1 to 3 do Begin Readln(f1, a); Writeln(f3, a); End;
While not eof(f1) do Begin Read(f1, a); Write(f3, a); End;
While not eof(f1) do Begin Readln(f1, a); Writeln(f3, a); End;