- Viết được thuật toán dạng lặp với số lần chưa biết trước; - Hiểu và vận dụng khai báo và sử dụng biến mảng; 3.. Thái độ - Nghieâm tuùc trong Kieåm tra, coù tinh thaàn hoïc hoûi, saùng [r]
(1) Tin học lớp Tuaàn: 25 Trường PTDT Nội Trú An Lão Tieát 48 Ngày soạn: 20 02 09 KIEÅM TRA 01 TIEÁT I MUÏC TIEÂU Kiến thức - Biết cú pháp và công dụng câu lệnh lặp với số land chưa biết trước Kyõ naêng - Viết thuật toán dạng lặp với số lần chưa biết trước; - Hiểu và vận dụng khai báo và sử dụng biến mảng; Thái độ - Nghieâm tuùc Kieåm tra, coù tinh thaàn hoïc hoûi, saùng taïo II ĐỀ BAØI A Lyù thuyeát Câu 1: (1đ) Trình bày cú pháp và công dụng câu lệnh lặp với số lần chưa biết trước? Câu 2: (3đ) Cho các thuật toán sau: a) Thuật toán 1: Bước 1: s 10, x 0.5 Bước 2: Nếu s 5.2 , chuyển tới bước Bước 3: s s x và quay lại bước Bước 4: thông báo s và kết thúc thuật toán b) Thuật toán 2: Bước 1: s 10, n Bước 2: Nếu s 10 , chuyển tới bước Bước 3: n n , s s n quay lại bước Bước 4: thông báo s và kết thúc thuật toán Viết chương trình pascal thể thuật toán đó B Baøi taäp Câu 1: (1đ) Hãy lỗi đoạn lệnh sau đây: a) x:=10; while x:=10 x:=x+5; b) x:=10; while x=10 x=x+5; Câu 2: (2,5đ) Viết thuật toán kiểm tra số tự nhiên n nhập vào từ bàn phím có phải là số nguyên tố hay không Câu 3: (2,5đ) Cho dãy gồm n số thực và số thực x Viết chương trình nhập n số thực đó và đếm xem có bao nhiêu số dãy không lớn x III ĐÁP ÁN A LÝ THUYẾT: Câu 1: (1đ) Giaùo vieân giaûng daïy: Phaïm Thò Leä Trang Lop8.net 33 (2) Tin học lớp Trường PTDT Nội Trú An Lão * Cuù phaùp: while <ñieàu kieän> <caâu leänh>; Trong đó: Điều kiện thường là phép so sánh Caâu leänh: coù theå laø caâu leänh ñôn giaûn hay caâu leänh gheùp Câu lệnh này thực sau: Kieåm tra ñieàu kieän Nếu điều kiện SAI, câu lệnh bị bỏ qua và thực lệnh lặp kết thúc Nếu điều kiện đúng, thực câu lệnh và quay lại bước Câu 2: (3đ) Đoạn chương trình pascal tương ứng: a) S:=10; x:=0.5; While s>5.2 s:=s-x; Writeln(s); b) s:=10; n:=0; while s<10 begin n:=n+3; s:=s-n; end; writeln(s); B BÀI TẬP: Câu 1: (1đ) a) Sai, thừa dấu hai chấm câu lệnh điều kiện; b) Thiếu dấu hai chấm câu lệnh gán; Câu 2: (2,5đ) B1: Nhập số tự nhiên N từ bàn phím; B2: Nếu N Thông báo N không phải là số tự nhiên; Chuyển đến B4; B3: Nếu N>0; - i 2; - Trong N mod i<>0 còn đúng thì; - Nếu i=N thì thông báo N là số nguyên tố, chuyển đến B4 Ngược lại thông báo N không phải là số nguyên tố; B4: kết thúc; Câu 3: (2,5đ) * Bài giải: Program demso; Var x:real; N, soluong, i: integer; A: array [1 100] of real; Begin Writeln(‘nhap so phan tu cua day va so x de so sanh’); Readln(n,x); Writeln(‘hay nhap’, n); For i:=1 to n readln (a[i]); soluong:=0; Giaùo vieân giaûng daïy: Phaïm Thò Leä Trang Lop8.net 34 (3) Tin học lớp Trường PTDT Nội Trú An Lão for i:=1 to n if a[i]<=x then soluong: = soluong+1; writeln(‘trong day co’, soluong, ‘phan tu<’, x); readln; end IV THOÁNG KEÂ KEÁT QUAÛ LỚP 8A1 8A2 SÓ SOÁ GIOÛI KHAÙ TRUNG BÌNH YEÁU KEÙM V RUÙT KINH NGHIEÄM - — — —»«— — — Giaùo vieân giaûng daïy: Phaïm Thò Leä Trang Lop8.net 35 (4)