PHẦN THI VIẾT (6.0đ) MA TRẬN ĐỀ CHI TIẾT ĐÁP ÁN: Trắc nghiệm(4.0đ):Gồm cả 2 mã đề (làm đúng mỗi câu được 0.25 điểm) Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 A X X X X B X X X C X X X X D X X X X X Tự luận (2.0đ): Mã đề 101: Câu1.1: x x −+ 2 2 -> sqrt(sqr(x)) +2 – x; 0.25đ 1.2: y xba 2 222 +++ -> sqrt(sqr(a)+sqr(b)+sqrt(sqr(x)+sqrt(sqr(y)))); 0.25đ Chủ đề chính Các mức độ nhận thức TổngNhận biết Thông hiểu Vận dụng TN TL TN TL TN TL Bài 1: Khái niệm lập trình và ngôn ngữ lập trình Câu 9 0.25đ 1 câu 0.25đ Bài 3: Cấu trúc chương trình Câu 1, 8 0.5đ 2 câu 0.5đ Bài 4: Một số kiểu dữ liệu chuẩn Câu 2 0.25đ 1 câu 0.25đ Bài 5: Khai báo biến Câu 7, 15 0.5đ Câu 5 0.25đ 3 câu 0.75đ Bài 6: Phép toán, biểu thức, câu lệnh gán Câu 4, 6, 12 0.75đ Câu 11 0.25đ Câu TL1.1, TL1.2 0.5đ 6 câu 1.5đ Bài 7: Các thủ tục vào/ra đơn giản Câu 3 0.25đ 1 câu 0.25đ Bài 8: Soạn thảo, dịch, thực hiện và hiệu chỉnh chương trình Câu 13, 14 0.5đ 2 câu 0.5đ Bài 9: Cấu trúc rẽ nhánh Câu 10, 16 0.5đ 2 câu 0.5đ Bài 11: Kiểu mảng Câu TL2 1.5đ 1 câu 1.5đ Tổng 11 câu 2.75đ 5 câu 1.25đ 3 câu 2.0đ 19 câu 6.0đ Câu 2: Program Chiahet5_6; Var A:array[1 200] of byte; I,n: byte; tong: word; {Đúng phần khai báo: 0.5đ} Begin Write(‘nhap so luong phan tu mang’); Readln(n); For i:= 1 to n do Begin Write(‘nhap A[’,i,’]’); Readln(A[i]); End; {Nhập SL và giá trị phần tử mảng: 0.5đ} Tong:=0; For i:= 1 to n do If (A[i]mod5= 0) and (A[i]mod6=0) then tong:= tong + A[i]; Writeln(‘tong cac so chia het cho 5 va 6 la’,tong:5); Readln End. {Đưa ra kết quả đung: 0.5đ} Mã đề: 102 Câu1.1: x x −+ 2 2 -> sqrt(sqr(x)) +2 – x; 0.25đ 1.2: y xba 2 222 +++ -> sqrt(sqr(a)+sqr(b)+sqrt(sqr(x)+sqrt(sqr(y)))); 0.25đ Câu 2: Program Chiahet2_3; Var A:array[1 300] of integer; I,n: word; Tong: integer; {Đúng phần khai báo: 0.5đ} Begin Write(‘nhap so luong phan tu mang’); Readln(n); For i:= 1 to n do Begin Write(‘nhap A[’,i,’]’); Readln(A[i]); End; {Nhập SL và giá trị phần tử mảng: 0.5đ} Tong:=0; For i:= 1 to n do If (A[i]mod2= 0) and (A[i]mod3=0) then tong:= tong + A[i]; Writeln(‘tong cac so chia het cho 2 va 3 la’,tong:5); Readln End. {Đưa ra kết quả đung: 0.5đ} PHẦN THI THỰC HÀNH (4.0đ) Thời gian: 20 phút Viết chương trình nhập vào một dãy số nguyên A{A1,A2, .,An} (n<=300). Giá trị của mỗi phần tử không vượt quá 200. Đếm và tính tổng các số chẵn trong dãy? Program Dem_tong_chan; Var A:array[1 300] of integer; I,n,dem: word; Tong: integer; {Đúng phần khai báo: 0.5đ} Begin Write(‘nhap so luong phan tu mang’); Readln(n); For i:= 1 to n do {Nhập SL phần tử mảng: 0.5đ} Begin Write(‘nhap A[’,i,’]’); Readln(A[i]); End; {Nhập giá trị phần tử mảng: 0.5đ} Tong:=0; Dem:=0; {Khởi tạo giá trị: 0.5đ} For i:= 1 to n do If A[i]mod2= 0 then begin tong:= tong + A[i]; dem:= dem+1; end; {Xác định và viết đúng ràng buộc: 1.0đ} Writeln(‘tong cac so chan la’,tong:5); Writeln(‘day co’,dem,’so chan’); Readln End. {Đưa ra kết quả: 1.0đ} . THI VIẾT (6.0đ) MA TRẬN ĐỀ CHI TIẾT ĐÁP ÁN: Trắc nghiệm(4.0đ):Gồm cả 2 mã đề (làm đúng mỗi câu được 0.25 điểm) Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16. Bài 9: Cấu trúc rẽ nhánh Câu 10, 16 0.5đ 2 câu 0.5đ Bài 11: Kiểu mảng Câu TL2 1.5đ 1 câu 1.5đ Tổng 11 câu 2.75đ 5 câu 1.25đ 3 câu 2.0đ 19 câu 6.0đ Câu 2: