§Ò: 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 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 8. Đ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 9. 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 10. 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; 11. 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]12. Đ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 13.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 14. Đoạn chương trình sau làm gi? S:=0; For i:=1 to n do S:=S+a[i]; A. Đếm số phần tử của mảng A B. In ra mảng A C. Tính tổng các phần tử của mảng A D. Nhập mảng A 15. 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 16. Trong ngôn ngữ Pascal, xâu là: A. Mảng các kí tự B. Tập hợp các chữ cái và chữ số C. Tập hợp các chữ cái từ A đến Z D. Dãy các kí tự trong bảng mã ASCII 17. 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]; 18. Một xâu có tối đa bao nhiêu kí tự? A. 64 B. 255 C. 128 D. 256 19. 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 20. Khai báo nào sau đây là sai: A. s:string[1]; B. s:string[100]; C. s:string[256]; D. s:string;


------------------------------------------HÕt------------------------------------------