Bài 1: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, số được nhập từ bàn phím và dừng màn hình để có thể quan sát kết quả... Gv: Cho Hs quan sát chương trình, hỏi ý n[r]
(1)Trường THCS Xuân Đường Ngày soạn: 15/01/2010 Ngày dạy: 20/01/2010 Tuần 21: Tin học Tiết 39+40: Bài thực hành 5: SỬ DỤNG LỆNH LẶP FOR…DO I MỤC TIÊU: Kiến thức: Hiểu rõ câu lệnh lặp For…do Kĩ năng: - Viết chương trình Pascal có câu lệnh lặp for…do - Nâng cao kĩ đọc hiểu chương trình Thái độ: - Ham thích môn học - Tích cực học tập II PHƯƠNG PHÁP: Phương pháp thử, trực quan, thảo luận nhóm, thử III CHUẨN BỊ: Giáo viên: - SGK, tài liệu, giáo án - Đồ dùng dạy học: máy vi tính Học sinh: - Đọc trước bài và học bài nhà - SGK, đồ dùng học tập: máy vi tính IV TIẾN TRÌNH LÊN LỚP: Ổn định lớp (2’) Kiểm tra bài cũ: (5’) HS1: Hãy viết cú pháp câu lệnh lặp For…do Bài mới: Hoạt động Gv - Hs Nội dung Tiết 39: Hoạt động 1: Khởi động (6’) Gv: Mở điện Gv: Yêu cầu Hs khởi động máy, quan sát và báo cáo tình trạng máy mình Hs: Thực Hoạt động 2: Bài (15’) Bài 1: Viết chương trình in màn hình bảng nhân số từ đến 9, số nhập từ bàn phím và dừng màn hình để có thể quan sát kết Gv: Cho Hs quan sát chương trình, hỏi ý nghĩa câu lệnh? Hs: Trả lời Gv: Giải thích cho Hs hiểu cách thực vòng Gv: Ngô Thị Thùy Dung Lop8.net Trang 115 (2) Trường THCS Xuân Đường Tin học lặp for…do với n = Bước i i<=10? 1 Đúng 2 Đúng 3 Đúng 4 Đúng 5 Đúng 6 Đúng 7 Đúng 8 Đúng 9 Đúng 10 10 Đúng Kết 3x1=3 3x2=6 3x3=9 x = 12 x = 15 x = 18 x = 21 x = 24 x = 27 x 10 = 30 Không thực lệnh 11 11 Sai writeln Kết thúc vòng lặp Gv: Cho Hs ghi chương trình vào Hs: Ghi bài Uses crt; Var i, n: integer; Begin Clrscr; Writeln('Nhap vao so n: '); Readln(n); Writeln('Bang nhan ',n); Writeln; For i:=1 to 10 Writeln(n, ' x ',i:2, ' = ',n*i:3); Readln; End Hs: Gõ chương trình lên máy, chạy chương trình với các giá trị lần lược 1, 2, …, 10 Hoạt động 2: Bài (17w’) Gv: Chạy chương trình cho Hs quan sát Hs: Quan sát Gv: Kết chương nhận có nhược điểm: - Các hàng kết sát nên khó đọc - Các hàng kết không cân hàng tiêu đề Gv: Để cho kết chương trình đẹp ta cần chỉnh sửa lại chương trình cách sử dụng thêm các lệnh gotoxy(a, b), wherex, wherey Gv: Yêu cầu Hs đọc phần lưu ý trang 63 Hs: Đọc bài Gv: Các lệnh gotoxy(a, b), wherex, wherey sử dụng nào? Hs: Trả lời Gv: Câu lệnh gotoxy(a, b) dùng để làm gì? Hs: Trả lời Gv: Ngô Thị Thùy Dung Lop8.net Bài 2: Chỉnh sửa chương trình Trang 116 (3) Trường THCS Xuân Đường Tin học Gv: Câu lệnh wherex, wherey dùng để làm gì? Hs: Trả lời Gv: Cho Hs quan sát chương trình sau chỉnh sửa Hs: Quan sát Hs: Ghi chương trình vào Uses crt; Var i, n: integer; Begin Clrscr; Writeln('Nhap vao so n: '); Readln(n); Writeln('Bang nhan ',n); Writeln; For i:=1 to 10 Begin Gotoxy(5, wherey); Writeln(n, ' x ',i:2, ' = ',n*i:3); writeln Readln; End * Lưu ý: - gotoxy(a, b): đư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 Hs: Gõ chương lên máy, dịch và chạy chương trình Tiết 40: Hoạt động 3: Bài (40’) Bài 3: Gv: Cũng câu lệnh if, có thể dùng câu lệnh for lồng câu lệnh for khác thực lệnh lặp Sử dụng câu lệnh for…do lồng để in màn hình các số từ đến 99 theo dạng bảng hình sau: Gv: Cho Hs quan sát chương trình Sgk Giải thích ý nghĩa câu lệnh chương trình Hs: Quan sát Gv: Cho Hs gõ chương trình vào máy, dịch và chạy chương trình Hs: Thực hành Gv: Yêu cầu Hs thảo luận, điều chỉnh bảng kết Gv: Ngô Thị Thùy Dung Lop8.net Trang 117 (4) Trường THCS Xuân Đường Tin học màn hình Hs: Thảo luận Hs: Trả lời Hs: Nhận xét Gv: Cho Hs quan sát chương trình sau đã điều chỉnh Hs: Quan sát, ghi chương trình vào Program tao_bang; Uses crt; Var i:byte; j:byte; Begin Clrscr; gotoxy(20,20); for i:=0 to begin for j:=0 to write(10*i+j:4); writeln; gotoxy(20,wherey); end; readln end Hs: Gõ chương trình vào máy, dịch và chạy chương trình Củng cố: (3’) - Hs đọc phần tổng kết - Nhắc lại các kiến thức đã thực hành Dặn dò: (2’) - Coi lại lý thuyết các bài để chuẩn bị cho tiết bài tập Gv: Ngô Thị Thùy Dung Lop8.net Trang 118 (5)