Ma trận+đề+ĐA 11.vip
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (118.05 KB, 3 trang )
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đ}
