Bài mới : Hoạt động của giáo viên Hoạt động của học sinh Nội dung ghi bảng Hoạt động 1: Bài tập 1 40’ BÀI 1: Viết chương trình in ra màn hình HS: Chú ý nghe giảng và * Bài tập 1: bảng nh[r]
(1)Tuần 19 Tiết 37 Ngày soạn: 01/01/2016 Ngày dạy: 04/01/2016 Bài : CÂU LỆNH LẶP (t3) I MỤC TIÊU: Kiến thức: - Viết đúng lệnh for số tình đơn giản - Hiểu lệnh ghép Kỹ năng:Viết đúng lệnh for số tình đơn giản Thái độ: Tập trung cao độ, có ý thức tư duy, có thái độ ham học hỏi nghiêm túc học II CHUẨN BỊ: Giáo viên: SGK, giáo án, máy chiếu, phòng máy Học sinh: Đọc trước bài, SGK, đồ dùng học tập III CÁC HOẠT ĐỘNG DẠY-HỌC: Ổn định tổ chức lớp: (1’) -Kiểm tra sĩ số: 8A5 8A6 Kiểm tra bài cũ: Kết hợp kiểm tra nội dung bài Bài : Hoạt động giáo viên Hoạt động học sinh Nội dung ghi bảng Hoạt động 1: Ví dụ cầu lệnh lặp (40’) Gv: Yêu cầu học sinh đọc ví dụ - Hs : Đọc VD5 SGK Tính tổng và tích - Hs: Đưa câu lệnh lặp: Gv: Xác định bài toán Input: cho 10 số đầu tiên *Ví dụ 5: Chương trình sau Output: tổng 10 số đây tính tổng N số tự * Thuật toán tính tổng: nhiên đầu tiên với N nhập Gv: Yêu cầu mô tả thuật toán B1: S0; i 0; từ bàn phím tính tổng với 10 số đầu tiên Program tinh_tong; B2: ii+1; B3: Nếu i<10 thì s s+I quay Var N,i: Integer; lại bước ngược lại kết thúc S: longint; Begin - Hs: Viết chương trình Gv: Hướng dẫn học sinh viết Program tinhtong; Writeln(‘nhap so N =’); chương trình Readln(N); Uses crt; S:=0; Var I ,s,N: integer; For i:=1 to N S:=S+i Begin Witeln(‘tong la:’,S); Clrscr; Write(‘nhập n:’); Readln(N); Readln; End For i:= to N * Ví dụ 6: Ta kí hiệu N! là S:=s+I; tích N số tự nhiên đầu tiên: Writeln(‘tổng là’,s); N! = 1.2.3…N Readln; Program tinh_giai_thua; End Var N,i: Integer; HS: Đọc ví dụ Gv: Cho Hs đọc Ví dụ SKG P: Longint; * Thuật toán tính tích: G: Xác định bài toán Begin B1: S1; i 1; (2) G: Yêu cầu mô tả thuật toán B2: ii+1; tính tích với 10 số đầu tiên B3: Nếu i<10 thì s s*i quay lại bước ngược lại kết thúc Program tinhtich; Gv: Gọi - HS lên viết chương Uses crt; trình tính tích Var I ,s,N: integer; Begin Clrscr; Write(‘nhập n:’); Readln(N); For i:= to N S:=s*i; Writeln(‘tích là’,s); Readln; End 4.Củng cố: (3’) - Vận dụng câu lệnh lặp vào các bài toán 5.dặn dò: (1’) - Làm bài tập SGK - Tiết sau là tiết bài tập IV Rút kinh nghiệm: Write(‘N =’); readln(N); P:=1; For i:=1 to N P:=P*i; Wirteln(N,’!=’,P); Readln; End Tuần 19 Tiết 38 Ngày soạn: 01/01/2016 Ngày dạy: 04/01/2016 Bài thực hành 5: SỬ DỤNG LỆNH LẶP FOR…DO (t1) I MỤC TIÊU: Kiến thức: Viết chương trình có sử dụng vòng lặp For…Do Kĩ năng: Đọc hiểu chương trình có vòng lặp For…Do (3) 3.Thái độ: Có ý thức tư duy, có thái độ ham học hỏi, tác phong làm việc nghiêm túc II CHUẨN BỊ: Giáo viên: SGK, giáo án, máy chiếu, phòng máy Học sinh: Đọc trước bài, SGK, đồ dùng học tập III CÁC HOẠT ĐỘNG DẠY-HỌC: Ổn định tổ chức lớp: (1’) -Kiểm tra sĩ số: 8A5 8A6 Kiểm tra bài cũ: Kết hợp kiểm tra quá trình thực hành Bài : Hoạt động giáo viên Hoạt động học sinh Nội dung ghi bảng Hoạt động 1: Bài tập (40’) BÀI 1: Viết chương trình in màn hình HS: Chú ý nghe giảng và * Bài tập 1: bảng nhân số từ đến hướng dẫn viết chương Viết chương trình in nhập từ bàn phím và dừng màn hình để trình chạy thử trên bảng màn hình bảng nhân quan sát kết số từ đến GV: Yêu cầu học sinh khai báo HS: Viết chương trình nhập từ bàn phím và Program Bangnhan; dừng màn hình để quan Uses crt; sát kết Var N, i: integer; Begin Clrscr; Write (‘nhap so N =’); GV: Nhập n? Readln (N); GV: Writeln dùng để làm gì? Writeln; Writeln (‘Bang nhan ‘N,); Writeln; GV: Giải thích vòng lặp For và in kết For i:=1 to 10 bảng nhân Writeln(‘N, ‘x’, i:2,’ = ‘,N*i:3); Bước i i< 10? Writeln(N,’x’,I,’= Readln ’,N*i) End 10 11 10 11 Đúng Đúng Đúng Đúng Đúng Đúng Đúng Đúng Đúng Đúng Sai 3x1=3 3x2=6 3x3=9 3x4=12 3x5=15 3x6=18 3x7=21 3x8=24 3x9=27 3x10=30 Không thực lệnh writeln ( ) kết thúc vòng lặp HS: Bấm tổ hợp phím ctrl+F9 chạy chương trình suất màn hình bảng nhân Nhap so N=8 Bang nhan 8x1=8 x = 16 x = 24 x = 32 x = 40 x = 48 x = 56 x = 64 (4) x = 72 x 10 = 80 Củng cố: (3’) - Cú pháp câu lệnh lặp?Như nào gọi là câu lệnh ghép - Sử dụng for…do lồng vào nhau?câu lệnh Gotoxy(a,b) có tác dụng gì? Wherex,wherey dùng để làm gì? Dặn dò: (1’) - Về nhà làm bài tập SGK - Chạy và sửa lỗi các chương trình trên IV Rút kinh nghiệm: (5)