ĐỀ KIỂM TRA HỌC KỲ II TIN HỌC 8

MA TRẬN VÀ ĐỀ KIỂM TRA 1 TIẾT – MÔN TIN HỌC LỚP 8 (TIẾT 51)
NĂM HỌC 2016 - 2017

I. MA TRẬN ĐỀ KIỂM TRA VÀ BẢNG MÔ TẢ
Chủ đề
Mức độ
Tổng điểm


Nhận biết
Thông hiểu
Vận dụng thấp
VD cao



TL
TL
TL
TL


Câu lệnh lặp For



Số câu
Số điểm:
Tỉ lệ:
Câu:
Biết được cấu trúc và hoạt động câu lệnh lặp

1
1
10%
1a

Tính được giá trị của các biến sau mỗi lần lặp

1
2
20%
1b
Viết chương trình nhập số nguyên, tính giai thừa, Hiện thị các số nguyên thỏa mãn điều kiên
2
4
40%
3a,b

Tìm các ước của số 1 nguyên

1
1
10%
3c




5
8
80%
1a,b,3a,b,3c

Câu lệnh lặp while



Số câu
Số điểm:
Tỉ lệ:
Câu:

Tính được giá trị của các biến sau mỗi lần lặp
1
2
20%
2




1
2
20%
2

Tổng số câu
Tổng số điểm
Tỉ lệ
1
1
10%
2
40
40%
2
40
40%
1
2
20%
6
10
100%



ĐÁP ÁN
Đáp án đề 1
Điểm

Câu 1:
-Trong Pascal, câu lệnh sau viết sai.
- Sửa:
for i: = 1 to 20 do writeln(‘A’);
Cho đoạn chương trình:
- Vòng lặp trên thực hiện 3 vòng lặp.
- Sau khi thực hiện đoạn chương trình trên, giá trị của biến j =-2
Câu 2: Cho đoạn chương trình sau hãy tìm giá trị của các biến a, b sau mỗi vòng lặp
Vòng lặp 1: a=11; b=19;
Vòng lặp 2: a= 13; b=19
Câu 3: Viết chương trình thực hiện các công việc sau:
Program songuyen;
Uses Crt;
Var a,i,d, Tc: Integer;
Begin
Clrscr;
Write( ‘ Moi nhap so nguyen a= ‘); Readln(a);
Tc:=1; d:=0;
For i:= 1 to a do
Begin
Tc:=Tc*i;
If i mod 3 = 0 then Write (i:3);
If a mod i = 0 then d:=d+1;
End;
Writeln (‘ Tich cac so nguyen tu 1-> ‘,a,’ la : ‘, Tc);
Writeln (‘ so ‘, a,’ chia het cho ‘, d,’ so nguyen duong’);
Readln;
End.

0.5
0.5
1
1

1
1


1

1

1



1
1




ĐÁP ÁN
Đáp án đề 2
Điểm

Câu 1:
-Trong Pascal, câu lệnh sau viết sai.
- Sửa:
for i: = 1 to 4 do writeln(‘A’);
Cho đoạn chương trình:
- Vòng lặp trên thực hiện 3 vòng lặp.
- Sau khi thực hiện đoạn chương trình trên, giá trị của biến j =-5
Câu 2: Cho đoạn chương trình sau hãy tìm giá trị của các biến a, b sau mỗi vòng lặp
Vòng lặp 1: a=8; b=22;
Vòng lặp 2: a= 13; b=22
Câu 3: Viết chương trình thực hiện các công việc sau:
Program songuyen;
Uses Crt;
Var a,i,d, Tc: Integer;
Begin
Clrscr;
Write( ‘ Moi nhap so nguyen a= ‘); Readln(a);
Tc:=1; d:=0;
For i:= 1 to a do
Begin
Tc:=Tc*i;
If i mod 4 = 0 then Write (i:3);
If a mod i <> 0 then d:=d+1;
End;
Writeln (‘ Tich cac so nguyen tu 1-> ‘,a,’ la : ‘, Tc);
Writeln (‘ so ‘, a,’ khong chia het cho ‘, d,’ so nguyen duong’);
Readln;
End.

0.5
0.5
1
1

1
1


1

1

1



1
1



ĐỀ KIỂM TRA MÔN TIN HỌC LỚP 8 TIẾT 51 – NĂM HỌC 2016