BỘ GIÁO DỤC & ĐÀO TẠO PTRƯỜNG THPT TÁN KẾ TỔ TOÁN TIN ĐỀ KIỂM TRA 1 TIẾT MÔN TIN HỌC 11 Thời gian làm bài 45 phút; (40 câu trắc nghiệm) /03/2013 Họ, tên thí sinh Lớp Mã đề 181 Câu 1 Để in mảng đảo ngư[.]
PTRƯỜNG THPT TÁN KẾ TỔ TOÁN - TIN ĐỀ KIỂM TRA TIẾT MÔN: TIN HỌC 11 Thời gian làm bài: 45 phút; (40 câu trắc nghiệm) /03/2013 Họ, tên thí sinh: Lớp Mã đề 181 Câu 1: Để in mảng đảo ngược, ta chọn lệnh: A for i:= to n readln(a[i]:5); B for i:= n downto write(a[i]:5); C for i:= n downto readln(a[i]:5); D for i:= to n write(a[i]:5); Câu 2: Mảng chiều là: Dãy hữu hạn phần tử kiểu A Đúng B Sai Câu 3: Các kiểu liệu dùng mảng chiều là: integer, real, char A Đúng B Sai Câu 4: Điền nội dung thiếu đoạn sau: for i:= to n begin write(‘a[’ ,i, ‘]=’); ……………….; end; A readln(a[i]) B readln(a[i]:5) C write(a[i]) D write(a[i]:5) Câu 5: Cho x:= length(a); để tham chiếu đến ký tự cuối xâu a, ta chọn: A a[1] B a[x] C a[100] D a(x) Câu 6: Khai báo sau đây: var Tên_mảng:Array[chỉ_số_đầu chỉ_số_cuối] of kiểu_phần_tử ; A Sai B Đúng Câu 7: Ý nghĩa chính của đoạn chương trình: If a[i] ' ' then b:= b+ a[i]; write(b); A in màn hình xâu gồm các ký tự rỗng B tính tổng các phần tử các ký tự rỗng C in màn hình xâu gồm các ký tự không rỗng D tính tổng các phần tử các ký tự không rỗng Câu 8: Khai báo mảng chiều số nguyên sau đúng? A var A : array[1 100] of word; B var A = array[1 100] of real; C var A : array[1 100] of real; D var A = array[1 100] of word; Câu 9: Cho xâu A:= ‘Hoa hoc tro’ và xâu B:= ‘Hoa Hoc Tro’ , ta có A=B A Đúng B Sai Câu 10: Cho xâu S=‘tien hoc le hau hoc van’ hàm Pos(‘hoc’,S) kết là : A B C 17 D Câu 11: Khai báo xâu sau đúng /sai? var a: string; A Sai B Đúng Câu 12: In xâu đảo ngược xâu a, ta viết x:= length(a); for i:= downto x ……… ; A Readln(a) B Write(a) C Write(a[i]) D Readln(a[i]) Câu 13: Trong hàm thủ tục sau, hàm thủ tục cho kết số nguyên A length(s) B insert(S1,S2,vt) C delete(s,vt,n) D copy(S,vt,n) Câu 14: Khai báo mảng chiều sau đúng? A var A : array[1…100] of real; B var A = array[1 100] of real; C var A = array[1…100] of byte; D var A : array[1 100] of byte; Câu 15: Đếm phần tử lẻ cho đoạn: for i:= to n if ………… then dem:= dem+1; dùng điều kiện nào? Trang 1/3 - Mã đề thi 181 A a[i] mod 0 B a[i] mod = C i mod = D i mod Câu 16: Điền vào đoạn lệnh cho phù hợp:( biết là đoạn đếm những phần tử chẵn) dem:=0; for i:=1 to n if a[i] mod = then ; A dem:= dem + B dem:= dem + a[1] C dem:= dem + D dem:=dem+a[i] Câu 17: Cho xâu S1:= ‘abcd’ và S2:= ‘ABC’; đó S1 + S2 cho kế quả nào? A 'ABC abcd' B 'abcdABC' C 'abcd ABC' D 'ABCabcd' Câu 18: Khai báo xâu sau đúng/sai? Var a: string[256]; A Sai B Đúng Câu 19: Các khẳng định không mảng chiều? A Các phần tử mảng phân biệt số B Mảng có tên tên mảng C Mảng có số phần tử đếm D Các phần tử mảng khác kiểu Câu 20: Khai báo mảng chiều sau đây: var A : array[-100 0] of char ; A Không hợp lệ B Hợp lệ Câu 21: Câu lệnh đúng(Với A mảng chiều gồm N phần tử số nguyên)? A readln(A); B write(A); C writeln(A[i] :5); D readln(A[i] :5); Câu 22: Khai báo sau tương đương khai báo: var A : array[1 100] of real; A type Kmang1 : array[1 100] of integer; var A : Kmang1 ; B type Kmang1 = array[1 100] of integer; var A: Kmang1; C type Kmang1 = array[1 100] of real; var A : Kmang1; D type Kmang1 : array[1 100] of real; var A : Kmang1; Câu 23: Cho đoạn chương tŕnh: T:= a[1]; for i:= to n if a[i]> T then Begin t:= a[i]; end; A xếp dãy giảm dần B xếp dãy tăng dần C tìm giá trị lớn D tìm giá trị nhỏ Câu 24: Đoạn chương trình sau làm gì? for i:=1 to n if a[i] mod = then write(A[i]:5); A In hình phần tử có số chẵn mảng A B In tất phần tử mảng A C In hình phần tử chẵn mảng A D Tất sai Câu 25: Cho xâu S= ‘tien hoc le’ hàm length(S) kết là : A 15 B C 13 D 11 Câu 26: Cho câu lệnh: S:=0; FOR i:=1 TO 100 DO S:= S + A[i]; thực công việc gì? A in mảng B đếm các phần tử mảng C nhập mảng D tính tổng các phần tử mảng Câu 27: Cho a:='tan ke' Khi tham chiếu đến ký tự 'k' ta viết thế nào? A a(5) B a(4) C a[4] D a[5] Câu 28: Cho xâu S= ‘tien hoc le’ thủ tục delete(S, 5,4) kết là : A ‘ hoc’ B ‘tie le’ C ‘tien le’ D ‘hoc le’ Câu 29: Với khai báo: var A:Array[1 100] of Byte; nhóm lệnh dùng để in giá trị A hình? A for i:=1 to 100 readln(A[i]); B for i:=1 to 100 readln(A[1]); Trang 2/3 - Mã đề thi 181 C for i:=1 to 100 writeln(A[i]:5); Câu 30: Giả sử ta có mảng A sau : D for i:=1 to 100 writeln(i:5); A: 10 15 20 25 30 35 15 45 50 Để tham chiếu đến phần tử 15 ta truy xuất sau : A A(15) B A[15] C A(3) D A[3] Câu 31: cho xâu: a:='anh hai' xâu b:='hoc tot' , thủ tục insert(a,b,1) cho kết quả: A 'anh hai hoc tot' B 'hoc tot anh hai' C 'hoc totanh hai' D 'anh haihoc tot' Câu 32: Cho xâu A:='ca chin' B:='ca chua' phép so sanh nao đúng? A A=B B A>B C A then S:=S+a[i]; A Đếm phần tử khơng âm B Tính tổng phần tử không âm C Đếm phần tử dương D Tính tổng phần tử dương Câu 36: Điền vào chỗ trống để được đoạn chương trình đúng max:= ; for i:= to n if a[i]>max then begin max:= a[i]; end; A A[1] B i C A[ i ] D A Câu 37: Đoạn chương trình sau thực hiện công việc gì? s:=0; for i:= to n if a[i] mod =0 then s:= s +1; A tính tổng số khơng chia hết cho B Tính tổng số chia hết cho C đếm số không chia hết cho D đếm số chia hết cho Câu 38: Khai báo xâu sau đúng/sai? Var a: string(255); A Đúng B Sai Câu 39: Trong ngơn ngữ lập trình Pascal, xâu kí tự có tối đa A 256 kí tự B kí tự C 16 kí tự D 255 kí tự Câu 40: Cho khai báo: Var A: array[1 10] of integer; i: integer; Để in hình phần tử thứ mảng thực câu lệnh ? A Write(A[i]); B Readln(A[3]); C Write(‘A[3]’); D Write(A[3]); - TRÀ LỜI A B C D A B C D 21 22 - HẾT 23 24 25 26 27 28 29 10 30 11 31 12 32 13 14 15 16 17 18 19 20 33 34 35 36 37 38 39 40 Trang 3/3 - Mã đề thi 181