MA TRẬN ĐỀ Cấp độ Tên Chủ đề (nội dung, chương…) Nhận biết Thông hiểu Vận dụng Cộng Cấp độ thấp TNKQ TNKQ TL Cấu trúc chương trình Biết được cấu trúc chung của chương trình và câu lệnh nhập xuất Số câu: 2 Số điểm: 1 Tỉ lệ 10% Số câu: 2 Số điểm: 1 Số câu: 2 Số điểm: 1 Tỉ lệ 10% Cấu trúc rẽ nhánh, lặp Nhận biết được cấu trúc rẽ nhánh và lặp Hiểu được cách sử dụng cấu trúc rẽ nhánh và lặp Viết được cấu trúc rẽ nhánh Số câu: 4 Số điểm: 2 Tỉ lệ 20% Số câu: 1 Số điểm: 0.5 Số câu: 2 Số điểm: 1 Số câu:1 Số điểm:0.5 Số câu: 4 Số điểm: 2 Tỉ lệ 20% Kiểu mảng, xâu, bản ghi Nhận biết được cấu trúc kiểu mảng, xâu, bản ghi Hiểu được cách sử dụng cấu trúc kiểu mảng, xâu, bản ghi Viết được chương trình Số câu: 10 Số điểm: 7 Tỉ lệ 70% Số câu: 3 Số điểm: 1.5 Số câu: 6 Số điểm: 3 Số câu:1 Số điểm:2.5 Số câu: 10 Số điểm: 7 Tỉ lệ 70% Tổng số câu: 16 Tổng số điểm: 10 Số cu:6 Số điểm: 3 Số câu: 8 Số điểm: 4 Số câu: Số điểm: 3 Tổng số câu: 16 Tổng số điểm: 10 ĐÁP ÁN Trắc nghiệm: (Mỗi câu đúng cho 0,5 đ) Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 Đáp án b c c c d b a a d a c d a b Tự luận Câu 1 (0.5đ): Viết câu lệnh rẽ nhánh tính: If x <= 0 then A:= - x*x*x 0.25đ Else A:= SQRT (x*x-y*y) 0.25đ Câu 2 (2.5đ): Program cau2; Var A: array [1 150] of integer; 0.5đ i, n, Dem: byte; Begin Write(‘nhap n=’); readln(n); 0.5đ For n:=1 to n do Begin 0.5đ Write(‘phan tu thu’,i); readln(A[i]); End; Dem := 0; For n:= 1 to n do If A[i] mod 2 =0 then Dem:= Dem + A[i]; 1.0đ Writeln(‘cac phan tu chan la:’, Dem); Readln; End. ĐỀ KIỂM TRA Câu 1: Cho xâu S là ‘_VietNam_ ’. Kết quả của hàm Length(S) là: a.10 b.9 c.7 d.8 Câu 2: Cho thao tác sau Delete(‘Thanh pho’, 4, 2). Hãy chọn phương án đúng trong các trường hợp sau đây: a. ‘Thapho’ b. ‘Thanpho’ c. ‘Tha pho’ d. ‘Than pho’ Câu 3: Khai báo mảng 2 chiều nào sau đây là sai? a. var m : array [1 10] of array [0 9] of integer; b. var m : array [1 20,1 40] of real; c. var m : array [1 5; 1 5] of real; d. var m : array [0 25,0 10] of char; Câu 4: Cho khai báo sau: var hoten : String; Phát biểu nào dưới đây đúng? a. Câu lệnh sai vì thiếu độ dài tối đa của xâu. b. Xâu có độ dài lớn nhất là 0 c. Xâu có độ dài lớn nhất là 255. d. Cần phải khai báo kích thước của xâu sau đó. Câu 5: Cho str là một xâu kí tự, đoạn chương trình sau thực hiện công việc gì? For i:=length(str) downto 1 do write (str[i]); a.In xâu ra màn hình. b.In từng kí tự của xâu ra màn hình. c.In từng kí tự ra màn hình theo thứ tự ngược, trừ kí tự đầu tiên. d.Các phương án trên đều sai. Câu 6: Biểu thức nào quan hệ nào dưới đây cho giá trị sai? a. ‘BOOR’ < ‘BOORA’ b. ‘MOON’ < ‘LOOK’ c. ’MADAMK’ < ‘MADAMR’ d.’ABDEOR’ < ‘ABDOR’ Câu 7: Những khai báo nào sau đây là đúng? a. Type xau = string[15]; b. Var xau: string[256]; Var a,b: xau; d. Type ten: string[10]; c. Var xau = string[255]; Var HS: ten; Câu 8: Để xác định kiểu bản ghi, cách khai báo nào sau đây là đúng? a. Type HS = Record Number : integer; Name : String; End; b. Type Record Number : integer; Name : String; End; c. Type HS : Record Number : integer; Name : String; End; d. Type : StudentRecord Number : integer; Name : String; End; Câu 9: Cho bản ghi HS gồm các trường ho_ten, ngay_sinh. Biểu thức nào truy cập đến trường ho_ten của bản ghi này? a. ho_ten b. HS ho_ten c. HS.( ho_ten, ngay_sinh) d. HS. ho_ten Câu 10: Để mô tả cấu trúc rẽ nhánh trong thuật toán, nhiều ngôn ngữ lập trình bậc cao dùng câu lệnh IF – THEN, sau IF là <điều kiện>. Điều kiện là: a. biểu thức logic b. biểu thức số học c. biểu thúc quan hệ d. một câu lệnh Câu 11: Một đoạn chương trình được viết trong pascal như sau: For i:=1 to 15 do Begin if i mod 2 <> 0 then write( i+1); End; Trên màn hình sẽ cho kết quả nào sau đây: a. 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 b. 1,3,5,7,9,11,13,15 c. 2,4,6,8,10,12,14,16 d. 2,4,6,8,10,12,14 Câu 12: Cho biết giá trị của x sau khi thực hiện đoạn lệnh sau: Begin a:= 6; b:= 8; If (a>b) then x := a else x := b; End. a. 5 b. 6 c.7 d.8 Câu 13:Cấu trúc của chương trình Pasacal theo trật tự nào trong các trật tự sau: a. Program - uses - const - var- begin - end. b. Program - uses - var- const - begin - end. c. Program - const - uses - var - begin - end. d. Program - var- uses - const - begin - end. Câu 14: Khi nhập giá trị cho hai biến a và b, ta dung lệnh: a. read('a,b'); b. readln(a,b); c. real(a,b); d. write(a,b); TỰ LUẬN ( 3 điểm): Câu 1(0.5đ): Viết câu lệnh rẽ nhánh tính: -x 3 nếu x ≤ 0 2 2 x y − nếu x > 0 Câu 2(2.5): Viết chương trình nhập vào từ bàn phím mảng A gồm N (1<=N<=50) số nguyên A 1, A 2,…, A n. . Hãy đếm xem có bao nhiêu phần tử là số chẵn của mảng. A = . Trên màn hình sẽ cho kết quả nào sau đây: a. 1, 2,3,4,5,6,7,8,9 ,10 ,11 ,12 ,13 ,14 ,15 b. 1, 3,5,7,9 ,11 ,13 ,15 c. 2,4,6,8 ,10 ,12 ,14 ,16 d. 2,4,6,8 ,10 ,12 ,14 Câu 12 : Cho biết giá trị của x sau khi thực hiện. số điểm: 10 Số cu:6 Số điểm: 3 Số câu: 8 Số điểm: 4 Số câu: Số điểm: 3 Tổng số câu: 16 Tổng số điểm: 10 ĐÁP ÁN Trắc nghiệm: (Mỗi câu đúng cho 0,5 đ) Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 Đáp án. 0.5đ For n: =1 to n do Begin 0.5đ Write(‘phan tu thu’,i); readln(A[i]); End; Dem := 0; For n:= 1 to n do If A[i] mod 2 =0 then Dem:= Dem + A[i]; 1. 0đ Writeln(‘cac phan tu chan la:’, Dem);