De kiem tra 1 tiet Tin hoc 8 - HK2 (Ly thuyet).doc

Thứ ……… ngày …… tháng ……năm 2010
BÀI KIỂM TRA 1 TIẾT (HK2)
Môn : Tin học lớp 8
Thời gian : 45 phút
I. Trắc nghiệm (4 điểm) : Hãy khoanh tròn đáp án đúng nhất :
1. Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước ?:
a. if then b. if then else c. for do d. while do
2. Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp chưa biết trước ?:
a. if then b. if then else c. for do d. while do
3. Lệnh lặp nào sau đây là đúng :
a. For <biến đếm> = <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
b. For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
c. While <điều kiện> = do <câu lệnh>;
d. While <điều kiện> := do <câu lệnh>;
4. Phát biểu nào sau đây đúng :
a. Phần mềm GeoGebra dùng để vẽ hình hình học.
b. Phần mềm Finger Break Out dùng để quan sát thời gian trên trái đất.
c. Phần mềm Pascal dùng để luyện gõ phím nhanh
d. Phần mềm Sun Times dùng để lập trình.
5. Câu lệnh Pascal : While (3*5>=15) do Writeln (3*5); sẽ :
a. In số 15 ra màn hình 3 lần.
b. In số 15 ra màn hình 5 lần.
c. Không thực hiện lệnh Writeln (3*5);
d. Lặp vô hạn lần lệnh Writeln (3*5);
6. Giả x, i, j là ba biến kiểu Integer. Xét đoạn chương trình Pascal sau :
x:=1; For i:=1 to 3 do for j:=i to 3 do x := x + i*j; Writeln (x);
Đoạn chương trình trên sẽ in ra màn hình giá trị là :

7. Giả x, i là hai biến kiểu Integer. Xét đoạn chương trình Pascal sau :
x := 1; For i:=1 to 10 do if i mod 2 = 0 then x := x * i else x := x + i; Writeln (x);
Đoạn chương trình trên sẽ in ra màn hình giá trị là :

8. Xét chương trình Pascal sau :
var n,i,j,nt : Integer;
begin
readln(n);
for i:=2 to n do
begin
j:=2;
while i mod j <> 0 do j := j + 1;
if j = i then nt := i;
end;
writeln (nt);
readln;
end.
Chương trình trên sẽ cho phép nhập giá trị n (n>1) rồi :
a. cho biết n có phải là số nguyên tố hay không.
b. in ra màn hình tất cả các số nguyên tố nhỏ hơn hoặc bằng n.
c. in ra màn hình số nguyên tố nhỏ hơn hoặc bằng n và gần n nhất.
d. in ra màn hình số nguyên tố lớn hơn hoặc bằng n và gần n nhất.
II. Tự luận (6 điểm) :
1) Trong lập trình, cấu trúc lặp dùng để làm gì ? Hãy nêu dạng tổng quát và cách thực hiện lệnh
của câu lệnh lặp While do trong ngôn ngữ lập trình Pascal ? (2 đ)
TRƯỜNG THCS TÓC TIÊN
Họ tên :
Lớp :

Điểm Lời phê của thầy (cô)
2) Viết chương trình tính tổng các số chia hết cho 3 trong dãy số nguyên X
1
, X

2
, , X
n
. Biết
rằng n, X
1
, X
2
, , X
n
là các số nguyên nhập từ bàn phím (n>0) ?(4đ)
PHÒNG GD&ĐT TÂN THÀNH CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM
TRƯỜNG THCS TÓC TIÊN Độc lập - Tự do - Hạnh phúc
ĐÁP ÁN ĐỀ KIỂM TRA 1 TIẾT - HỌC KỲ II NĂM HỌC 2009-2010
Môn : Tin học 8 (Lý thuyết)
I/ Trắc nghiệm (4 điểm) : Mỗi câu trả lời đúng đạt 0,5 điểm
1c, 2d, 3b, 4a,5d, 6 (giá trị là 26), 7 (giá trị là 16490), 8c
II/ Tự luận (6 điểm) :
3) Trả lời :
- Trong lập trình, cấu trúc lặp dùng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt
động nào đó cho đến khi một điều kiện nào đó được thỏa mãn. (0,5 đ)
- Dạng tổng quát của câu lệnh lặp While do là :
While <điều kiện> do <câu lệnh>; (0,5 đ)
- Cách thực hiện lệnh của câu lệnh lặp While do :
Bước 1: Kiểm tra <điều kiện>. (0,25 đ)
Bước 2: Nếu <điều kiện> sai, <câu lệnh> sẽ bị bỏ qua và việc thực hiện lệnh lặp kết
thúc. Nếu <điều kiện> đúng, máy sẽ thực hiện <câu lệnh> và quay lại bước 1. (0,75 đ)
4) Chương trình : (4 điểm)
Var n, x, i, S : Integer;
Begin

Write ('Nhap n : '); Readln (n);
i := 0; S := 0;
While i < n do
Begin
i := i + 1;
Write ('Nhap so thu ',i,' = '); Readln (x);
if x mod 3 = 0 then S := S + x;
End;
Writeln ('Tong cac so chia het cho 3 la : ',S);
Readln;
End.
Cách chấm điểm :
- Khai báo đúng 4 biến Integer : 0,5 điểm.
- Viết đúng lệnh nhập giá trị cho biến n : 0,5 điểm.
- Viết đúng lệnh gán khởi tạo giá trị ban đầu cho hai biến i và S : 0,5 điểm.
- Viết đúng lệnh While do và sử dụng đúng lệnh ghép sau DO : 2 điểm.
- Viết đúng lệnh xuất giá trị của biến S : 0,5 điểm.
 Ghi chú : Học sinh có thể làm bằng cách khác (sử dụng lệnh For do, khai báo tên
biến khác với đáp án v v ) mà cho kết quả đúng thì vẫn đạt điểm tối đa.