KTra HKII Tin 8 (OK)

Họ và tên: ..................................................................................................................................
ĐỀ KIỂM TRA HỌC KỲ II (Đề A)

Lớp: ...........................................
MÔN: TIN HỌC 8


Phần I: (5đ) TRẮC NGHIỆM. Hãy khoanh tròn vào chữ cái đứng trước câu trả lời em cho là đúng nhất

Câu 1: Vòng lặp while .. do là vòng lặp:
Chưa biết trước số lần lặp
Biết trước số lần lặp

Biết trước số lần lặp nhưng giới hạn là <=50
Biết trước số lần lặp nhưng giới hạn là >=50

Câu 2: Lệnh lặp nào sau đây là đúng?
For i:=1.5 to 10 do x:=x+1;
For i=1 to 10 do x:=x+1;

For i:=100 to 10 do x:=x+1;
For i:=1 to 10 do x:=x+1;

Câu 3: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 50 do x:=x+1; thì biến đếm i phải được khai báo là kiểu dữ liệu
String
Real;

Integer;
Tất cả các kiểu trên đều được

Câu 4: Sau khi thực hiện đoạn chương trình j:= 0; for i:= 1 to 4 do j:=j+2; thì j bằng bao nhiêu?
4
6
8
10

Câu 5: Đoạn lệnh sau đây S:=1; While S<10 do writeln(s); s:=S+2; sẽ cho kết quả gì?
In ra các số từ 1 đến 9
In vô hạn các số 1, mỗi số trên một dòng

Không phương án nào đúng
In ra các số từ 1 đến 10

Câu 6: Câu trong đoạn chương trình Pascal sau đây
for i:=2 to 10 do
begin
s:=s+i;
End;
Câu lệnh ghép được thực hiện bao nhiêu lần (bao nhiêu vòng lặp được thực hiện)
9
10
11
Không xác định

Câu 7: Tìm hiểu đoạn lệnh sau và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu lần lặp
S:=0; N:=2;
While S < = 7 do S:=S+N; N:=N+1;
3 lần
4 lần
5 lần
Vô hạn lần

Câu 8: Hãy tìm hiểu đoạn chương trình sau đây. Sau khi đoạn chương trình này được thực hiện, giá trị của x bằng bao nhiêu?
X:=0; Tong:=0;
While tong <= 20 do
Begin
Writeln(tong); Tong:=Tong+2;
End;
X:=tong;
21
22
Không xác định
20

Câu 9: Tìm hiểu đoạn lệnh sau và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu lần lặp
S:=0; n:=0;
While S < 7 do
Begin
n:=n+2;
s:=s+n;
end;
2 lần
3 lần
4 lần
5 lần

Câu 10: Để tính tổng S=1+1/3 + 1/5 + … +1/ n; em chọn đoạn lệnh:
for i:=1 to n do
if ( i mod 2)=0 then S:=S + i;
for i:=1 to n do
if ( i mod 2) =0 then S:=S + 1/i;

for i:=1 to n do
if ( i mod 2) =1 then S:=S + 1/i ;
for i:=1 to n do
if ( i mod 2)=1 then S:=S + 1/i
Else S:= S - 1/i;


Phần II: TỰ LUẬN (5 điểm) - Đề A
Câu 1: (2đ) Hãy tìm hiểu đoạn chương trình sau đây. Hãy cho biết lệnh Writeln in ra màn hình giá trị của I, J, K, M bằng bao nhiêu? Không cần viết chương trình, chỉ viết ra kết quả.

I:=1; J:=2; K:=3; M:=4;
TRẢ LỜI

While I <= 5 do
I=

Begin


I:=I+2; J:=J+3; K:=K+J;
J=

end;


M:=M+K+J+I;
K=




Writeln(I); Writeln(J); Writeln(K); Writeln(M);
M=


Câu 2: (1đ) Viết cú pháp khai báo biến mảng? Cho ví dụ?





























Câu 3: (