Đề kiểm tra học kì II năm học 2015 - 2016 môn: Tin học – Lớp 8 (đề 1) (thời gian 45 phút)

PHÒNG GD&ĐT LƯƠNG SƠN
TRƯỜNG THCS TRUNG SƠN
ĐỀ KIỂM TRA HỌC KÌ II
Năm học 2015 - 2016
MÔN: TIN HỌC – LỚP 8 (ĐỀ 1)
(Thời gian 45 phút)
Câu 1. (3đ) 
Cho biết cú pháp khai báo biến mảng? Giải thích rõ các thành phần trong câu lênh?
Câu 2.(2đ) Sửa lại các khai báo sau cho đúng
a) var x:array[10,15] of integer;
b) var x:array[2..13.2] of real;
Câu 3. (2đ) Mỗi câu lệnh sau máy tính sẽ thực hiện bao nhiêu vòng lặp?
a) For i:=10 to 20 do m:=m+5;
b) X:=5 while x<7 do x:=x+1;
Câu 4. (3đ) 
Viết chương trình nhập một dãy số nguyên từ bàn phím? In ra màn hình giá trị lớn nhất của dãy.
PHÒNG GD&ĐT LƯƠNG SƠN
TRƯỜNG THCS TRUNG SƠN
ĐỀ KIỂM TRA HỌC KÌ II
Năm học 2015 - 2016
MÔN: TIN HỌC – LỚP 8 (ĐỀ 2)
(Thời gian 45 phút)
Câu 1.(3đ) 
Cho biết câu lệnh lặp với số lần biết trước? Giải thích rõ các thành phần trong câu lệnh?
Câu 2.(2đ) Sửa lại các khai báo sau cho đúng
a) var x:array[15..10] of integer;
b) var x:array[2.5..13.2] of real;
Câu 3. (2đ) Mỗi câu lệnh sau máy tính sẽ thực hiện bao nhiêu vòng lặp?
a) For i:=10 to 20 do m:=m+5;
b) X:=5 while x<7 do x:=x+1;
Câu 4. (3đ) 
Viết chương trình nhập một dãy số thực từ bàn phím? In ra màn hình giá trị nhỏ nhất của dãy.
PHÒNG GD&ĐT LƯƠNG SƠN
TRƯỜNG THCS TRUNG SƠN
ĐỀ KIỂM TRA HỌC KÌ II
Năm học 2015 - 2016
MÔN: TIN HỌC – LỚP 8 (ĐỀ 3)
(Thời gian 45 phút)
Câu 1. (3đ) 
Cho biết câu lệnh lặp với số lần biết trước? Điều kiện của biến đếm là gì? Số vòng lặp được tính như thế nào?
Câu 2.(2đ) Sửa lại các khai báo sau cho đúng
a) var x:array[10..5] of integer;
b) var x:array[2.1..8.2] of real;
Câu 3. (2đ) Mỗi câu lệnh sau máy tính sẽ thực hiện bao nhiêu vòng lặp?
a) For i:=10 to 20 do m:=m+5;
b) X:=5 while x<7 do x:=x+1;
Câu 4. (3đ)
Viết chương trình nhập một dãy số thực từ bàn phím? In ra màn hình giá trị nhỏ nhất của dãy.
PHÒNG GD&ĐT LƯƠNG SƠN
TRƯỜNG THCS TRUNG SƠN
HD CHẤM KIỂM TRA HỌC KÌ II
Năm học 2015 - 2016
MÔN: TIN HỌC – LỚP 8 (ĐỀ 1)
Câu 1. (3đ) 
*Cú pháp khai báo biến mảng trong Pascal: (1đ)
Var :Array[] of ;
*Giải thích
Chỉ số đầu, chỉ số cuối là số nguyên, chỉ số đầu<=Chỉ số cuối	(1đ)
kiểu dữ liệu thuộc một trong hai kiểu Integer hoặc Real (1đ)
Câu 2.(2đ) mỗi ý đúng 1 điểm
a) var x:array[10..15] of integer;
b) var x:array[2..13] of real;
Câu 3. (2đ) mỗi ý đúng 1 điểm
a) For i:=10 to 20 do m:=m+5; Số vòng lặp là 20-10+1= 10 vòng lặp
b) X:=5 while x<7 do x:=x+1;
Lần 1: x = 6
Lần 2: x = 7
Số vòng lặp là 2 lần
Câu 4. phần khai báo 1 đ, nhập được dãy 1 đ, in đúng giá trị max 1 đ
var a:array[1..100] of integer; 
 n,i:integer; 
 max : integer; 
begin 
 write('n= '); readln(n); 
 for i:= 1 to n do 
 begin 
 write('a[',i,']='); readln(a[i]); 
 end; 
max:=a[1]; 
for i:=2 to n do 
if a[i]>max then max:=a[i]; 
writeln('so lon nhat cua day so la ', max); 
readln 
end. 
PHÒNG GD&ĐT LƯƠNG SƠN
TRƯỜNG THCS TRUNG SƠN
HD CHẤM KIỂM TRA HỌC KÌ II
Năm học 2015 - 2016
MÔN: TIN HỌC – LỚP 8 (ĐỀ 2)
Câu 1.(3đ) 
*Câu lệnh lặp với số lần biết trước trong Pascal thường có dạng: (1đ)
For := to do ;
Biến đếm là kiểu số nguyên, giá trị đầu <=giá trị cuối	 (1đ)
Số lần lặp là: giá trị cuối - giá trị đầu +1	 (1đ)
Câu 2(2đ) mỗi ý đúng 1 điểm
a) var x:array[10..15] of integer;
b) var x:array[2..13] of real;
Câu 3 (2đ) mỗi ý đúng 1 điểm
a) For i:=10 to 20 do m:=m+5; Số vòng lặp là 20-10+1= 10 vòng lặp
b) X:=5 while x<7 do x:=x+1;
Lần 1: x = 6
Lần 2: x = 7
Số vòng lặp là 2 lần
Câu 4. phần khai báo 1 đ, nhập được dãy 1 đ, tính đúng trung bình 1đ
var a:array[1..100] of real; 
 n,i:integer; 
 min: real; 
begin 
 write('n= '); readln(n); 
 for i:= 1 to n do 
 begin 
 write('a[',i,']='); readln(a[i]); 
 end; 
min:=a[1]; 
for i:=2 to n do 
if min< a[i] then min:= a[i];
writeln(‘ so nho nhat cua day la ',min); 
readln 
end. 
PHÒNG GD&ĐT LƯƠNG SƠN
TRƯỜNG THCS TRUNG SƠN
HD CHẤM KIỂM TRA HỌC KÌ II
Năm học 2015 - 2016
MÔN: TIN HỌC – LỚP 8 (ĐỀ 3)
Câu 1. (3đ) Câu lệnh lặp với số lần biết trước
For := to do ; (1đ)
Điều kiện của biến đếm là kiểu số nguyên, giá trị đầu <=giá trị cuối (1đ)
Số lần lặp là: giá trị cuối - giá trị đầu +1	 (1đ)
Câu 2.(2đ) mỗi ý đúng 1 điểm
a) var x:array[5..10] of integer;
b) var x:array[2..8] of real;
Câu 3. (2đ) mỗi ý đúng 1 điểm
a) For i:=10 to 20 do m:=m+5; Số vòng lặp là 20-10+1= 10 vòng lặp
b) X:=5 while x<7 do x:=x+1;
Lần 1: x = 6
Lần 2: x = 7
Số vòng lặp là 2 lần
Câu 4. phần khai báo 1 đ, nhập được dãy 1 đ, tính đúng trung bình 1đ
var a:array[1..100] of real; 
 n,i:integer; 
 min: real; 
begin 
 write('n= '); readln(n); 
 for i:= 1 to n do 
 begin 
 write('a[',i,']='); readln(a[i]); 
 end; 
min:=a[1]; 
for i:=2 to n do 
if min< a[i] then min:= a[i];
writeln(‘ so nho nhat cua day la ',min); 
readln 
end.