+ GV: Yêu cầu Hs thực hiện gõ + HS: Gõ đoạn chương trình: đoạn chương trình sau và thực hiện Uses Crt; các yêu cầu: Var n, i: Integer; - Tìm hiểu ý nghĩa của các câu lệnh BEGIN trong chư[r]
(1)Tuần 21 Tiết: 41 Ngày soạn: 06/01/2013 Ngày day: 08/01/2013 Bài thực hành 5: SỬ DUNG LỆNH LẶP FOR…DO 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; - Sử dụng câu lệnh ghép Kĩ năng: - Rèn luyện kĩ đọc hiểu chương trình có sử dụng vòng lặp For…do Thái độ: II Chuẩn bị - Gv: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu, phòng máy - Hs: Vở ghi, sách giáo khoa III Phương pháp: - Gv hướng dẫn, thao tác mẫu, quan sát, sửa sai Hs quan sát, tự thực theo yêu cầu IV Tiến trình bài dạy: Ổn định lớp: (1’) 8A1: 8A2: Kiểm tra bài cũ: (5’) Câu hỏi: Trình bày câu lệnh lặp Pascal Nội dung bài mới: HOẠT ĐỘNG CỦA GIÁO VIÊN VÀ HỌC SINH Hoạt động 1: (8’) Ôn tập lý thuyết + GV: Đưa chương trình in lời + HS: Gõ đoạn chương trình chào các bạn lớp Var ten: String; + GV: Yêu cầu tên Hs nhập từ i: Integer; bàn phím BEGIN + GV: Số lần lặp “giá trị cuối” For i:= To Do Begin + GV: Yêu cầu thay đổi giá trị cuối Write(‘Nhap ten cua ban: ’); và cho nhận xét số lần nhập nhập Readln(ten); tên và hiển thị lời chào Writeln(‘Chao ban ’,ten); + GV: Rút nhận xét hiểu rõ và Readln giải thích hoạt động câu End; lệnh For END Hoạt động 2: (15’) Nội dung bài tập + GV: Đưa yêu cầu bài + HS: Đọc thông tin bài1 + GV: Yêu cầu Hs thực gõ + HS: Gõ đoạn chương trình: đoạn chương trình sau và thực Uses Crt; các yêu cầu: Var n, i: Integer; - Tìm hiểu ý nghĩa các câu lệnh BEGIN chương trình, dịch chương Clrscr; trình và sửa lỗi, có Write(‘Nhap n = ’); Readln(n); GHI BẢNG Bài Var ten: String; i: Integer; BEGIN For i:= To Do Begin Write(‘Nhap ten cua ban: ’); Readln(ten); Writeln(‘Chao ban ’,ten); Readln End; END (2) - Chạy chương trình với các giá trị nhập vào 1, 2, , 10 Quan sát kết nhận trên màn hình + GV: Quan sát, hướng dẫn Hs thực trên máy + GV: Sửa chữa sai sót các em mắc phải + GV: Sử dụng bài làm hoàn thiện Hs hướng dẫn các em câu lệnh lặp + GV: Yêu cầu Hs giải thích câu lệnh lặp sử dụng bài Hoạt động 3: (15’) Nội dung bài tập + GV: Yêu cầu Hs nhận xét cách hiển thị chương trình bài tập Writeln; Writeln(‘Bang nhan ’,n); Writeln; For i:=1 To 10 Do Writeln(N, ‘ x ’, i:2, ‘ = ’, n*i:3); Readln; END + HS: Tự giác thực theo hướng dẫn Gv + HS: Sửa lỗi mà các em hay gặp phải dấu + HS: Quan sát và nhận xét, lắng nghe và hiểu chương trình + HS: Giải thích cách chạy câu lệnh lặp Bài For i:= To 10 Do + HS: Hàng kết sát nên Begin khó đọc; Hàng kết không GotoXY(5,Where); cân hàng tiêu đề Writeln(n, ‘ x ’, i:2, ‘ = ’, + HS: Chỉnh sửa chương trình để n*i:3); làm đẹp kết trên màn hình Writeln; + HS: Thực yêu cầu bài End; + HS: Thêm lệnh GotoXY vào chương trình + HS: Dịch sửa lỗi và chạy lại chương trình, quan sát nhận xét + HS: Quan sát hai chương trình và nhận xét thay đổi và khác hai chương trình + HS: Tập trung chú ý lắng nghe, hiểu thêm câu lệnh + HS: Chú ý lắng nghe và hiểu phần lưu ý sử dụng câu lệnh + HS: Tự thực các thao tác + GV: Vậy để cân đối ta cần phải làm gì + GV: Đưa yêu cầu bài + GV: Yêu cầu Hs sửa câu lệnh theo yêu cầu + GV: Yêu cầu Hs chạy lại chương trình + GV: Cho Hs quan sát chương trình đã sửa so với chương trình chưa sửa và so sánh + GV: Hướng dẫn các em câu lệnh GotoXY + GV: Đưa lưu ý các em sử dụng câu lệnh GotoXY + GV: Yêu cầu Hs tự thực lại Củng cố: - Củng cố nội dung bài học Hướng dẫn và dặn dò nhà: (1’) - Học bài kết hợp SGK - Đọc trước nội dung phần bài Rút kinh nghiệm: (3)