Câu 24. Trong pascal, cho đoạn chương trình:Assign(f1,‟Input.dat‟); Reset(f1);
While not eoln(f1) do
Begin
Read(f1,x);Write(x, ‘ ');
End;
Close(f1);
A. Xuất dữ liệu trong tệp Input.dat ra màn hình; B. Ghi dữ liệu vào tệp Input.dat;
C. Gắn tên tệp Input.Dat cho biến tệp f1; D. Mở tệp Input.dat để đọc;
Câu 25. Đoạn chương trình sau thực hiện: Assign(f1,‟Input.dat‟); Assign(f2,‟Output.dat‟); Reset(f1); Rewrite(f2);
While not EOF(f1) do
Begin
Read(f1,x); Write(f2,x,’ ’);
End;
Close(f1);
Close(f2);
Đọc dữ liệu từ tệp Input.dat và ghi dữ liệu ra tệp Output.dat trên cùng một dòng.
B.Đọc dữ liệu từ tệp Input.dat và ghi dữ liệu ra tệp Output.dat trên nhiều dòng.
Đọc dữ liệu từ tệp Output.dat và ghi dữ liệu ra tệp Input.dat trên nhiều dòng.
Đọc dữ liệu từ tệp Output.dat và ghi dữ liệu ra tệp Intput.dat trên cùng một dòng.
Câu 26. Cho tệp B13.TXT chỉ có một dòng „abcdefgh‟ và chương trình sau: Var f:text; S1:string[3]; S2:string;
Begin
Assign(f,’B13.TXT’);
Reset(f);
Read(f,S2,S1);
Readln
End.
Sau khi chạy chương trình trên thì S1,S2 có kết quả là
a. S1=’absdefgh’; S2=’ ’
b. S1=’ ’; S2=’abcdefgh’
c. S1=’abcde’;S2=’fgh’
d. Cả a,b,c sai
Câu 1. Xét theo cách thức truy cập dữ liệu, tệp được phân thành những loại nào?
A. Tệp truy cập tuần tự và tệp truy cập trực tiếp.
B. Tệp văn bản và tệp có cấu trúc.
C. Tệp truy cập tuần tự, tệp truy cập trực tiếp và tệp có cấu trúc.
D. Tệp văn bản, tệp có cấu trúc và tệp số nguyên.
Câu 2. Để khai báo biến tệp văn bản, ta dùng cú pháp:
A. var <tên biến tệp>: text; B. var <tên tệp>: text;
C. var <tên biến tệp, tên tệp>: text; D. var <tên biến tệp>: string;
Câu 3. Trong các khai báo tệp văn bản sau, khai báo nào là sai?
A. var BT_1: text; B. var BT1: text;
C. var BT1,BT2: text; D. var 1BT: text;
Câu 4. Cú pháp của câu lệnh gắn tên tệp cho biến tệp:
A. assign(<biến tệp>, <tên tệp>); B. assign(<tên tệp>, <biến tệp>);
C. assign(<biến tệp>; <tên tệp>); D. assign(<tên tệp>);
Câu 5. Trong các câu lệnh sau câu lệnh nào đúng?
A. assign(f, „Baitap.txt‟); B. assign(„Baitap.txt‟, f);
C. assign(f); D. assign(f, “Baitap.txt”);