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.2 KB, 3 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<b>Chủ đề chính</b>
<b>Các mức độ nhận thức</b>
<b>Tổng</b>
<b>Nhận biết</b> <b>Thông hiểu</b> <b>Vận dụng</b>
TN TL TN TL TN TL
<b>Bài 1: Khái niệm lập trình và ngơn</b>
<b>ngữ lập trình</b>
Câu 9
0.25đ
1 câu
0.25đ
<b>Bài 3: Cấu trúc chương trình</b> Câu 1, 8<sub>0.5đ</sub> 2 câu<sub>0.5đ</sub>
<b>Bài 4: Một số kiểu dữ liệu chuẩn</b> Câu 2<sub>0.25đ</sub> <sub>0.25đ</sub>1 câu
<b>Bài 5: Khai báo biến</b> Câu 7, 15
0.5đ
Câu 5
0.25đ
3 câu
0.75đ
<b>gán</b>
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>Bài 7: Các thủ tục vào/ra đơn giản</b> Câu 3
0.25đ
1 câu
0.25đ
<b>Bài 8: Soạn thảo, dịch, thực hiện và</b>
<b>hiệu chỉnh chương trình</b> Câu 13, 14<sub>0.5đ</sub> 2 câu<sub>0.5đ</sub>
<b>Bài 9: Cấu trúc rẽ nhánh</b>
Câu 10,
16
0.5đ
2 câu
0.5đ
<b>Bài 11: Kiểu mảng</b> Câu TL2<sub>1.5đ</sub> 1 câu <sub>1.5đ</sub>
<b>Tổng</b> 11 câu
2.75đ
5 câu
1.25đ
3 câu
2.0đ
<b>19 câu</b>
<b>6.0đ</b>
<b>Câu</b> <b>1</b> <b>2</b> <b>3</b> <b>4</b> <b>5</b> <b>6</b> <b>7</b> <b>8</b> <b>9</b> <b>10</b> <b>11</b> <b>12</b> <b>13</b> <b>14</b> <b>15</b> <b>16</b>
<b>A</b> X X X X
<b>B</b> X X X
<b>C</b> X X X X
<b>D</b> X X X X X
<b>Câu 2:</b>
Program Chiahet5_6;
Var A:array[1..200] of byte;
I,n: byte; tong: word; <i>{Đúng phần khai báo: 0.5đ}</i>
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; <i>{Nhập SL và giá trị phần tử mảng: 0.5đ}</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
End. <i>{Đưa ra kết quả đung: 0.5đ}</i>
<b> -> </b>sqrt(sqr(a)+sqr(b)+sqrt(sqr(x)+sqrt(sqr(y))));
<b>0.25đ</b>
Program Chiahet2_3;
Var A:array[1..300] of integer;
I,n: word; Tong: integer; <i>{Đúng phần khai báo: 0.5đ}</i>
Begin
Write(‘nhap so luong phan tu mang’); Readln(n);
Begin
Write(‘nhap A[’,i,’]’);
Readln(A[i]);
End; <i>{Nhập SL và giá trị phần tử mảng: 0.5đ}</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
<b>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 </b>
<b>phần tử khơng vượt q 200. Đếm và tính tổng các số chẵn trong dãy?</b>
Program Dem_tong_chan;
Var A:array[1..300] of integer;
I,n,dem: word; Tong: integer; <i>{Đúng phần khai báo: 0.5đ}</i>
Begin
Write(‘nhap so luong phan tu mang’); Readln(n);
For i:= 1 to n do <i>{Nhập SL phần tử mảng: 0.5đ}</i>
Begin
Write(‘nhap A[’,i,’]’);
Readln(A[i]);
End; <i>{Nhập giá trị phần tử mảng: 0.5đ}</i>
Tong:=0; Dem:=0; <i>{Khởi tạo giá trị: 0.5đ}</i>
For i:= 1 to n do
If A[i]mod2= 0 then
begin
tong:= tong + A[i];
dem:= dem+1;
end; <i>{Xác định và viết đúng ràng buộc: 1.0đ}</i>
Writeln(‘tong cac so chan la’,tong:5);
Writeln(‘day co’,dem,’so chan’);
Readln