Tin học lớp 8 Trường PTDT Nội Trú An Lão Tuần: 25 Tiết 48 Ngày soạn: 20 02 09 I. MỤC TIÊU 1. Kiến thức - Biết cú pháp và cơng dụng của câu lệnh lặp với số land chưa biết trước. 2. Kỹ năng - Viết được thuật tố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 độ - Nghiêm túc trong Kiểm tra, có tinh thần học hỏi, sáng tạo . II. ĐỀ BÀI A. Lý thuyết Câu 1: (1đ) Trình bày cú pháp và cơng dụng của 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 tốn sau: a) Thuật tốn 1: Bước 1: 10, 0.5s x¬ ¬ Bước 2: Nếu 5.2s ≤ , chuyển tới bước 4. Bước 3: s s x¬ − và quay lại bước 2. Bước 4: thơng báo s và kết thúc thuật tốn. b) Thuật tốn 2: Bước 1: 10, 0s n¬ ¬ . Bước 2: Nếu 10s ≥ , chuyển tới bước 4. Bước 3: 3n n ¬ + , s s n¬ − quay lại bước 2. Bước 4: thơng báo s và kết thúc thuật tốn. Viết chương trình pascal thể hiện thuật tốn đó. B. Bài tập Câu 1: (1đ) Hãy chỉ ra lỗi của đoạn lệnh sau đây: a) x:=10; while x:=10 do x:=x+5; b) x:=10; while x=10 do x=x+5; Câu 2: (2,5đ) Viết thuật tốn kiểm tra một số tự nhiên n được nhập vào từ bàn phím có phải là số ngun tố hay khơng. Câu 3: (2,5đ) Cho một dãy gồm n số thực và một số thực x. Viết chương trình nhập n số thực đó và đếm xem có bao nhiêu số trong dãy khơng lớn hơn x. III. ĐÁP ÁN A. LÝ THUYẾT: Câu 1: (1đ) Giáo viên giảng dạy: Phạm Thò Lệ Trang 33 KIỂM TRA 01 TIẾT Tin học lớp 8 Trường PTDT Nội Trú An Lão * Cú pháp: while <điều kiện> do <câu lệnh>; Trong đó: Điều kiện thường là một phép so sánh. Câu lệnh: có thể là câu lệnh đơn giản hay câu lệnh ghép. Câu lệnh này được thực hiện như sau: 1. Kiểm tra điều kiện. 2. Nếu điều kiện SAI, câu lệnh sẽ bò bỏ qua và thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1. Câu 2: (3đ) Đoạn chương trình pascal tương ứng: a) S:=10; x:=0.5; While s>5.2 do s:=s-x; Writeln(s); b) s:=10; n:=0; while s<10 do 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 trong câu lệnh điều kiện; b) Thiếu dấu hai chấm trong 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 0≤ Thơng báo N khơng phải là số tự nhiên; Chuyển đến B4; B3: Nếu N>0; - 2;i ¬ - Trong khi N mod i<>0 còn đúng thì; - Nếu i=N thì thơng báo N là số ngun tố, rồi chuyển đến B4. Ngược lại thơng báo N khơng phải là số ngun 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 do readln (a[i]); soluong:=0; Giáo viên giảng dạy: Phạm Thò Lệ Trang 34 Tin học lớp 8 Trường PTDT Nội Trú An Lão for i:=1 to n do if a[i]<=x then soluong: = soluong+1; writeln(‘trong day co’, soluong, ‘phan tu<’, x); readln; end. IV. THỐNG KÊ KẾT QUẢ LỚP SĨ SỐ GIỎI KHÁ TRUNG BÌNH YẾU KÉM 8A1 8A2 V. RÚT KINH NGHIỆM — — —»«— — — Giáo viên giảng dạy: Phạm Thò Lệ Trang 35 . 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