Đề kiểm tra học kì iII năm học: 2014-2015 môn: Tin học lớp 8

PHÒNG GD& ĐT TRỰC NINH
TRƯỜNG THCS TRỰC CÁT
=======&=======
ĐỀ KIỂM TRA HỌC KÌ II
NĂM HỌC: 2014-2015
MÔN: TIN HỌC LỚP 8
Thời gian làm bài: 45 phút.
Họ và tên: ..
Lớp : ..
Điểm
A/TRẮC NGHIỆM KHÁCH QUAN: Hãy chọn một đáp án đúng nhất cho các câu sau đây:
Câu 1. Trong câu lệnh lặp: for n:= 1 to 6 do begin ... end;
Câu lệnh ghép được thực hiện bao nhiêu lần?
A..7 lần;	B. 6 lần;	C. 5 lần;	D.Không lần nào;
Câu 2. Sau khi thực hiện chương trình dưới đây, giá trị của biến j bằng bao nhiêu?
j:= 1; 
for i:= 0 to 10 do j:= j+1;
	A.12;	B..13	C.11	D.14
Câu 3. Hãy cho biết chương trình dưới đây sẽ thực hiện bao nhiêu vòng lặp khi thực hiện đoạn chương trình ?	n:=10; T:=100;
While n>10 do n:=n+5; T:=T - n;
	A. 0;	B. 4	C. 6	D. 10
Câu 4. Trong Pascal, câu lệnh khai báo biến mảng nào sau đây đúng?
A. var a : array[10..1] of integer;	C. var c: array[1..15] of integer;	
B. var b: array(1..100) of real;	D. var d: array[-2..-5] of real;
B/ TỰ LUẬN:
Câu 5. Cho thuật toán sau:
	B1: j ß 0; T ß 105;	
	B2: Nếu T< 20 thì chuyển qua B4;	
	B3: j ß j + 5; T ß T – j;	
	B4: In ra kết quả T và j;	
a. Hãy cho biết, khi thực hiện thuật toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp và giá trị của T và j là bao nhiêu.
Câu 6. Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím 20 phần tử của một dãy số ?
BÀI LÀM
..
.
.
.
.
..
.
.
.
.
.
.
.
.
.
..
.
.
.
.
..
.
.
.
.
ĐÁP ÁN VÀ BIỂU ĐIỂM 
A/TRẮC NGHIỆM KHÁCH QUAN: (4 điểm – mỗi câu đúng 1,0 điểm).
Câu 
Câu1
Câu2
Câu3
Câu4
Đáp án
B
A
A
C
B/ TỰ LUẬN: 6 điểm
CÂU
ĐÁP ÁN
ĐIỂM
Câu 1
( 3 đ)
a
- Khi thực hiện thuật toán trên, máy tính sẽ thực hiện 06 vòng lặp.
0.5
- T = 0; j = 30.
0.5
b
Đoạn chương trình thể hiện thuật toán:
j := 0;
0.5
T := 105;
0.5
While T >= 20 do begin j := j + 5; T := T - j; end;
0.5
Write(T); write(j);
0.5
Câu 2
( 3 đ)
Program day_so;
Uses crt;
Var	
 N,i:integer;
	A:array[1..20] of integer;
Begin
	Clrscr;
	Writeln(‘Nhap day so’);
	For i:=1 to 20 do
	Begin
	Write(‘A[‘,i,’]=’);
	Readln(A[i]);
	End;
	Writeln(‘Day so da nhap’);
	For i:=1 to 20 do
	Write(A[i],’ ‘);
	Readln;
End.
0,25
0,25
0,5
0,5
0,5
0,5
0,5