Đề kiểm tra môn Tin học Lớp 8 - Học kỳ II - Năm học 2009-2010

Trường THCS Cổ Lũng
ĐỀ KIỂM TRA HỌC KỲ II.
NĂM HỌC 2009-2010. MÔN TIN HỌC – LỚP 8
THỜI GIAN LÀM BÀI : 45 PHÚT
Câu 1: (3 Điểm) 
Trong từng đoạn chương trình Pascal sau đây hãy cho biết lệnh Writeln in ra màn hình giá trị của i, j, k là bao nhiêu? 
a/ Đoạn 1: 
j:= 3; k:= 5;
For i:= 1 to 5 do 
Begin j:= j + 1; k:= k + j; end;
Writeln(i, j, k);
b/ Đoạn 2:
i:= 1; j:= 3; k:= 5
While i < 6 do 
Begin i:= i + 1; j:=j + 1; k:= k + j; end;
Writeln(i, j, k);
Câu 2: (3 Điểm) 
Hãy dùng câu lệnh While  do để viết chương trình tính tổng của các số nguyên từ 10 đến 20. 
Câu 3: (4 Điểm) 
Viết chương trình sử dụng biến mảng để tính giá trị trung bình cộng của N số nguyên được nhập từ bàn phím.
__________________Hết___________________
Trường THCS Lộc Bổn
ĐỀ KIỂM TRA HỌC KỲ II.
NĂM HỌC 2009-2010. MÔN TIN HỌC – LỚP 8
THỜI GIAN LÀM BÀI : 45 PHÚT
Câu 1: (4 Điểm) 
Trong từng đoạn chương trình Pascal sau đây hãy cho biết lệnh Writeln in ra màn hình giá trị của i, j, k là bao nhiêu? 
a/ Đoạn 1: 
j:= 3; k:= 5;
For i:= 1 to 5 do 
Begin j:= j + 1; k:= k + j; end;
Writeln(i, j, k);
b/ Đoạn 2:
i:= 3; j:= 4; k:= 5
While i <= 8 do 
Begin i:= i + 1; j:= j + 1; k:= k + j; end;
Writeln(i, j, k);
Câu 2: (2 Điểm) 
Hãy dùng câu lệnh While  do để viết chương trình tính tổng của các số nguyên từ 10 đến 20. 
Câu 3: (4 Điểm) 
Viết chương trình sử dụng biến mảng để tính giá trị trung bình cộng của N số nguyên được nhập từ bàn phím.
__________________Hết___________________
Trường THCS Lộc Bổn
ĐÁP ÁN 
NĂM HỌC 2009-2010. MÔN TIN HỌC – LỚP 8
THỜI GIAN LÀM BÀI : 90 PHÚT
Câu 1
a/ i = 1 2 3 4 5
 j = 4 5 6 7 8
 k = 9 14 20 27 35
1,5 ĐIỂM
b/ i = 4 5 6 7 8
 j = 5 6 7 8 9
 k =10 16 23 31 40
1,5 ĐIỂM
Câu 2
Program Tinh_tong;
Var i : Integer;
 S : Longint;
Begin
S:= 0; i:= 10
While i <= 20 do
Begin S:= S + i; i:= i + 1; end;
Writeln(S);
Readln
End. 
3 ĐIỂM
Câu 3
Program Tinh_TB;
Uses crt;
Var n, i : Integer;
 TB : real; 
 A: array[1..100] of integer;
Begin
Clrscr;
Write(‘Nhap so phan tu cua mang, n=’); readln(n);
TB:=0;
For i:=1 to n do
Begin
Write(‘Nhap gia tri thu ‘,i,’ cua mang, a[‘,i,’]=’); readln(a[i]); TB:=TB + a[i];
End;
TB:=TB/n;
Writeln(Trung binh =’,TB:10:2);
Readln
End.
4 ĐIỂM