Đề kiểm tra cuối học kì II môn Tin học 8 - Hồ Thị Bích Trâm (Có đáp án)

 Giáo án Tin học 9 Trường THCS Nguyễn Chí Thanh 
 KIỂM TRA CUỐI HỌC KÌ II
 TIN HỌC 8
 Thời lượng: 01 tiết; Tiết 69; Ngày soạn: 27/4/2021; Ngày dạy: /5/2021
 I. MỤC TIÊU
 Quabài học, HS rèn luyện phát triển các phẩm chất và năng lực sau:
 1. Phẩm chất:
 - Nghiêm túc, rèn luyện ý thức tự giác trong kiểm tra.
 2. Năng lực: 
 - Xử lí dãy số trong chương trình có sử dụng câu lệnh lặp với số lần biết, câu lệnh điều kiện.
 II. PHƯƠNG TIỆN VÀ HÌNH THỨC TỔ CHỨC DẠY HỌC
 1.Phương pháp, phương tiện dạy học: 
 * Phương pháp: 
 *Thiết bị dạy học: giáo án, đề kiểm tra, phòng máy.
 2. Hình thức tổ chức dạy học: 
 - Thực hành trên máy tính
 3. Chuẩn bị bài của HS:
 - Thuộc bài cũ, xem trước các nội dung đã học.
 III. TIẾN TRÌNH DẠY HỌC
 1. Ổn định lớp: Kiểm tra sĩ số lớp
 2. Kiểm tra 1 tiết (45 phút)
 3. Ma trận:
Chủ đề kiểm Nhận biết Thông hiểu Vận dụng Cộng
 tra Thấp Cao
 Chương KT, KN: Biết in KT, KN: Hiểu 
 trình máy và nhập giá trị cách thông báo 
 tính và dữ cho biến kết quả ra màn 
 liệu hình.
Số câu Số câu: 1b Số câu: 1e Số câu: 1b,e
Số điểm Số điểm: 2 Số điểm: 2 Số điểm: 4
TL% TL: 20% TL: 20% TL: 40%
 Biến và KT, KN: Biết KT, KN: Gán 
 hằng trong khai báo biến giá trị cho biến
 chương 
 trình
Số câu Số câu: 1a Số câu: 1d Số câu: 1a,d
Số điểm Số điểm: 1 Số điểm: 1 Số điểm: 2
TL% TL: 10% TL: 10% TL%: 20
 GV: Hồ Thị Bích Trâm 1 Giáo án Tin học 9 Trường THCS Nguyễn Chí Thanh 
ĐÁP ÁN VÀ BIỂU ĐIỂM :
Đề 1:
 Program Dayso; 
 Var Tong, min, i, n:integer; 
 A:array[1..100] of integer; (1a: 1đ) 
 Begin
 Write(‘ nhap do dai cua day, N=’); readln(n); (1b:1đ) 
 Writeln(‘ nhap cac phan tu cua day:’) (1b: 0,5đ) 
 For i:=1 to n do Begin
 Write (I,’.’); readln(A[i]) end; (1c:1đ) 
 Writeln(‘ In cac phan tu cua day:’) ; (1b: 0,5đ) 
 For i :=1 to n do write(A[i]:3); (1c: 1đ)
 Min:=a[1] ; (1d:0,5đ) 
 For i:= 2 to n do
 Min>a[i] then min:= a[i]; (1g: 1đ)
 writeln(‘ so nho nhat=’, Min); (1e: 1đ)
 Tong:=0; (1d: 0,5đ) 
 For i :=1 to n do 
 if (a[i[ mod 2) 0 then tong:= Tong+A[i]; (1h:1đ) 
 Writeln( ‘ Tong cac so lẻ trong day’, Tong ) (1e: 1đ) 
 Readln
 End. 
Đề 2:
 Program Dayso; 
 Var Tong, max, i, n:integer; 
 A:array[1..100] of integer; (1a: 1đ) 
 Begin
 Write(‘ nhap do dai cua day, N=’); readln(n); (1b:1đ) 
 Writeln(‘ nhap cac phan tu cua day:’) (1b: 0,5đ) 
 For i:=1 to n do Begin
 Write (I,’.’); readln(A[i]) end; (1c:1đ) 
 Writeln(‘ In cac phan tu cua day:’) ; (1b: 0,5đ) 
 For i :=1 to n do write(A[i]:3); (1c: 1đ)
 Max:=a[1] ; (1d:0,5đ) 
 For i:= 2 to n do
 Max<a[i] then max:= a[i]; (1g: 1đ)
 writeln(‘ so lon nhat=’, Max); (1e: 1đ)
 Tong:=0; (1d: 0,5đ) 
 For i :=1 to n do 
 if (a[i[ mod 2)= 0 then tong:= Tong+A[i]; (1h:1đ) 
GV: Hồ Thị Bích Trâm 3 Giáo án Tin học 9 Trường THCS Nguyễn Chí Thanh 
 - Giá trị lớn nhất của dãy
 - Tổng các số chẵn trong dãy
 Bài làm:
 Program Dayso; 
 Var Tong, max, i, n:integer; 
 A:array[1..100] of integer; 
 Begin
 Write(‘ nhap do dai cua day, N=’); readln(n); 
 Writeln(‘ nhap cac phan tu cua day:’) 
 For i:=1 to n do Begin
 Write (I,’.’); readln(A[i]) end; 
 Writeln(‘ In cac phan tu cua day:’) ; 
 For i :=1 to n do write(A[i]:3); 
 Max:=a[1] ; 
 For i:= 2 to n do
 Max<a[i] then max:= a[i]; 
 writeln(‘ so lon nhat=’, Max); 
 Tong:=0; 
 For i :=1 to n do 
 if (a[i[ mod 2)= 0 then tong:= Tong+A[i]; 
 Writeln( ‘ Tong cac so chan trong day’, Tong); 
 Readln
 End. 
 Đề 2: 
 Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số 
 (độ dài của dãy cũng được nhập từ bàn phím) và in ra màn hình:
 - Dãy số vừa nhập
 - Giá trị nhỏ nhất của dãy
 - Tổng các số lẻ trong dãy
 Bài làm:
 Program Dayso; 
 Var Tong, min, i, n:integer; 
 A:array[1..100] of integer; 
 Begin
 Write(‘ nhap do dai cua day, N=’); readln(n); 
 Writeln(‘ nhap cac phan tu cua day:’) 
 For i:=1 to n do Begin
GV: Hồ Thị Bích Trâm 5