Kiểm tra 1 tiết học kì I - đề 1

TRƯỜNG THPT LƯƠNG SƠN Mã đề: 169 Đề kiểm tra: 45' Môn: Tin học lớp 11 Họ và tên: Lớp: ngày kiểm tra: Created by hoana2007 Phần I: Trắc nghiệm (4 điểm) Câu số: 1 Cho câu lệnh sau thực hiện công việc gì? for i:= 1 to 100 do readln(A[i]); Câu lệnh trên không thực hiện gì. Nhập dữ liệu cho 10 phần tử của mảng. Nhập 100 lần giá trị cho phần tử thứ i Nhập dữ liệu cho 100 phần tử của mảng. Câu số: 2 Chương trình sau thực hiện công việc gì? n := length(s); for i:= n downto 1 do write(s[i]); Câu lệnh lỗi, không thực hiện được In xâu S theo thứ tự ngược lại In xâu S theo thứ tự ngẫu nhiên kí tự In lại xâu Câu số: 3 Cho xâu S1 = 'abcabcabc '. Em hãy cho biết sau khi thực hiện câu lệnh sau thì kết quả trả về là gì? insert( 'deg ',S1,5); abcadegbcabc abcabcabcdeg degabcabcabc abcabcabc Câu số: 4 Đâu là khai báo trực tiếp đúng cho mảng 1 chiều: type <tên bến màng> : array[<kiểu chỉ sô>] of <kiểu phần tử>; var <tên bến màng> : array[<kiểu chỉ sô>] of <kiểu mảng>; var <tên bến màng> : array <kiểu chỉ sô> of <kiểu phần tử>; var <tên bến màng> : array[<kiểu chỉ sô>] of <kiểu phần tử>; Câu số: 5 Em có nhận xét gì cho khai báo sau về xâu S: var S:string; Xâu đó có tối đa 255 kí tự Xâu đó có tối đa 1 kí tự Xâu đó có tối đa 10 kí tự Xâu đó là xâu rỗng. Câu số: 6 Chọn khai báo đúng cho dãy nguyên A sau: type ArrInt = array[-100 0] of byte; var A:ArrInt; type ArrInt : array[-100 0] of byte; var A:ArrInt; type ArrInt = array[-100 0] of byte; var A = ArrInt; type ArrInt = array[-100 0] : byte; var A:ArrInt; Câu số: 7 Đâu là khai báo trực tiếp đúng cho mảng 2 chiều nguyên B có 5 hàng 5 cột? var B : array[2 7] of array[2 7] of byte; var B : array[2 7,2 7] of byte; var B = array[2 7,2 7] of byte; var B : array[2 7,2 7] of byte; Câu số: 8 Chọn khai báo gián tiếp đúng cho mảng một chiều: type <tên kiểu mảng> : array[<kiểu chỉ số>] of <kiểu phần tử>; var <tên biến mảng>:<tên kiểu mảng>; type <tên kiểu mảng> = array[<kiểu chỉ số>] of <kiểu phần tử>; var <tên kiểu mảng>:<tên biến mảng>; type <tên kiểu mảng> = array[<kiểu chỉ số>] of <kiểu phần tử>; var <tên biến mảng>:<tên kiểu mảng>; type <tên kiểu mảng> = array[<kiểu chỉ số>] of <kiểu phần tử>; var <tên biến mảng> = <tên kiểu mảng>; Câu số: 9 Đâu là khai báo đúng về xâu? var <tên biến xâu>:char[độ dài lớn nhất của xâu]; var <tên biến xâu>:string[độ dài lớn nhất của xâu]; var <tên biến xâu> = string[độ dài lớn nhất của xâu]; var <tên biến xâu>:string[byte]; Câu số: 10 Em hãy cho biết đoạn chương trình sau thực hiện công việc gì? s := 0; j := 2; for i:= 1 to n do if A[i,j] mod k = 0 then s := s + A[i,j]; Tính tổng các phần tử trên hàng 2 có giá trị chia hết k. Tính tổng các phần tử trên mảng 2 chiều có giá trị chia hết k. Tính tổng các phần tử trên cột 2 có giá trị chia hết k. Tính tổng các phần tử trên đường chéo 2 có giá trị chia hết k. Câu số: 11 Chọn khai báo đúng cho dãy nguyên A có 100 phần tử: var A:array[1 100] of real; var A:array[1 100] of integer; var A:array[1 100] of integer; var A::array[1 100] of integer; Câu số: 12 Đoạn chương trình sau thực hiện công việc gì? s := 0; for i:= 1 to n do if A[i] mod k = 0 then s := s + A[i]; Tính tổng các phần tử của A có giá trị bằng k. Tính tích các phần tử của A có giá trị chia hết k. Tính tổng các phần tử của A có giá trị trừ đi k. Tính tổng các phần tử của A có giá trị chia hết k. Câu số: 13 Cho đoạn chương trình sau: randomize; write( 'Nhap gia tri cho mang A: ');readln(n); for i:= 1 to n do for j:= 1 to n do A[i,j] := random(10); Em hãy cho biết nó thực hiện công việc gì? Tạo ngẫu nhiên các phần tử trên hàng j trong A. Tạo ngẫu nhiên giá trị cho các phần tử trong A. Tạo ngẫu nhiên các phần tử trên hàng i trong A. Khởi tạo mảng A Câu số: 14 Cho đoạn chương trình sau: for i:=1 to N-1 do for j:=i+1 to N do if (A[i] < A[j]) then begin tg :=A[i]; A[i] := A[j]; A[j] := tg; end; Em hãy cho biết kết quả khi chạy đoạn chương trình với dãy số A: 2 6 9 3 7 1. 1 3 2 6 9 7 1 2 3 6 7 9 9 7 6 3 2 1 2 6 9 3 7 1 Câu số: 15 Em hãy cho biết, sau khi thực hiện đoạn chương trình sau thì S2 sẽ nhận được là gì? S2 := ' '; for i:= 1 to length(S1) do if( '0 ' =< S1[i]) and (S1[i] < = '9 ') then S2 := S2 + S1[i]; S2 là các kí tự đặc biệt có trong S1. S2 là các chữ số có trong S1. S2 là các kí tự trống có trong S1. S2 là các chữ cái có trong S1. BẢNG TRẢ LỜI TRẮC NGHIỆM CHO MÃ ĐỀ 169 Câu 1 Câu 2 Câu 3 Câu 4 Câu 5 Câu 6 Câu 7 Câu 8 Câu 9 Câu 10 Câu 11 Câu 12 Câu 13 Câu 14 Câu 15 Câu 16 Phần II: Tự luận (6 điểm) Lập trình giải bài toán: So sánh tổng giá trị các phần tử trong dãy A ở vị trí chẵn và tổng giá trị các phần tử ở vị trí lẻ trong dãy A. Kết quả hiển thị lên màn hình ĐÁP ÁN CHO MÃ ĐỀ SỐ: 169 Câu hỏi số: 1 - A Câu hỏi số: 2 - B Câu hỏi số: 3 - D Câu hỏi số: 4 - A Câu hỏi số: 5 - D Câu hỏi số: 6 - D Câu hỏi số: 7 - A Câu hỏi số: 8 - C Câu hỏi số: 9 - B Câu hỏi số: 10 - C Câu hỏi số: 11 - B Câu hỏi số: 12 - A Câu hỏi số: 13 - B Câu hỏi số: 14 - C Câu hỏi số: 15 - B . SỐ: 16 9 Câu h i số: 1 - A Câu h i số: 2 - B Câu h i số: 3 - D Câu h i số: 4 - A Câu h i số: 5 - D Câu h i số: 6 - D Câu h i số: 7 - A Câu h i số: 8 - C Câu h i số: 9 - B Câu h i số: 10 - C Câu. SƠN Mã đề: 16 9 Đề kiểm tra: 45' Môn: Tin học lớp 11 Họ và tên: Lớp: ngày kiểm tra: Created by hoana2007 Phần I: Trắc nghiệm (4 i m) Câu số: 1 Cho câu lệnh sau thực hiện công việc gì? for i: =. trong S1. S2 là các chữ c i có trong S1. BẢNG TRẢ L I TRẮC NGHIỆM CHO MÃ ĐỀ 16 9 Câu 1 Câu 2 Câu 3 Câu 4 Câu 5 Câu 6 Câu 7 Câu 8 Câu 9 Câu 10 Câu 11 Câu 12 Câu 13 Câu 14 Câu 15 Câu 16 Phần II: Tự