Đề kiểm tra môn Tin học lớp 8 - Tiết 51 – Năm học 2016 - 2017

MA TRẬN VÀ ĐỀ KIỂM TRA 1 TIẾT – MÔN TIN HỌC LỚP 8 (TIẾT 51) NĂM HỌC 2016 - 2017 I. MA TRẬN ĐỀ KIỂM TRA VÀ BẢNG MÔ TẢ Chủ đề Mức độ Tổng điểm Nhận biết Thông hiểu Vận dụng thấp VD cao TL TL TL TL Câu lệnh lặp For Số câu Số điểm: Tỉ lệ: Câu: Biết được cấu trúc và hoạt động câu lệnh lặp 1 1 10% 1a Tính được giá trị của các biến sau mỗi lần lặp 1 2 20% 1b Viết chương trình nhập số nguyên, tính giai thừa, Hiện thị các số nguyên thỏa mãn điều kiên 2 4 40% 3a,b Tìm các ước của số 1 nguyên 1 1 10% 3c 5 8 80% 1a,b,3a,b,3c Câu lệnh lặp while Số câu Số điểm: Tỉ lệ: Câu: Tính được giá trị của các biến sau mỗi lần lặp 1 2 20% 2 1 2 20% 2 Tổng số câu Tổng số điểm Tỉ lệ 1 1 10% 2 40 40% 2 40 40% 1 2 20% 6 10 100% ĐÁP ÁN Đáp án đề 1 Điểm Câu 1: -Trong Pascal, câu lệnh sau viết sai. - Sửa: for i: = 1 to 20 do writeln(‘A’); Cho đoạn chương trình: - Vòng lặp trên thực hiện 3 vòng lặp. - Sau khi thực hiện đoạn chương trình trên, giá trị của biến j =-2 Câu 2: Cho đoạn chương trình sau hãy tìm giá trị của các biến a, b sau mỗi vòng lặp Vòng lặp 1: a=11; b=19; Vòng lặp 2: a= 13; b=19 Câu 3: Viết chương trình thực hiện các công việc sau: Program songuyen; Uses Crt; Var a,i,d, Tc: Integer; Begin Clrscr; Write( ‘ Moi nhap so nguyen a= ‘); Readln(a); Tc:=1; d:=0; For i:= 1 to a do Begin Tc:=Tc*i; If i mod 3 = 0 then Write (i:3); If a mod i = 0 then d:=d+1; End; Writeln (‘ Tich cac so nguyen tu 1-> ‘,a,’ la : ‘, Tc); Writeln (‘ so ‘, a,’ chia het cho ‘, d,’ so nguyen duong’); Readln; End. 0.5 0.5 1 1 1 1 1 1 1 1 1 ĐÁP ÁN Đáp án đề 2 Điểm Câu 1: -Trong Pascal, câu lệnh sau viết sai. - Sửa: for i: = 1 to 4 do writeln(‘A’); Cho đoạn chương trình: - Vòng lặp trên thực hiện 3 vòng lặp. - Sau khi thực hiện đoạn chương trình trên, giá trị của biến j =-5 Câu 2: Cho đoạn chương trình sau hãy tìm giá trị của các biến a, b sau mỗi vòng lặp Vòng lặp 1: a=8; b=22; Vòng lặp 2: a= 13; b=22 Câu 3: Viết chương trình thực hiện các công việc sau: Program songuyen; Uses Crt; Var a,i,d, Tc: Integer; Begin Clrscr; Write( ‘ Moi nhap so nguyen a= ‘); Readln(a); Tc:=1; d:=0; For i:= 1 to a do Begin Tc:=Tc*i; If i mod 4 = 0 then Write (i:3); If a mod i 0 then d:=d+1; End; Writeln (‘ Tich cac so nguyen tu 1-> ‘,a,’ la : ‘, Tc); Writeln (‘ so ‘, a,’ khong chia het cho ‘, d,’ so nguyen duong’); Readln; End. 0.5 0.5 1 1 1 1 1 1 1 1 1 ĐỀ KIỂM TRA MÔN TIN HỌC LỚP 8 TIẾT 51 – NĂM HỌC 2016- 2017 Thứ 2 ngày 13 tháng 3 năm 2017 Họ và tên:. Lớp: 8.. Điểm Nhận xét ĐỀ RA: Câu 1: Hãy trả lời các câu hỏi sau: a) Trong Pascal, câu lệnh sau đây được viết đúng hay sai?. Nếu sai hãy viết lại cho đúng for i to 20 do writeln(‘A’); b) Cho đoạn chương trình: J:= 10; For i:= 3 to 5 do J:= j - i; - Tính số vòng lặp của vòng của vòng lặp trên. - Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu? Câu 2: Cho đoạn chương trình sau hãy tìm giá trị của các biến a, b sau mỗi vòng lặp T:= 18; a:= 1; b: = 15; While T > 9 do Begin T:= T- 8; a:= a+T; If T mod 5 = 0 then b := b +4; End; Câu 3: Viết chương trình thực hiện các công việc sau: Nhập vào 1 số nguyên a (1a In ra màn hình tất cả các số nguyên dương chia hết cho 3 <= a. Số a chia hết cho bao nhiêu số nguyên dương. BÀI LÀM ....................................................................................................................................................................................................... ĐỀ KIỂM TRA MÔN TIN HỌC LỚP 8 TIẾT 51 – NĂM HỌC 2016- 2017 Thứ 2 ngày 13 tháng 3 năm 2017 Họ và tên:. Lớp: 8.. Điểm Nhận xét ĐỀ RA: Câu 1: Hãy trả lời các câu hỏi sau: a) Trong Pascal, câu lệnh sau đây được viết đúng hay sai?. Nếu sai hãy viết lại cho đúng for i:= 4 to 1 do writeln(‘A’); b) Cho đoạn chương trình: J:= 10; For i:= 3 to 5 do J:= j -5; - Tính số vòng lặp của vòng của vòng lặp trên. - Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu? Câu 2: Cho đoạn chương trình sau hãy tìm giá trị của các biến a, b sau mỗi vòng lặp T:= 9; a:= 1; b: = 15; While T > 6 do Begin T:= T- 2; a:= a+T; If T mod 7 = 0 then b := b +T; End; Câu 3: Viết chương trình thực hiện các công việc sau: Nhập vào 1 số nguyên a (1a In ra màn hình tất cả các số nguyên dương chia hết cho 4 <= a. Số a không chia hết cho bao nhiêu số nguyên dương <a BÀI LÀM ........................................................................................................................................................................................................................................................................................................................................................ ĐỀ KIỂM TRA MÔN TIN HỌC LỚP 8 TIẾT 51 – NĂM HỌC 2016- 2017 Thứ 2 ngày 13 tháng 3 năm 2017 Họ và tên:. Lớp: 8.. Điểm Nhận xét ĐỀ RA: Câu 1: Hãy trả lời các câu hỏi sau: a) Trong Pascal, câu lệnh sau đây được viết đúng hay sai?. Nếu sai hyaxvieets lại cho đúng for i := 1 to 10 to writeln(‘A’); b) Cho đoạn chương trình: J:= 13; For i:= 5 to 6 do J:= j -6; - Tính số vòng lặp của vòng của vòng lặp trên. - Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu? Câu 2: Cho đoạn chương trình sau hãy tìm giá trị của các biến a, b sau mỗi vòng lặp T:= 10; a:= 1; b: = 15; While T > 3 do Begin T:= T- 6; a:= a+T; If T mod 2 = 0 then b := b +4; End; Câu 3: Viết chương trình thực hiện các công việc sau: Nhập vào 1 số nguyên a (1a. In ra màn hình tất cả các số nguyên dương <=a. Từ 1 -> a có bao nhiêu số nguyên dương chia hết cho 5 BÀI LÀM ........................................................................................................................ ĐỀ KIỂM TRA MÔN TIN HỌC LỚP 8 TIẾT 51 – NĂM HỌC 2016- 2017 Thứ 2 ngày 13 tháng 3 năm 2017 Họ và tên:. Lớp: 8.. Điểm Nhận xét ĐỀ RA: Câu 1: Hãy trả lời các câu hỏi sau: a) Trong Pascal, câu lệnh sau đây được viết đúng hay sai?. Nếu sai hyaxvieets lại cho đúng for i := 1 to 10 while writeln(‘A’); b) Cho đoạn chương trình: J:= 10; For i:= 5 to 6 do J:= j -6; - Tính số vòng lặp của vòng của vòng lặp trên. - Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu? Câu 2: Cho đoạn chương trình sau hãy tìm giá trị của các biến a, b sau mỗi vòng lặp T:= 10; a:= 1; b: = 15; While T > 5 do Begin T:= T- 4; a:= a+T; If T mod 2 0 then b := b +4; End; Câu 3: Viết chương trình thực hiện các công việc sau: Nhập vào 1 số nguyên a (1a. In ra màn hình tất cả các số nguyên dương <=a. Từ 1-> a có bao nhiêu số nguyên dương chia hết cho 6 . BÀI LÀM ........................................................................................................................................................................................................