Thư Viện STEM STEAM Bài thực hành 5 SỬ DỤNG LỆNH LẶP FOR DO I Mục đích 1 Kiến thức Viết được chương trình có sử dụng vòng lặp For Do Sử dụng được câu lệnh ghép 2 Kĩ năng Đọc hiểu chương trình có vòng[.]
Bài thực hành 5: SỬ DỤNG LỆNH LẶP FOR…DO I.Mục đích 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 2.Kĩ Đọc hiểu chương trình có vịng lặp For…Do 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 Định hướng phát triển lực: lực sử dụng máy tính, lực giải vấn đề, lực sáng tạo, ứng dụng KHKT, lực tự học, lực hợp tác, làm việc nhóm PHƯƠNG PHÁP: Luyện tập thực hành II CHUẨN BỊ BÀI HỌC: Giáo viên : - SGK, tài liệu, Giáo án, Phòng máy - Đồ dùng dạy học Học sinh : - Đọc trước Thực hành III TIN TRèNH BI HC: Hoạt động 1: Khởi ®éng (5 phót) Kiểm tra cũ Cho vài ví dụ hoạt động thực lặp lại cuc sng hng ngy? Hoạt động 2: Hỡnh thành kiến thức (30 phót) HOẠT ĐỘNG CỦA GIÁO VIÊN VÀ HỌC NỘI DUNG, YÊU CẦU CẦN ĐẠT SINH Hướng dẫn BÀI 1: Viết chương trình in hình bảng H: Chú ý nghe giảng hướng dẫn viết chương nhân số từ đến nhập từ bàn trình chạy thử bảng phím dừng hình để quan sát kết G: Yêu cầu học sinh khai báo G: Nhập n? G: Writeln dùng để làm gì? G: Giải thích vịng lặp For in kết bảng nhân H: Viết chương trình Program Bảngnhân; Uses crt; Var N, i: integer; Begin Clrscr; Write (‘nhap so N =’); Readln (N); Writeln; Writeln (‘Bang nhan ‘N,); Writeln; For i:=1 to 10 Bước i 1 2 3 4 5 6 7 8 9 10 10 11 11 i< 10 ? Đúng Đúng Đúng Đúng Đúng Đúng Đúng Đúng Đúng Đúng Sai Writeln(N,’x’,I,’=’,N*i) 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 Writeln(‘N, ‘x’, i:2,’ = ‘,N*i:3); Readln End H: Bấm tổ hợp phím ctrl+F9 chạy chương trình suất 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 x = 72 x 10 = 80 G: Vì bảng nhân in không đẹp lắm, muốn đưa bảng nhân làm nào? G: Giới thiệu lệnh Gotoxy(a,b): có tác dụng đưa trỏ cột a,hàng b Wherex: cho biết số thứ tự cột Wherey: cho biết số thứ tự hàng G: Thử với gotoxy(40,12) đưa dòng Nhưng muốn cho bảng nhân phải để begin end; G: Gợi ý cho HS sửa lại chương trình Program Bảngnhân; G: Chạy chương trình theo bước để học Uses crt; sinh thấy rõ Var N, i: integer; Begin Bước i i< 10 ? Writeln(N,’x’,I,’=’,N*i) Clrscr; 1 Đúng Đi tới cột 40 3x1=3 Write (‘nhap so N =’); Readln (N); 2 Đúng Đi tới cột 40 3x2=6 Writeln; 3 Đúng Đi tới cột 40 3x3=9 Writeln (‘Bang nhan ‘N,); 4 Đúng Đi tới cột 40 3x4=12 Writeln; 5 Đúng Đi tới cột 40 3x5=15 For i:=1 to 10 6 Đúng Đi tới cột 40 3x6=18 Begin 7 Đúng Đi tới cột 40 3x7=21 Gotoxy(40,wherey); 8 Đúng Đi tới cột 40 3x8=24 Writeln(‘N, ‘x’, i:2,’ = ‘,N*i:3); 9 Đúng Đi tới cột 40 3x9=27 End; 10 10 Đúng Đi tới cột 40 3x10=30 Readln 11 11 Sai Không thực lệnh End writeln ( ) kết thúc vòng lặp Bài 3: Sử dụng câu lệnh For… Do lồng để in hình số từ đến 99 theo dạng bảng hình 38 SGK G: Giới thiệu vịng for lồng chạy chương trình Khi i=0 j chạy từ đến đưa kết Khi i=1 j chạy từ đến đưa kết i=10 kết thúc 3.Hoạt động 3: Luyện tập, vận dụng, mở rộng (10 phút): - Cú pháp câu lệnh lặp?Như gọi 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ị: - Về nhà làm tập SGK - Chạy sửa lỗi chương trình Rút kinh nghiệm: Bài thực hành 5: SỬ DỤNG LỆNH LẶP FOR…DO (tiếp) I.Mục đích 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 2.Kĩ Đọc hiểu chương trình có vịng lặp For…Do 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 Định hướng phát triển lực: lực sử dụng máy tính, lực giải vấn đề, lực sáng tạo, ứng dụng KHKT, lực tự học, lực hợp tác, làm việc nhóm PHƯƠNG PHÁP: Đặt giải vấn đề II CHUẨN BỊ BÀI HỌC: Giáo viên : - SGK, SGV, tài liệu, Giáo án, máy chiếu - Đồ dùng dạy học Học sinh : - Đọc trước III TIN TRèNH BI HC: 1.Hoạt động 1: Khởi động (5 phót) Kiểm tra cũ ? Câu lệnh Gotoxy(a,b) wherex,wherey dựng lm gỡ? 2.Hoạt động 2: Hỡnh thnh kiến thức (30 phót) HOẠT ĐỘNG CỦA GIÁO VIÊN VÀ NỘI DUNG, YÊU CẦU CẦN ĐẠT HỌC SINH Thực hành G: Yêu cầu viết chương trình in bảng H: Gõ chương trình vào máy tính nhân Program Bảngnhân; G: Yêu cầu chạy sửa lỗi Uses crt; G: Hưỡng dẫn học sinh đọc sửa lỗi Var N, i: integer; G: Bấm F9 kiểm tra lỗi Begin G: Bấm CTRL +F9 chạy chương trình Clrscr; Write (‘nhap so N =’); Readln(N); Writeln; Writeln (‘Bang nhan ‘N,); Writeln; For i:=1 to 10 Writeln(‘N, ‘x’, i:2,’ = ‘,N*i:3); Readln End Sau chạy bảng cửu chương yêu cầu Program Bảngnhân; HS viết cho bảng cửu chương Uses crt; Var N, i: integer; Begin Clrscr; Write (‘nhap so N =’); Readln (N); Writeln; Writeln (‘Bang nhan ‘N,); Writeln; For i:=1 to 10 Begin G: Nhắc lại câu lệnh ghép câu lệnh Gotoxy(40,wherey); Gotoxy(a,b); Writeln(‘N, ‘x’, i:2,’ = ‘,N*i:3); G: Yêu cầu HS chạy chỉnh sửa giá trị End; cho in bên phải, bên trái Readln End Bài 3: Gõ chạy chương trình G: Nhắc lại câu lệnh for lồng vào G: Muốn điều chỉnh bảng kết hình làm nào? H: gõ chương trình Program taobang; Uses crt; Var i: byte; J: byte; Begin Clrscr; For i:= to Begin For j:=0 to Write(10*i*j:4); writeln; End; Readln End H: For i:= to Begin For j:=0 to Begin Gotoxy(10,wherey); Write(10*i*j:4); writeln; end; End; H: Chỉnh sửa chạy lại chương trình H: Nhận xét rút kết luận H: Tự khám phá 3.Hoạt động 3: Luyện tập, vận dụng, mở rộng (10 phút): - Cú pháp câu lệnh lặp? - Sử dụng for…do lồng vào - câu lệnh Gotoxy(a,b) có tác dụng gì? Wherex,wherey dùng để làm gì? Dặn dị - Về nhà làm tập sách tập Rút kinh nghiệm …………………………………………………………………………………………………… ……………………………………………………………………………