PHÒNG GD&ĐT SA THẦY
TRƯỜNG THCS SA NHƠN

KIỂM TRA CHẤT LƯỢNG HỌC KÌ II
Năm học 2015 - 2016
Môn: Tin học 8 Tiết ppct: 70
Thời gian: 45 phút (Thực hành trên máy)
Ngày kiểm tra: /5 /2016



Họ và tên:..............................
Lớp: ......................

Điểm
Lời phê của thầy (cô) giáo:



ĐỀ THỰC HÀNH:
Câu 1: (5.0 điểm) Sử dụng biến mảng viết chương trình nhập vào một dãy số gồm N số nguyên từ bàn phím. In ra màn hình giá trị lớn nhất của dãy số đó.

Câu 2: (5.0 điểm) Viết chương trình tính tổng sau: S=1+ 2 + 3 +...+ n sao cho tổng S nhỏ nhất >500 (với n là số nguyên được nhập vào từ bàn phím).


------------------- Hết --------------------





















(Đề này gồm 01 trang)
PHÒNG GD&ĐT SA THẦY
TRƯỜNG THCS SA NHƠN

KIỂM TRA CHẤT LƯỢNG HỌC KÌ II
Năm học 2015 - 2016
Môn: Tin học Lớp: 8
Thời gian: 45 phút (Thực hành trên máy)
Ngày kiểm tra: /05/2016


ĐÁP ÁN, BIỂU ĐIỂM
Câu
Đáp án
Điểm

1
(5.0 đ)
program Max;
uses crt;
Var
i, n, s, Max: integer;
A: array[1..100] of integer;
Begin
clrscr;
write(`Hay nhap do dai cua day so, N = `); readln(n);
writeln(`Nhap cac phan tu cua day so:`);
For i:=1 to n do
Begin
write(`a[`,i,`]=`);
readln(a[i]);
End; Min:=a[1];
For i:=2 to n do
Begin
if Max End;
writeln(`So lon nhat la Max = `,Max);
Readln
End.



0.5
0.5


0.75
0.25


1.0


0.5


1.0

0.5



2
Program tinh_tong;
var S,n: integer;
begin
S:=0; n:=1;
while S<=500 do
begin n:=n+1; S:=S+n
end;
writeln(`So n nho nhat de tong > 500 la `,n);
writeln(`Tong dau tien > 500 la `,S);
Readln;
end.

1.0


2.0


1.0

1.0



-------------- Hết --------------
(Đáp án này gồm có 01 trang)