Đề thi KSCL HKII 13 - 14 Tin 8

PHÒNG GD&ĐT KHOÁI CHÂU
TRƯỜNG THCS NHUẾ DƯƠNG


ĐỀ THI KHẢO SÁT CHẤT LƯỢNG KH II
NĂM HỌC 2013 - 2014
Môn: Tin - Lớp 8
Thời gian: 45 phút (không kể thời gian giao đề)

I. PHẦN TRẮC NGHIỆM (2 điểm)
Câu 1: Các hoạt động nào sau đây lặp với số lần biết trước?
a. Học cho tới khi thuộc bài.
b. Ngày ăn cơm ba bữa.
c. Nhặt từng cọng rau cho tới khi xong.
d. Tìm lỗi chính tả trong một đoạn văn.

Câu 2: Cú pháp của câu lệnh For…do là:
a. For = to do ;
b. For := to do ;
c. For := to do .
d. For := to do ;

Câu 3: Câu lệnh nào sau đây được viết đúng cú pháp?

a. While <điều kiện> to ;
b. While <điều kiện> do ;
c. While <điều kiện> to do ;
d. Write <điều kiện> do ;

Câu 4: Cho câu lệnh pascal sau: for i:=1 to 5 do a:=a+4;
Giá trị đầu ở câu lệnh trên là:
a. i; b. a+4; c. 1; d. 5;

II. PHẦN TỰ LUẬN: (8 điểm)
Câu 1: (2đ) Cho đoạn chương trình sau, chạy đoạn chương trình trên giấy và thông báo giá trị của từng biến sau khi kết thúc đoạn chương trình.
a:= 0; s:= 1;
while a<10 do
begin
a:=a+2;
s:=s * a;
end;

Câu 2: (3đ) Sử dụng lệnh ‘For…do’ viết chương trình tính tổng các số tự nhiên lẻ nhỏ hơn hoặc bằng n với n là số tự nhiên bất kì được nhập từ bàn phím.
S = 1+3+5+….+n
Câu 3: (3đ) Viết chương trinh tính:
S=1+1/2+1/3..+1/n


HỌC SINH KHÔNG ĐƯỢC SỬ DỤNG BẤT KÌ TÀI LIỆU NÀO
ĐÁP ÁN

I. PHẦN TRẮC NGHIỆM KHÁCH QUAN
8 * 0.5 = 4đ.
Câu1: b
Câu 2: d
Câu 3: c
Câu 4: c

Câu 5: b
Câu6: c
Câu7: a
Câu 8: b


II. PHẦN TỰ LUẬN:

Câu 1:

Điểm
0.25


0.25

0.25


Vòng
BĐ
1
2
3
4
5


a
0
2
4
6
8
10


S
1
2
8
48
384
3840


Vậy s = 3840; a=10 (0.25)
Câu 2:


Câu 3:


Program tinhtong;
Uses crt;
Var i, n, s : integer;

Begin
Write(‘Nhap n=’); Readln(n);
S:=0;
For i:=1 to n do
If (I mod 2<>0) do S:=S + i;
Writeln(‘Tong la: ’,S);
Readln
End.
1. Đủ và đúng bố cục: 0.5 đ




2. Nhập được n, các lệnh gán đúng: 0.5đ
3. Câu lệnh lặp đúng: 0.5 đ.




4. Xuất được và đúng giá trị: 0.5 đ.
Program tinhtich;
Uses crt;
Var i, n : integer;
P: longint;
Begin
Write(‘Nhap n=’); Readln(n);
P:=1;
i:=0;
While i Begin
i:= i + 2;
P:=P*i;
End;
Writeln(‘Tich la: ’,P);
Readln
End.