ĐỀ KIỂM TRA HK2 (ĐỀ A)
Năm học: 2009 -2010
Môn: Tin học 8
Thời gian: 45 phút
Điểm Lời phê
I. TRẮC NGHIỆM (6đ)
Câu 1: Lần lượt thực hiện đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1; Giá trị của t là
a. 1 b. 2 c. 3 d. 6
Câu 2: Sau khi thực hiện đoạn chương trình sau, giá trị của biến a bằng bao nhiêu?
a:=2 ;
For i:= 0 to 3 do a:= a+3;
a. 5 b. 8 c. 11 d. 14
Câu 3 : Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=1;
for i:=1 to 5 do s := s *i;
writeln(s);
Kết quả in lên màn hình là :
a. 2 b. 6 c. 24 d. 120
Câu 4: Xem ví dụ sau trong Pascal:
Var i:integer;
Begin
I:=1
While i<15 do
Begin
Writeln(‘0’);
i:=i+1;
End;
End.
Ví dụ trên ghi ra màn hình bao nhiêu chữ số 0?
a. 1 b. 13 c. 14 d. 15
Câu 5: Chọn khai báo hơp lệ

Câu 9: Hãy tìm hiểu thuật toán sau đây:
Bước 1: X16, n 2.
Bước 2: Nếu X <= 6.5, chuyển tới bước 4.
Bước 3: XX-n và quay lại bước 2.
Bước 4: Thông báo X và kết thúc thuật toán
Hãy cho biết:
a. Khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của X
bằng bao nhiêu? (1đ)
b. Viết chương trình Pascal thể hiện thuật toán đó? (2đ)
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________
ĐỀ KIỂM TRA HK2 (ĐỀ B)
Năm học: 2009 -2010
Môn: Tin học 8
Thời gian: 45 phút
Điểm Lời phê
I. TRẮC NGHIỆM (6đ)
Câu 1: Để khai báo biến mảng kiểu số nguyên trong Pascal có dạng:
Var <tên biến mảng>:array [<chỉ số đầu> <chỉ số cuối>] of integer;
Trong đó:
a. Chỉ số đầu = chỉ số cuối b. Chỉ số đầu > chỉ số cuối
c. Chỉ số đầu < chỉ số cuối d. Chỉ số đầu <> chỉ số cuối

Lớp: 8……
Câu 7: Hãy chỉ ra lỗi trong các câu lệnh sau và viết lại cho đúng
a. For i:=10 to 1 do x:= x + 1;
______________________________________________________________________
b. For i:=1.5 to 5.2 do x:= x + 1;
______________________________________________________________________
c. While i:= 1 do t:=10;
______________________________________________________________________
d. While 1 = 1 do Writeln (‘Dung’) ;
______________________________________________________________________
e. Var X: array[3.7 7.8] of integer;
______________________________________________________________________
f. Var x: array [1 :100] of real;
______________________________________________________________________
II. TỰ LUẬN
Câu 8: Hãy cho biết sự khác nhau giữa câu lệnh lặp với số lần biết trước và câu lệnh lặp
với số lần chưa biết trước (1đ)
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________
Câu 9: Hãy tìm hiểu thuật toán sau đây:
Bước 1: X 15, n 3.
Bước 2: Nếu X <= 4.5, chuyển tới bước 4.
Bước 3: XX-n và quay lại bước 2.
Bước 4: Thông báo X và kết thúc thuật toán
Hãy cho biết:
a. Khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của X
bằng bao nhiêu? (1đ)
b. Viết chương trình Pascal thể hiện thuật toán đó? (2đ)

Bước 2: ra mod b
Bước 3: Nếu r=0 chuyển tới bước 5
Bước 4: ab, br,r a mod b
Bước 5: Thông báo b và kết thúc thuật toán
Hãy cho biết:
c. Khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của b
bằng bao nhiêu? (1đ)
d. Viết chương trình Pascal thể hiện thuật toán đó? (2đ)
Vòng lặp thực hiện 4 vòng lặp 0.25
giá trị của b khi kết thúc là 6 0.25
Var a,b,r:integer; 0.75
Begin
a:=48; 0.25
b:=30; 0.25
r:=a mod b; 0.25
While r>0 do 0.75
Begin
a:=b; b:=r; r:=a mod b;
End;
Write(b); 0.25
End.
Câu 9: Hãy tìm hiểu thuật toán sau đây:
Bước 1:s1,i1.
Bước 2: Nếu i>5, chuyển tới bước 4.
Bước 3: ss*i, ii+1 và quay lại bước 2.
Bước 4: Thông báo s và kết thúc thuật toán
Hãy cho biết:
a. Khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của S
bằng bao nhiêu? (0.5đ)
b. Viết chương trình Pascal thể hiện thuật toán đó? (2.5đ)

i:=i+1; 0.25
s:=s+i; 0.25
End;
Write(s); 0.25
End.
Câu 9: Sắp xếp các dòng sau thành một chương trình tính tổng 100 số tự nhiên đầu tiên khác 0
hoàn chỉnh (3đ)
var i: integer; s: longint;
writeln('Tong cua 100 so tu nhien dau tien khac 0 S = ', S);
program Tinh_tong;
s:= 0;
i := 1;
end.
begin
while i <=100 do
i:= i+1;
s:= s+i;
begin
end;
Câu 9: Sắp xếp các dòng sau thành một chương trình tính tích 100 số tự nhiên đầu tiên khác 0
hoàn chỉnh (3đ)
var i: integer; p: longint;
writeln('Tich cua 100 so tu nhien dau tien khac 0 p = ', p);
program Tinh_tong;
p:= 1;
i := 1;
end.
begin
while i <=100 do
i:= i+1;