ĐỀ KIỂM TRA 1 TIẾT
01. Tham chiếu trường bản ghi ta thực hiện:
A. Tên trường.tên biến mảng; B. Tên biến mảng.tên trường;
C. Tên biến bản ghi.tên trường; D. Tên trường.tên biến bản ghi;
02.
Phát biểu nào sau đây là sai?
A. Dữ liệu kiểu tệp được lưu trữ lâu dài ở bộ nhớ trong
B. Lượng thông tin lưu trữ trên tệp chỉ phụ thuộc vào dung lượng bộ nhớ ngoài;
C. Xét theo cách tổ chức dữ liệu thì có 2 loại tệp;
D. Dữ liệu kiểu tệp được lưu trữ lâu dài ở bộ nhớ ngoài
03.
A.Đổi chỗ A[i] với A[i+1] B.Sắp xếp mảng một chiều A thành giải giảm
C.Sắp xếp các chỉ số i của mảng một chiều A thành giải giảm D.Sắp xếp mảng một
chiều A thành giải không giảm
04. Có mấy cách để gán giá trị cho biến bản ghi?
A. Có 3 cách; B. Có 2 cách; C. Có 4 cách; D. Có 5 cách;
05. Cho S1 = 'Ha Noi' và S2 = 'Ha Nam'
A.S1<= S2 B.S1 > S2 C.S1 >= S2 D.S1 = S2
06. Var Bang: array[1..9,1..9] of integer;
A.Khai báo trực tiếp mảng một chiều gồm 9 phần tử nguyên.
B.Khai báo trực tiếp mảng 2 chiều gồm 9 phần tử nguyên dương.
C.Khai báo gián tiếp mảng một chiều gồm 9 phần tử nguyên dương.
D.Khai báo trực tiếp mảng 2 chiều gồm 81 phần tử nguyên
07. Phát biểu nào sau đây không đúng?
A. Mảng hai chiều là một bảng các phần tử cùng kiểu
B. Xâu là một dãy các ký tự trong bộ mã ASCII
C. Mảng một chiều là một dãy hữu hạn các phần tử cùng kiểu
D. Mảng hai chiều là một dãy hữu hạn các phần tử cùng kiểu
08. S = 'Xin chao cac ban'
A.Length(S) = 13; B.Length(S) = 12; C.Length(S) = 16; D.Length(S) = 8;
09.

A.Var A:array[1…366] of Integer; B.Type A:array[1..366] of Integer; var A: integer;
C.Type A:array[1..366] of Integer; D.Var A:array[1..366] of Integer;
17.
A.Xuất giá trị các phần tử mảng A một chiều B.Nhập vào giá trị các phần tử mảng A hai chiều
C.Xuất giá trị các phần tử mảng A hai chiều D.Nhập vào giá trị các phần tử mảng A một chiều
18. Cú pháp câu lệnh dùng thủ tục mở tệp để đọc có dạng:
A. rewrite(<tên tệp>); B. reset(<biến tệp>); C. rewrite(<biến tệp>); D. reset(<tên tệp>);
19. Cú pháp câu lệnh dùng thủ tục để đọc có dạng:
A. readln(<danh sách biến>,<biến tệp>); B. read(<biến tệp>;<danh sách biến>);
C. read(<biến tệp>,<danh sách biến>); D. readln(<danh sách biến>;<biến tệp>);
20. Xâu là:
A.Dãy 128 ký tự trong bộ mã ASCII B.Là mảng 1 chiều A có 24 Ký tự
C.Dãy các ký tự trong bộ mã ASCII D.Dãy 24 ký tự trong bộ mã ASCII
21. S1='1' S2='Hinh 1.2'
A.Pos(S1,S2) = 5 B.Pos(S1,S2) = 1 C.Pos(S1,S2) = 6 D.Pos(S1,S2) = 7
22. Khai báo biến tệp nào sau đây là đúng?
A. Type taptin: text; B. Var taptin:test; C. Type taptin,taptin1: text; D. Var
taptin,taptin1: text;
23. Chọn cú pháp gán tên tệp đúng:
A. assign(<tên tệp>,<biến tệp>) B. assing(<tên tệp>,<biến tệp>);
C. assign(<biến tệp>,<tên tệp>); D. assing(<biến tệp>,<tên tệp>);
24. For i:=1 to n do
begin
Write('Nhap gia tri cua phan tu thu ',i,' = ');
Readln(A[i]);
end;
Đoạn chương trình trên làm công việc:
A.Nhập giá trị cho phần tử thứ A[i] của mảng một chiều A
B.Tính tổng từ 1 đến n của mảng một chiều A
C.Nhập giá trị cho n chỉ số i của mảng một chiều A

Đoạn chương trình trên thực hiện công việc:
A. Khai báo kiểu dữ liệu cho các trường; B. Khai báo biến kiểu bản ghi;
C. Khai báo dữ liệu kiểu chuổi; D. Khai báo dữ liệu kiểu bảng ghi;
34. IF Length(a) > Length(b) Then write(a) else write(b);
A.So sánh độ dài của xâu a và xâu b, nếu xâu a dài hơn b thi in xâu a ra ngược lại thì in xâu b
B.So sánh độ dài của xâu b và xâu a, nếu xâu a dài hơn b thi in xâu a ra ngược lại thì in xâu b
C.So sánh độ dài của xâu a và xâu b, nếu xâu a dài hơn b thi in xâu a ra ngược lại thì in xâu a
D.So sánh độ dài của xâu a và xâu b, nếu xâu a dài hơn b thi in xâu b ra ngược lại thì in xâu a
35. Phát biểu nào sau đây là đúng nhất?
A. Tên tệp là một biến xâu; B. Tên tệp là một hằng xâu;
C. Tên tệp là biến xâu và hằng xâu; D. Tên tệp là một biến xâu hoặc hằng xâu;
36. Trong ngôn ngữ lập trình Pascal
A.Các phần tử của mảng một chiều được sắp thứ tự giá trị giảm dần;
B.Các phần tử của mảng một chiều không sắp thứ tự;
C.Các phần tử của mảng một chiều được sắp thứ tự giá trị tăng dần;
D.Các phần tử của mảng một chiều được sắp thứ tự theo chỉ số;
37.
A.Bằng phương pháp tìm ngẩu nhiên từ giữa dãy B.Bằng phương pháp tìm tuần tự
C.Bằng phương pháp tìm tuần tự nổi bọt D.Bằng phương pháp tìm nhị phân
38. S = 'Song Hong'
Delete(S,1,5);
A.S= 'HONG' B.S= 'Hong' C.S= 'Song Hong' D.S= 'Song'
39.

Đoạn chương trình trên thức hiện công việc:
A.
B.Xuất n phân tử của mảng một chiều A ra màn
hình
C.Xuất các chỉ số i của mảng một chiều A ra màn hình D.
40. Trong ngôn ngữ lập trình Pascal với khai báo như sau: