Các bạn tham khảo Đề kiểm tra 1 tiết HK2 môn Tin học lớp 8 năm 2019-2020 - THCS Bao La sau đây để biết được cấu trúc đề kiểm tra cũng như những nội dung chính được đề cập trong đề kiểm tra để từ đó có kế hoạch học tập và ôn kiểm tra một cách hiệu quả hơn.
TRƯỜNG THCS BAO LA KIỂM TRA TIẾT HK2 NĂM HỌC 2019-2020 MÔN: TIN HỌC - LỚP Thời gian: 45 phút (không kể thời gian phát đề) Họ tên: Lớp: Phần I Trắc nghiệm (2 điểm): Hãy điền đáp án vào bảng đáp án Câu Pascal sử dụng câu lệnh sau để lặp với số lần lặp biết trước? a if then b if then else c for d while Câu Pascal sử dụng câu lệnh sau để lặp với số lần lặp chưa biết trước? a if then b if then else c for d while Câu Lệnh lặp sau a For = to do; b For := to do; c While = ; d While := ; Câu Phát biểu sau đúng? a Phần mềm GeoGebra dùng để vẽ hình hình học b Phần mềm Finger Break Out dùng để quan sát thời gian trái đất c Phần mềm Pascal dùng để luyện gõ phím nhanh d Phần mềm Sun Times dùng để lập trình Câu Câu lệnh Pascal: While (3*5>=15) Writeln (3*5); a In số 15 hình lần b In số 15 hình lần c Khơng thực lệnh Writeln (3*5); d Lặp vô hạn lần lệnh Writeln (3*5); Câu 6: Trong câu lệnh lặp for….do pascal, vòng lặp, biến đếm thay đổi nào? a +1 b +1 -1 c Một giá trị d Một giá trị khác Câu Trong câu lệnh lặp For i:=1 to 20 Begin s:=s+i end; Câu lệnh ghép thực lần (nói cách khác, vòng lặp thực hiện)? a lần b không lần c 20 lần d 21 lần Câu Lệnh lặp với số lần chưa biết trước sau đúng? a For = to do; b For := to do; c While = ; d While := ; Câu Đáp án PHẦN II: Tự luận (8 điểm) Câu 1: Viết chương trình sử dụng lệnh lặp while…do tính tổng số chia hết cho dãy số nguyên X1, X2, , Xn Biết n, X1, X2, , Xn số nguyên nhập từ bàn phím (n>0) ? (4 điểm) Câu Viết chương trình sử dụng lệnh lặp for…do tìm số hoàn hảo nhỏ 1000, số hoàn hảo số tổng ước thực (4 điểm) BÀI LÀM ĐÁP ÁN: Phần I: Câu Đáp án c d b a d b c d Phần II: Câu 1: Chương trình (4 điểm) Var n, x, i, S: Integer; Begin Write ('Nhap n: '); Readln (n); i:= 0; S := 0; While i < n Begin i:= i + 1; Write ('Nhap so thu ',i,' = '); Readln (x); if x mod = then S := S + x; End; Writeln ('Tong cac so chia het cho la : ',S);Readln; End Cách chấm điểm: - Khai báo biến Integer: 0,5 điểm - Viết lệnh nhập giá trị cho biến n: 0,5 điểm - Viết lệnh gán khởi tạo giá trị ban đầu cho hai biến i S: 0,5 điểm - Viết lệnh While sử dụng lệnh ghép sau DO: điểm - Viết lệnh xuất giá trị biến S: 0,5 điểm Câu 2: Chương trình (4 điểm) Var n, i, j, s: integer; Begin Write (‘ban can tim so hoan hao nho hon bao nhieu?:’); readln(n); For i:=2 to n Begin S:=1; For j:= to (i div 2) If i mod j=0 then S:=s+j; If s=i then Writeln(i:7,’ la so hoan hao’); End; Readln End Ghi chú: Học sinh làm cách khác (sử dụng lệnh For do, khai báo tên biến khác với đáp án v v ) mà cho kết đạt điểm tối đa ... cho la : ',S);Readln; End Cách chấm điểm: - Khai báo biến Integer: 0,5 điểm - Viết lệnh nhập giá trị cho biến n: 0,5 điểm - Viết lệnh gán khởi tạo giá trị ban đầu cho hai biến i S: 0,5 điểm - Viết... DO: điểm - Viết lệnh xuất giá trị biến S: 0,5 điểm Câu 2: Chương trình (4 điểm) Var n, i, j, s: integer; Begin Write (‘ban can tim so hoan hao nho hon bao nhieu?:’); readln(n); For i: =2 to n Begin... nhieu?:’); readln(n); For i: =2 to n Begin S: =1; For j:= to (i div 2) If i mod j=0 then S:=s+j; If s=i then Writeln(i:7,’ la so hoan hao’); End; Readln End Ghi chú: Học sinh làm cách khác (sử dụng lệnh