Đề kiểm tra 45(ki 2)

§Ò: 001 KiÓm tra 45 phót
M«n: Tin häc - 11
Hä vµ tªn:……………………………….
Líp:…………….
1. Khai báo nào sau đây là đúng cú pháp
A. Type mang = array [1..100] of byte;
B. Type mang1c = array [1-100] of byte;
C. Type mang1c = array (1..100) of byte;
D. Type mang1c = array [1…100] of byte;
2. Nếu khai báo biến a:array[1..100,1..100] of integer thì việc truy xuất đến phần tử nào là đúng
A. a[i,j]
B. a[i;j]
C. a[i][j]
D. a[i],[j]
3. Đoạn chương trình sau khi thực hiện cho kết quả gì
Var a:array[1..3] of byte; i:byte;
Begin
For i:=1 to 3 do a[i]:=i;
For i:=1 to 3 do
If a[i] mod 2 = 0 then Write(a[i]);
End.
A. 2
B. 1
C 1 2 3
D. 3
4.Trong Pascal, để xuất các phần tử của mảng 2 chiều ta dùng mấy vòng For?
A. 3
B. 2
C. 1
D. 0
5. Khai báo sau đây thì mảng có tối đa bao nhiêu phần tử?

Var a:array [1..10,2..5] of byte;
A. 50
B. 40
C. 100
D. 30
6. Cách khai báo xâu nào là đúng?
A. s : array[1..255] of char;
B. s : File of String;
C. s : char[256];
D. s : string[30];
7. Một xâu có tối đa bao nhiêu kí tự?
A. 64
B. 255
C. 128
D. 256
8. Xâu không có kí tự nào gọi là:
A. Xâu không
B. Xâu chứa khoảng trắng
C. Xâu rỗng
D. Không có loại xâu này
9. Phần tử đầu tiên của xâu là phần tử thứ:
A. 1
B. Do người lập trình khai báo
C. 0
D. Không có chỉ số
10. Khai báo nào sau đây là sai:
A. s:string[1];
B. s:string[100];
C. s:string[256];
D. s:string;

11. a sẽ có kết quả là gì trong đoạn chương trình sau:
a:='tuoi hoc tro'; delete(a,9,4);
A. xâu rỗng
B. tuoi hoc
C. hoc tro
D. tuoi
12. a sẽ có kết quả là gì trong đoạn chương trình sau:
a:='tuoi hoc tro'; delete(a,1,length(a));
A. hoc tro
B. xâu rỗng
C. tuoi hoc
D. tuoi
13. a sẽ có kết quả là gì trong đoạn chương trình sau:
a:='hoc tro'; b:='tuoi'; insert(a,b,5);
A. hoc tro
B. hoc tuoi tro
C. tuoi hoc tro
D. Sai cú pháp
14. Cho đoạn chương trình sau:
a:='Truong Dinh';
b:='truong dinh'
Phát biểu nào là đúng?
A. a bằng b
B. Không thể so sánh 2 xâu
C. b lớn hơn a
D. a lớn hơn b
15. Câu lệnh nào xóa kí tự cuối cùng của xâu a?
A. delete(a,1,255)
B. delete(a,1,length(a))
C delete(a,length(a),1)

D. delete(a,255,1)
16. a:='Truong Truong Dinh';
pos('Truong',a) cho giá trị là:
A. 1
B. 2
C. 6
D. 5
17. Đoạn chương trình sau làm gì?
For i:=length(a) downto 1 do write(a[i]);
A. Viết ra kí tự đầu của a
B. Viết ra kí tự cuối của a
C. Viết xâu a theo thứ tự ngược
D. Viết xâu a theo thứ tự
18 . Đoạn chương trình sau làm gì?
k:=0;
For i:=1 to length(a) do
If a[i]='a' then k:=k+1;
A. Đếm số kí tự số trong xâu a
B. Đếm số kí tự a trong xâu a
C. Đếm số kí tự trắng trong xâu a
D. Đếm số kí tự trong xâu a
19. Đoạn chương trình sau làm gì?
k:=0;
For i:=1 to length(a) do
If a[i]=a[1] then k:=k+1;
A. Đếm số kí tự trắng trong xâu a
B. Đếm số kí tự số trong xâu a
C. Đếm số kí tự a trong xâu a
D. Đếm số kí tự giống kí tự đầu trong xâu a
20. Chương trình sau sẽ viết ra cái gì?

For i:=1 to n do
If a[i] mod 2 =1 then Write(a[i]);
A. Viết ra tổng của mảng a
B. Viết ra các số lẻ của mảng a
C. Viết ra tất cả các số của mảng a
D. Viết ra các số chẳn của mảng a
------------------------------------------HÕt------------------------------------------
§Ò: 002 KiÓm tra 45 phót
M«n: Tin häc - 11
Hä vµ tªn:……………………………….
Líp:…………….
1. a sẽ có kết quả là gì trong đoạn chương trình sau:
a:='tuoi hoc tro'; delete(a,9,4);
A. xâu rỗng
B. tuoi hoc
C. hoc tro
D. tuoi
2. a sẽ có kết quả là gì trong đoạn chương trình sau:
a:='tuoi hoc tro'; delete(a,1,length(a));
A. hoc tro
B. xâu rỗng
C. tuoi hoc
D. tuoi
3. a sẽ có kết quả là gì trong đoạn chương trình sau:
a:='hoc tro'; b:='tuoi'; insert(a,b,5);
A. hoc tro
B. hoc tuoi tro
C. tuoi hoc tro
D. Sai cú pháp
4. Câu lệnh nào xóa kí tự cuối cùng của xâu a?

A. delete(a,1,255)
B. delete(a,1,length(a))
C delete(a,length(a),1)
D. delete(a,255,1)
5. a:='Truong Truong Dinh';
pos('Truong',a) cho giá trị là:
A. 1
B. 2
C. 6
D. 5
6. Đoạn chương trình sau làm gì?
For i:=length(a) downto 1 do write(a[i]);
A. Viết ra kí tự đầu của a
B. Viết ra kí tự cuối của a
C. Viết xâu a theo thứ tự ngược
D. Viết xâu a theo thứ tự
7 . Đoạn chương trình sau làm gì?
k:=0;
For i:=1 to length(a) do