đề kiểm tra tin hkII

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: (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