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
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 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đ
0.25đ
1 câu 0.25đ
Bài 8: Soạn thảo, dịch, thực hiện và
Bài 9: Cấu trúc rẽ nhánh
Câu 10, 16 0.5đ
2 câu 0.5đ
2.75đ
5 câu 1.25đ
3 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 cả 2 mã đề (làm đúng mỗi câu được 0.25 điểm)
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
- > sqrt(sqr(a)+sqr(b)+sqrt(sqr(x)+sqrt(sqr(y))));
0.25đ
Trang 2Câ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]);
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
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:= 1 to n do
Begin
Write(‘nhap A[’,i,’]’);
Readln(A[i]);
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
Trang 3PHẦ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]);
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;
Writeln(‘tong cac so chan la’,tong:5);
Writeln(‘day co’,dem,’so chan’);
Readln