Đề: 001 TRNG THPT N DNG Kiểm tra 45 phút Môn: Tin học - 11 Thi gian :45 phỳt Họ và tên Lớp: I:PHAN TRAẫC NGHIEM (6 ủieồm ) 1. Khai bỏo no 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 [1100] of byte; 2. Nu khai bỏo bin a:array[1 100,1 100] of integer thỡ vic truy xut n phn t no l ỳng A. a[i,j] B. a[i;j] C. a[i][j] D. a[i],[j] 3. on chng trỡnh sau khi thc hin cho kt 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, xut cỏc phn t ca mng 2 chiu ta dựng my vũng For? A. 3 B. 2 C. 1 D. 0 5. Khai bỏo sau õy thỡ mng cú ti a bao nhiờu phn 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 no l ỳng? A. s : array[1 255] of char; B. s : File of String; C. s : char[256]; D. s : string[30]; 7. Mt xõu cú ti a bao nhiờu kớ t? A. 64 B. 255 C. 128 D. 256 8. Xõu khụng cú kớ t no gi l: A. Xõu khụng B. Xõu cha khong trng C. Xõu rng D. Khụng cú loi xõu ny 9. Phn t u tiờn ca xõu l phn 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 II.PHẦN TỰ LUẬN: (4 điểm) Câu 1:Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau: Var S1, S2,: String; D, B, C,: byte; Begin S1:=‘Truong-Nguyen Binh Khiem’; S2:=‘thpt’; D:=lenght(S1)+ length(S2); Insert(S2, S1,7); B:= Pos(‘y’,S1); C:=length(S1); End. Em hãy xác định giá trị của các biến D, B, C sau khi thực hiện xong đoạn chương trình trên. Biến D B C Giá trị (Học sinh làm phần tự luận trên giấy học sinh ) HÕt TRƯỜNG THPT ĐƠN DƯƠNG KiĨm tra 45 phót Đề:002À M«n: Tin häc - 11 Thời gian 45 phút Hä vµ tªn:…………………………………………… Líp:…… I:PHẦN TRẮC NGHIỆM (6 điểm ) 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; II.PHẦN TỰ LUẬN: (4 điểm) Câu 1:Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau: Var S1, S2,: String; D, B, C,: byte; Begin S1:=‘Truong-trung hoc pho thong don duong’; S2:=‘thpt’; D:=lenght(S1)+ length(S2); Insert(S2, S1,7); B:= Pos(‘p’,S1); C:=length(S1); End. Em hãy xác định giá trị của các biến D, B, C sau khi thực hiện xong đoạn chương trình trên. Biến D B C Giá trị (Học sinh làm phần tự luận trên giấy học sinh ) HÕt . Đề: 001 TRNG THPT N DNG Kiểm tra 45 phút Môn: Tin học - 11 Thi gian :45 phỳt Họ và tên Lớp: I:PHAN TRA C NGHIEM (6 ủieồm ) 1. Khai bỏo no sau õy l ỳng cỳ phỏp. làm phần tự luận trên giấy học sinh ) HÕt TRƯỜNG THPT ĐƠN DƯƠNG KiĨm tra 45 phót Đề:002À M«n: Tin häc - 11 Thời gian 45 phút Hä vµ tªn:…………………………………………… Líp:…… I:PHẦN TRẮC NGHIỆM (6 điểm. 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));