Đề kiểm tra học kỳ II môn Tin học 8

Phòng giáo dục huyện 
Trường THCS 
ĐỀ KIỂM TRA HỌC KỲ II 
Môn: Tin học 8 – Thực hành
Thời gian làm bài: 20 phút
(Học sinh chọn 1 trong các đề sau)
§Ò 1:
Viết chương trình nhập vào 1 dãy gồm n số (n được nhập từ bàn phím). Tìm giá trị lớn nhất trong dãy vừa nhập.
§Ò 2:
Viết chương trình nhập vào 1 dãy gồm n số (n được nhập từ bàn phím). Tìm giá trị nhỏ nhất trong dãy vừa nhập.
§Ò 3:
Viết chương trình nhập vào 1 dãy gồm n số (n được nhập từ bàn phím). Đếm xem trong dãy có bao nhiêu số âm, bao nhiêu số dương. (Biết số âm là những số 0)
§Ò 4:
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).
ĐÁP ÁN ĐỀ TIN 8
ĐỀ 1
ĐỀ 2
- Phần khai báo đúng đạt 3đ.
program Max;
uses crt;
Var
 i, n, Max: integer;
 A: array[1..100] of integer;
- Phần thân chương trình sẽ tương tự dưới đây.
+ HS viết chạy chương trình nhập được n, dãy số đạt 3đ.
+ Tìm được số lớn nhất đạt 3đ.
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;
 Max:=a[1];
 for i:=2 to n do 
 begin if Max<a[i] then Max:=a[i];
 end;
 write('So lon nhat la Max = ',Max);
 readln
End.
- Phần khai báo đúng đạt 3đ.
program Min;
uses crt;
Var
 i, n, Min: integer;
 A: array[1..100] of integer;
- Phần thân chương trình sẽ tương tự dưới đây.
+ HS viết chạy chương trình nhập được n, dãy số đạt 3đ.
+ Tìm được số nhỏ nhất đạt 3đ.
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 Min> a[i] then Min:=a[i];
 end;
 write('So nho nhat la Min = ',Min);
 readln
End.
ĐỀ 3:
ĐỀ 4:
- Phần khai báo đúng đạt 3đ.
program DE3;
uses crt;
Var
 i, n, Am, Duong: integer;
 A: array[1..100] of integer;
- Phần thân chương trình sẽ tương tự dưới đây.
+ HS viết chạy chương trình nhập được n, dãy số (3đ).
+ Đếm đượcbao nhiêu số âm, dương (3đ).
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;
 Am:=0; Duong:=0;
 for i:=1 to n do 
 begin 
if a[i]>0 then Duong:=Duong+1
else Am:=Am+1;
 end;
 write(‘Day so vua nhap co’,Am, ‘so am’);
 write(‘Day so vua nhap co’,Duong, ‘so duong’);
 readln
End.
Program cau_2;
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 > 550 la ',S);	Readln;
end.
MA TRẬN ĐỀ TIN 8
Nội dung
Nhận biết
Thông hiểu
Vận dụng
Làm việc với dãy số
Đề 1,2,3
 mỗi đề 10 đ
Lặp với số lần chưa viết trước
Đề 4 
10đ
Tổng
4 đề
Mỗi đề10 đ