PHÒNG GD&ĐT SA THẦY<br />
TRƯỜNG THCS SA NHƠN<br />
<br />
KIỂM TRA CHẤT LƯỢNG HỌC KÌ II<br />
Năm học 2017 - 2018<br />
Môn: Tin học 8 Tiết ppct: 70<br />
Thời gian: 45 phút (Thực hành trên máy)<br />
Ngày kiểm tra: /5 /2018<br />
<br />
Điểm<br />
<br />
Lời phê của thầy (cô) giáo:<br />
<br />
Họ và tên:..............................<br />
Lớp: ......................<br />
<br />
ĐỀ THỰC HÀNH:<br />
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<br />
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ố đó.<br />
<br />
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<br />
nhỏ nhất >500 (với n là số nguyên được nhập vào từ bàn phím).<br />
<br />
------------------- Hết --------------------<br />
<br />
(Đề này gồm 01 trang)<br />
<br />
PHÒNG GD&ĐT SA THẦY<br />
TRƯỜNG THCS SA NHƠN<br />
<br />
KIỂM TRA CHẤT LƯỢNG HỌC KÌ II<br />
Năm học 2017 - 2018<br />
Môn: Tin học Lớp: 8<br />
Thời gian: 45 phút (Thực hành trên máy)<br />
Ngày kiểm tra: /05/2018<br />
<br />
ĐÁP ÁN, BIỂU ĐIỂM<br />
Câu<br />
<br />
1<br />
(5.0 đ)<br />
<br />
2<br />
<br />
Đáp án<br />
program Max;<br />
uses crt;<br />
Var<br />
i, n, s, Max: integer;<br />
A: array[1..100] of integer;<br />
Begin<br />
clrscr;<br />
write('Hay nhap do dai cua day so, N = '); readln(n);<br />
writeln('Nhap cac phan tu cua day so:');<br />
For i:=1 to n do<br />
Begin<br />
write('a[',i,']=');<br />
readln(a[i]);<br />
End;<br />
Min:=a[1];<br />
For i:=2 to n do<br />
Begin<br />
if Max