Kiến thức Viết chương trình Pascal sử dụng câu lệnh lặp với số lần chưa biết trước.. Kỹ Năng Rèn luyện khả năng đọc chương trình, tìm hiểu tác dụng và kết hợp các câu lệnh.[r]
(1)Trường THCS Sơn Tiến Gi¸o viªn: Ph¹m TuÊn Anh D¹y líp: 8A; 8B; 8E Ngµy so¹n: 30/01/2010 TiÕt PPCT: 44 Ngµy d¹y: 03/02/2010 Bµi thùc hµnh 6: Sö dông lÖnh lÆp while (T2) I Mục tiêu: Kiến thức Viết chương trình Pascal sử dụng câu lệnh lặp với số lần chưa biết trước Kỹ Năng Rèn luyện khả đọc chương trình, tìm hiểu tác dụng và kết hợp các câu lệnh Thái độ: Nghiêm túc II Chuẩn bị: ChuÈn bÞ cña GV: - Gi¸o ¸n, SGK, phßng m¸y, phÇn mÒm pascal ChuÈn bÞ cña HS: - SGK, vë ghi, bót III Tiến trình lên lớp: HOẠT ĐỘNG CỦA THẦY VÀ TRÒ Hoạt động 1: Bài GV: Đưa bài tập SGK ? Gọi học sinh nêu ý tưởng - GV hướng dẫn HS: Làm bài tập Hoạt động 2: HS: Là các ý a, b, c vào máy GV: kiểm tra đánh giá NỘI DUNG KIẾN THỨC Bài Tìm hiểu chương trình nhận biết 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 Ý tưởng: Kiểm tra N có chia hết cho các số tự nhiên ≤ i ≤ N hay không Kiểm tra tính chia hết phép chia lấy phần dư (mod) a) Đọc và tìm hiểu ý nghĩa câu lệnh chương trình sau đây: Uses Crt; Var n,i:integer; Begin Clrscr; write('Nhap vao mot so nguyen: ');readln(n); If n<=1 then writeln('N khong la so nguyen to') else begin i:=2; while (n mod i<>0) i:=i+1; if i=n then writeln(n,' la so nguyen to!') else writeln(n,' khong phai la so nguyen to!'); end; readln end Gi¸o ¸n tin häc líp Lop8.net (2) Trường THCS Sơn Tiến b) Gi¸o viªn: Ph¹m TuÊn Anh Gõ, dịch và chạy thử chương trình với vài độ chính xác khác III Củng cố, hướng dẫn học nhà: - Hiểu các hoạt động lặp với số lần chưa biết trước - Biết sử dụng câu lệnh while Hướng dẫn học nhà - Về nhà xem lại bài học tiết sau chúng ta ch÷a bµi tËp Gi¸o ¸n tin häc líp Lop8.net (3)