[r]
(1)Chủ đề chính
Các mức độ nhận thức
Tổng
Nhậ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 ngơn ngữ lập trình
Câu 0.25đ
1 câu 0.25đ
Bài 3: Cấu trúc chương trình Câu 1, 80.5đ câu0.5đ
Bài 4: Một số kiểu liệu chuẩn Câu 20.25đ 0.25đ1 câu
Bài 5: Khai báo biến Câu 7, 15 0.5đ
Câu 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đ câu 1.5đ
Bài 7: Các thủ tục vào/ra đơn giản Câu
0.25đ
1 câu 0.25đ Bài 8: Soạn thảo, dịch, thực và
hiệu chỉnh chương trình Câu 13, 140.5đ câu0.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 TL21.5đ câu 1.5đ
Tổng 11 câu
2.75đ câu 1.25đ câu 2.0đ 19 câu 6.0đ PHẦN THI VIẾT (6.0đ)
MA TRẬN ĐỀ CHI TIẾT ĐÁP ÁN:
Trắc nghiệm(4.0đ):Gồm mã đề (làm câu 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: x22 x -> sqrt(sqr(x)) +2 – x; 0.25đ 1.2: a2 b2 x2 y2
(2)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:= to n
Begin
Write(‘nhap A[’,i,’]’); Readln(A[i]);
End; {Nhập SL giá trị phần tử mảng: 0.5đ} Tong:=0;
For i:= to n
If (A[i]mod5= 0) and (A[i]mod6=0) then tong:= tong + A[i]; Writeln(‘tong cac so chia het cho va la’,tong:5);
Readln
End {Đưa kết đung: 0.5đ}
Mã đề: 102
Câu1.1: x22 x -> sqrt(sqr(x)) +2 – x; 0.25đ 1.2: a2 b2 x2 y2
-> 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:= to n
Begin
Write(‘nhap A[’,i,’]’); Readln(A[i]);
End; {Nhập SL giá trị phần tử mảng: 0.5đ} Tong:=0;
For i:= to n
If (A[i]mod2= 0) and (A[i]mod3=0) then tong:= tong + A[i]; Writeln(‘tong cac so chia het cho va la’,tong:5);
Readln
(3)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 dãy số nguyên A{A1,A2, ,An} (n<=300) Giá trị phần tử không vượt 200 Đếm tính tổng số chẵn 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:= to n {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:= to n
If A[i]mod2= then begin
tong:= tong + A[i]; dem:= dem+1;
end; {Xác định viết ràng buộc: 1.0đ} Writeln(‘tong cac so chan la’,tong:5);
Writeln(‘day co’,dem,’so chan’); Readln