De thi hoc ky

TRƯỜNG THCS …………………..
Tên HS: ………………………………….
Lớp: 8….
ĐỀ KIỂM TRA HỌC KỲ II – NĂM HỌC 20….. – 20…..
Môn: Tin Học 8 – Thời gian: 45 phút – Ngày thi: ......./......./ 20….
ĐIỂM
Điểm ghi bằng chữ
Tên, chữ kí giám thị
................................................. GT1:...................................
Giám khảo ký, ghi rõ họ tên
GT2:...................................
..................................................
ĐỀ 1:
I. TRẮC NGHIỆM: (3Đ)
Thí sinh chọn và ghi câu trả lời đúng nhất vào ô:
Câu hỏi
Đáp án

1

2

3

4

5

6

Câu 1: Câu lệnh Pascal nào sau đây là hợp lệ?

a. For i:=100 to 1 do write(‘Tin hoc’);

b. For i:=1.5 to 10.5 do s:=s+1;

c. For i:1 to 10 do writeln(‘HKII’);

d. For i:=1 to 15 do writeln(‘Lop 8’);

Câu 2: Sau khi thực hiện đoạn chương trình sau, giá trị của biến X bằng bao
nhiêu?
X:=0; For i:=1 to 10 do If ( i mod 2 = 0) then X:=X + I;
a. X=18

b. X = 20

c. X = 24

d. X = 30

Câu 3: Câu lệnh pascal nào sau đây là không hợp lệ?
a. While x>5 do x = x + 1;

b. While x<5 do x:=x+2;

c. While x>0 do x:= x – 2;

d. While x=10 do x:=x+3;

Câu 4: Các khai báo biến mảng trong Pascal, khai báo nào sau đây là hợp lệ?
a. Var X: array[1,50] of integer;

b. Var A: array[1…50] of real;

c. Var A: array[1.5 .. 50] of integer;

d. Var X: array[1..50] of real;

Câu 5: Câu lệnh Pascal nào sau đây là không hợp lệ?
a. For i:=1 to 15 do x: = x+2;

b. While ( n mod I <>0 ) do i:=i+1;

c. A: array[1..10] of real;

d. For i:=1 to 10 do begin tong:= tong+i;

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

b. Chưa biết số lần lặp

c. Biết trước số lần lặp nhưng nhỏ hơn 50 lần

d.Có số lần lặp không quá 1000 lần

II. THỰC HÀNH: (7Đ)
Câu 1: ( 3đ) Viết chương trình nhập vào số nguyên n. Tính và in ra màn hình N!
Câu 2: (4 đ) Viết chương trình nhập một mảng n số nguyên. In ra màn hình phần tử
lớn nhất và nhỏ nhất trong mảng.

TRƯỜNG THCS ……………………..
Tên HS: ..........................................................Lớp: 8...........................................
ĐỀ KIỂM TRA HỌC KỲ II – NĂM HỌC 20….. – 20…..
Môn: Tin Học 8 – Thời gian: 45 phút – Ngày thi: ......./......./ 2017
ĐIỂM
Điểm ghi bằng chữ
Tên, chữ kí giám thị
................................................. GT1:...................................
Giám khảo ký, ghi rõ họ tên
GT2:...................................
..................................................
ĐỀ 2:
I. TRẮC NGHIỆM: (3Đ)
Thí sinh chọn và ghi câu trả lời đúng nhất vào ô:

Câu hỏi
Đáp án

1

2

3

4

5

6

Câu 3: Câu lệnh pascal nào sau đây là không hợp lệ?
a. While x>5 do x = x + 1;

b. While x<5 do x:=x+2;

c. While x>0 do x:= x – 2;

d. While x=10 do x:=x+3;

Câu 1: Câu lệnh Pascal nào sau đây là hợp lệ?
a. For i:=100 to 1 do write(‘Tin hoc’);

b. For i:=1.5 to 10.5 do s:=s+1;

c. For i:1 to 10 do writeln(‘HKII’);

d. For i:=1 to 15 do writeln(‘Lop 8’);

Câu 2: Sau khi thực hiện đoạn chương trình sau, giá trị của biến X bằng bao
nhiêu?
X:=0; For i:=1 to 10 do If ( i mod 2 = 0) then X:=X + I;
a. X=18

b. X = 20

c. X = 24

d. X = 30

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

b. Chưa biết số lần lặp

c. Biết trước số lần lặp nhưng nhỏ hơn 50 lần

d.Có số lần lặp khơng q 1000 lần

Câu 4: Các khai báo biến mảng trong Pascal, khai báo nào sau đây là hợp lệ?
a. Var X: array[1,50] of integer;

b. Var A: array[1…50] of real;

c. Var A: array[1.5 .. 50] of integer;

d. Var X: array[1..50] of real;

Câu 5: Câu lệnh Pascal nào sau đây là không hợp lệ?
a. For i:=1 to 15 do x: = x+2;

b. While ( n mod I <>0 ) do i:=i+1;

c. A: array[1..10] of real;

d. For i:=1 to 10 do begin tong:= tong+i;

II. THỰC HÀNH: (7Đ)
Câu 1: ( 3đ) Viết chương trình nhập vào số nguyên n. Tính và in ra màn hình N!
Câu 2: (4 đ) Viết chương trình nhập một mảng n số nguyên. In ra màn hình phần tử

lớn nhất và nhỏ nhất trong mảng.


ĐÁP ÁN, BIỂU ĐIỂM
ĐỀ KIỂM TRA HKII NĂM HỌC 20… – 20…
MƠN: TIN HỌC 8
I. TRẮC NGHIỆM: (3Đ)
Thí sinh chọn và ghi câu trả lời đúng nhất vào ô: mỗi câu đúng 0.5đ

Câu hỏi
1
Đáp án đề 1
d
Đáp án đề 2
a
II. THỰC HÀNH: (7Đ)

2
d
d

3
a
d

Câu 1:
Program cau1;
Var i,n, p:integer;
Begin
Writeln(‘Nhap n:’);

Readln(n);
p:=1;
For i:=1 to n do P:=p*i;
Writeln(n, ‘! = ’, p);
Readln;
End.
Câu 2:
Program Cau2;
Var a:array[1..100] of integer;
I,n,max,min: integer;
Begin
Writeln(‘Nhap n:’);
Readln(n);
For i:=1 to n do
Begin
Writeln(‘Nhap a[‘,I,’]:’);
Readln(a[i]);
End;

4
d
b

5
d
d

6
b
d

Max:=a[1];
Min:= a[1];
For i:=2 to n do
If a[i] > max then max:=a[i];
If a[i] < min then min:=a[i];
Writeln(‘So lon nhat trong day la:’, max);
Writeln(‘So be nhat trong day la:’, min);
Readln;
End.