CẤU TRÚC LẶP TRONG NGÔN NGỮ LẬP TRÌNH PASCAL

SỞ GD VÀ ĐT VĨNH PHÚC Trường THPT Tam Đảo Tên chủ đề dạy học: CẤU TRÚC LẶP TRONG NGÔN NGỮ LẬP TRÌNH PASCAL Giáo viên thực hiện: Nguyễn Văn Luyện Mơn: Tin học Tổ: Tốn – Tin Tam Đảo, 11/2018 CHỦ ĐỀ: CẤU TRÚC LẶP TRONG NGÔN NGỮ LẬP TRÌNH PASCAL (3 tiết) (Tin học lớp 11) I Kế hoạch chung Tiết Nội dung Cấu trúc lặp Câu lệnh lặp for to Câu lệnh lặp for downto Câu lệnh lặp while II Mục tiêu Kiến thức - Khái niệm cấu trúc lặp - Biết cú pháp ý nghĩa câu lệnh lặp Kỹ - Biết vận dụng câu lệnh lặp để giải số toán - So sánh khác câu lệnh lặp Thái độ - Nghiêm túc, ý học tập Các lực cần hình thành phát triển - Năng lực tự học thông qua sách giáo khoa, tài liệu, mạng internet - Năng lực giải vấn đề thơng qua ví dụ học - Năng lực sáng tạo thông qua nội dung học - Năng lực hợp tác thông qua bạn bè, thầy cô người xung quanh - Năng lực thực hành thông qua tập - Năng lực sử dụng công nghệ thông tin thông qua việc thực hành tập máy tính III Nhiệm vụ giáo viên học sinh - Giáo viên chuẩn bị trước + Các phiếu học tập (nếu có), máy tính, máy chiếu + Giáo án, SGK - Học sinh chuẩn bị trước + đọc sách giáo khoa + SGK, ghi IV Phương pháp dạy học - Phương pháp dạy học nêu vấn đề dạy học hợp tác V Phương tiện dạy học - Máy chiếu, sử dụng phần mềm dạy học để tăng tính trực quan cho giảng Tiết CẤU TRÚC LẶP CÂU LỆNH LẶP FOR DO I KHÁI NIỆM VỀ CẤU TRÚC LẶP Hoạt động 1: khởi động Mục tiêu - Nhận biết câu lệnh, thao tác lặp, số lần lặp, điều kiện lặp, điều kiện dừng lặp - Biết phân loại lặp chuẩn bị - Giáo viên chuẩn bị, máy chiếu, bảng phụ vẽ sẵn sơ đồ thuật tốn tìm ước chung lớn nhất, tìm giá trị lớn Kĩ thuật tổ chức hoạt động GV: chia lớp thành nhóm hoạt động Nhóm trả lời câu hỏi liên quan tới tốn tìm ước chung lớn Nhóm trả lời câu hỏi liên quan tới tốn tìm giá trị lớn sau: +, nhứng thao tác lặp, lặp lần, có không lặp lần không, điều kiện lặp gì, ngừng… GV mời đại diện nhóm trả lời Gv phân tích, giảng giải Dự kiến sản phẩm học sinh Nhóm 1: Nhận biết thao tác lặp toán tìm UCLN, điều kiện dừng lặp, điều kiện lặp Nhóm 2: Nhận biết thao tác lặp toán tìm Max, điều kiện dừng lặp, điều kiện lặp, số lần lặp Phương pháp Thuyết trình, thảo luận nhóm, tiến trình dạy học Gv HS Treo bảng phụ có sơ đồ thuật Quan sát sơ đồ thuật tốn tốn tìm UCLN tìm Max Thảo luận để trả lời câu hỏi Gv chia lớp thành nhóm: Đại diện nhóm phát biểu nhóm thảo luận câu hỏi thuật tốn tìm UCLN, nhóm thảo luận câu hỏi thuật tốn tìm Max Gv đưa nhận xét, câu trả lời Gv nhận xét: biết trước số lần Học sinh ghi lặp thuật tốn tìm max, khơng biết trước số lần lặp thuật tốn tìm UCLN Có thể chia thành loại lặp : lặp biết trước lặp trước số lần lặp HOẠT ĐỘNG 2: HÌNH THÀNH KIẾN THỨC Mục tiêu - Biết khái niệm cấu trúc lặp - Biết phân loại cấu trúc lặp chuẩn bị - Giáo viên chuẩn bị, máy chiếu, bảng phụ vẽ sẵn sơ đồ thuật tốn tìm ước chung lớn nhất, tìm giá trị lớn Kĩ thuật tổ chức hoạt động GV: chia lớp thành nhóm hoạt động thảo luận vấn đề: lặp, khái niệm lặp? GV mời đại diện nhóm trả lời Gv phân tích, giảng giải Dự kiến sản phẩm học sinh Học sinh phát biểu khái niện lặp Phương pháp Thuyết trình, thảo luận nhóm tiến trình dạy học Gv - Gv chia lớp thành nhóm: thảo luận lặp, khái niệm lặp? - Gv phát biểu khái niệm lặp: lặp thực từ 0, 1, nhiều lần câu lệnh, dãy lệnh (lệnh ghép) - Cấu trúc lặp cấu trúc điều khiển ngôn ngữ lập trình để mơ tả lặp mơ tả: + thao tác lặp + điều kiện lặp, điều kiện ngừng lặp - Gv hỏi: có loại cấu trúc lặp? HS - Thảo luận để trả lời câu hỏi - Đại diện nhóm phát biểu - hs ghi - học sinh trả lời - có loại cấu trúc lặp tương ứng với - hs ghi loại lặp - trình chiếu số cấu trúc lặp ngôn ngữ pascal, c, c++… - sơ đồ chung cho cấu trúc lặp HOẠT ĐỘNG 3: LUYỆN TẬP Cho thuật toán kiểm tra số nguyên tố sau, xác định điều kiện lặp, thao tác lặp, lặp thuộc loại nào? B1: Nhập N B2: Nếu N=1 thơng báo N khơng snt kết thúc B3: Nếu N=d thông báo N snt B6: Nếu N chia hết cho i N khơng snt B7: i:=i+1  quay trở lại B5 HOẠT ĐỘNG 4: VẬN DỤNG, TÌM TÒI VÀ MỞ RỘNG II CÂU LỆNH FOR TO DO Hoạt động 1: khởi động Mục tiêu - Biết câu lệnh for to để mô tả thao tác lặp biết trước số lần lặp - Biết cần có đại lượng để điều khiển, đếm việc lặp, lần lặp đại lượng tăng đơn vị chuẩn bị - Giáo viên chuẩn bị, máy chiếu, bảng phụ vẽ sẵn sơ đồ thuật tốn tìm giá trị lớn Kĩ thuật tổ chức hoạt động GV: tổ chức đàm thoại với lớp với câu hỏi sau: Hãy vai trò đại lượng i sơ đồ thuật tốn tìm giá trị lớn nhất? Sau lần lặp, i tăng lên đơn vị? Nếu có nhiều phần tử lớn nhất, thuật tốn cho kết phần tử nào? Trong Pascal có câu lệnh để mơ tả việc lặp trên? Dự kiến sản phẩm học sinh Học sinh nhận biết lần i tăng đơn vị i có vai trò đếm số lần lặp, điều khiển lặp Thuật tốn tìm phần tử lớn vị trí nhỏ Trong Pascal có câu lệnh for to để mơ tả việc lặp Phương pháp Thuyết trình, thảo luận nhóm, tiến trình dạy học Gv HS Treo bảng phụ có sơ đồ thuật tốn tìm Max - GV nêu câu hỏi: - Quan sát sơ đồ thuật toán Thảo luận để trả lời câu hỏi Hãy vai trò đại lượng i sơ đồ thuật tốn tìm giá trị lớn nhất? Sau lần lặp, i tăng lên đơn vị? Nếu có nhiều phần tử lớn nhất, thuật toán cho kết phần tử nào? Trong Pascal có câu lệnh để mơ tả việc lặp trên? Gv: đại lượng i có vai trò điều khiển việc lặp, đếm số lần lặp Gv: giới thiệu câu lệnh for to HOẠT ĐỘNG 2: HÌNH THÀNH KIẾN THỨC Mục tiêu - Biết cú pháp, ý nghĩa câu lệnh for to chuẩn bị - Giáo viên chuẩn bị, máy chiếu, bảng phụ vẽ sẵn sơ đồ thuật tốn tìm tìm giá trị lớn nhất, sơ đồ cấu trúc câu lệnh for to Gv chuẩn bị đoạn chương trình có lệnh for to Đoạn 1: K:=2; s:= 0; For j:= to n begin S:= s+ k; k:= K+2; End; Writeln(‘tong ‘,n,’ ‘số chẵn ‘,s); Đoạn 2: K:=1; s:=0; For i:= to n Begin S:=s+k; k:=k + 2; End; Writeln(‘ tong ‘,n ,’so le dau tien la ‘,s); Kĩ thuật tổ chức hoạt động Gv: giới thiệu, phân tích cú pháp, ý nghĩa, sơ đồ câu lệnh for to lấy ví dụ minh họa Gv: đưa đoạn chương trình có câu lệnh for to do, chia lớp thành nhóm, nhóm phân tích đoạn cách trả lời câu hỏi: - Biến đếm (biến điều khiển) biến nào? - Giá trị đầu, giá trị cuối biến đếm? - Câu lệnh lặp, lặp lại lần? số lần lặp 0? - Khi ngừng lặp? - Vẽ sơ đồ đoạn lệnh? - Ý nghĩa đoạn lệnh? GV mời đại diện nhóm trả lời Gv phân tích, giảng giải Dự kiến sản phẩm học sinh Học sinh vẽ sơ đồ đoạn chương trình 2, phát biến đếm, bước tăng biến đếm, phát câu lệnh lặp Phương pháp Thuyết trình, thảo luận nhóm tiến trình dạy học Gv HS - Gv giới thiệu câu lệnh for to - Gv phân tích câu lệnh for to - hs ghi thông qua sơ đồ câu lệnh Chỉ rõ biến - Cú pháp: điều khiển, câu lệnh lặp, số lần lặp, For biênđếm:= gtđầu to gtcuoi điều kiện lặp, ngừng lăp - Gv lấy ví dụ minh họa cách phân tích vẽ sơ đồ đoạn chương trình sau: t:=1; for k:= to n t:=t*2; writeln(‘luy thua ‘,n,’ ‘,t); Câu lệnh lặp - Sơ đồ - Gv hướng dẫn học sinh hoàn thành sơ đồ đoạn chương trình cách điền thơng tin vào sơ đồ lệnh for to do: - Gv đưa đoạn chương trình: Đoạn 1: K:=2; s:= 0; For j:= to n begin S:= s+ k; k:= K+2; End; Writeln(‘tong ‘,n,’ ‘số chẵn ‘,s); Đoạn 2: K:=1; s:=0; For i:= to n 10 Gv chuẩn bị đoạn chương trình có lệnh for downto Đoạn 1: For j:= 901 downto 109 begin dv:= j mod 10; chuc:= (j div 10) mod 10; tram:= j div 100; if dv+chuc+tram = 10 then write(j,’ ‘); End; Đoạn 2: I:=0; For i:= 999 downto 101 If (i div 100) = (i mod 10) then Begin d:= d+1; write(i, ‘ ‘); End; Writeln; Writeln(‘ket qua la ‘,d); Kĩ thuật tổ chức hoạt động Gv: giới thiệu, phân tích cú pháp, ý nghĩa, sơ đồ câu lệnh for downto lấy ví dụ minh họa Gv: đưa đoạn chương trình có câu lệnh for to do, chia lớp thành nhóm, nhóm phân tích đoạn cách trả lời câu hỏi: - Biến đếm (biến điều khiển) biến nào? - Giá trị đầu, giá trị cuối biến đếm? 16 - Câu lệnh lặp, lặp lại lần? số lần lặp 0? Khi ngừng lặp? Vẽ sơ đồ đoạn lệnh? Ý nghĩa đoạn lệnh? GV mời đại diện nhóm trả lời Gv phân tích, giảng giải Dự kiến sản phẩm học sinh Học sinh vẽ sơ đồ đoạn chương trình 2, phát biến đếm, bước tăng biến đếm, phát câu lệnh lặp Phương pháp Thuyết trình, thảo luận nhóm tiến trình dạy học Gv - Gv giới thiệu câu lệnh for downto - Gv phân tích câu lệnh for to thông qua sơ đồ câu lệnh Chỉ rõ biến điều khiển, câu lệnh lặp, số lần lặp, điều kiện lặp, ngừng lăp - Gv lấy ví dụ minh họa cách phân tích vẽ sơ đồ đoạn chương trình sau: For j:= 100 downto If j mod = then write(j, ‘ ‘); HS - hs ghi - Cú pháp: For biênđếm:= gtc downto gtd Câu lệnh lặp - Sơ đồ - Gv hướng dẫn học sinh hoàn thành sơ đồ đoạn chương trình cách điền thông tin vào sơ đồ lệnh for downto do: 17 Đoạn 1: For j:= 901 downto 109 begin dv:= j mod 10; chuc:= (j div 10) mod 10; tram:= j div 100; if dv+chuc+tram = 10 then write(j,’ ‘); End; Đoạn 2: I:=0; For i:= 999 downto 101 If (i div 100) = (i mod 10) then Begin d:= d+1; write(i, ‘ ‘); End; Writeln; Writeln(‘ket qua la ‘,d); Hs thảo luận nhóm trả lời - Gv chia lớp thành nhóm Mỗi nhóm thảo luận, phân tích đoạn chương trình cách trả lời câu hỏi sau: - Biến đếm (biến điều khiển) - biến nào? Giá trị đầu, giá trị cuối biến đếm? Câu lệnh lặp, lặp lại lần? số lần lặp 0? Khi ngừng lặp? Vẽ sơ đồ đoạn lệnh? Ý nghĩa đoạn lệnh? 18 HOẠT ĐỘNG 3: LUYỆN TẬP Mục tiêu - Biết hoạt động câu lệnh for downto do, tính tốn kết đoạn chương trình chuẩn bị - Giáo viên chuẩn bị, máy chiếu, đoạn chương trình: Đoạn 1: Xét chương trình sau: Var s, i : integer; Begin s:=0; for i:= downto s:= s + 1; writeln(s); End Kết chương trình là: A) B) Đoạn 2: Xét chương trình sau: Var s, i : integer; Begin s:=0; for i:= downto s:= s + i; writeln(s); End Kết chương trình là: A) B) Đoạn 3: Xét chương trình sau: Var s, i : integer; Begin s:=1; for i:= downto s:= s*i; writeln(s); End Kết chương trình là: A) B) C) 10 C) 10 C) 100 Đoạn 4: Xét chương trình sau: Var s, i : integer; Begin s:=0; for i:= downto 19 D) 15 D) 15 D) 120 if ( i mod =1) then s:= s+1; writeln(s); End Kết chương trình là: A) B) C) D) 5Câu 4: Đoạn 5:Xét chương trình sau: Var s1, s2, i : integer; Begin s1:=0; s2:=0; for i:= downto begin s1:= s1 + 1; s2:= s2 + 2; end; writeln(s1,' ',s2); End Kết chương trình là: A) B) 5 C) 10 D) 10 Đoạn 6:Xét chương trình sau: Var s1, s2, i : integer; Begin s1:=0; s2:=0; for i:= downto s1:= s1 + 1; s2:=s2 + 2; writeln(s1,' ',s2); End Kết chương trình là: A) B) 5 C) 10 D) 10 Kĩ thuật tổ chức hoạt động Gv: chia lớp thành nhóm, nhóm xác định kết đoạn chương trình Dự kiến sản phẩm học sinh Học sinh xác định kết đoạn chương Phương pháp Thuyết trình, thảo luận nhóm, đàm thoại tiến trình dạy học Gv HS 20 - Đưa đoạn chương trình sau: Đoạn 1: Xét chương trình sau: Var s, i : integer; Begin s:=0; for i:= downto s:= s + 1; writeln(s); End Kết chương trình là: A) B) C) 10 D) 15 Đoạn 2: Xét chương trình sau: Var s, i : integer; Begin s:=0; for i:= downto s:= s + i; writeln(s); End Kết chương trình là: A) B) ) 10 D) 15 hs thảo luận nhóm trả lời C Đoạn 3: Xét chương trình sau: Var s, i : integer; Begin s:=1; for i:= downto s:= s*i; writeln(s); End Kết chương trình là: A) B) C) 100 D) 120 Đoạn 4: Xét chương trình sau: Var s, i : integer; Begin s:=0; for i:= downto if ( i mod =1) then s:= s+1; writeln(s); End 21 Kết chương trình là: A) B) C) D) 5Câu 4: Đoạn 5:Xét chương trình sau: Var s1, s2, i : integer; Begin s1:=0; s2:=0; for i:= downto begin s1:= s1 + 1; s2:= s2 + 2; end; writeln(s1,' ',s2); End Kết chương trình là: A) B) 5 C) 10 D) 10 Đoạn 6:Xét chương trình sau: Var s1, s2, i : integer; Begin s1:=0; s2:=0; for i:= downto s1:= s1 + 1; s2:=s2 + 2; writeln(s1,' ',s2); End Kết chương trình là: A) B) 5 C) 10 D) 10 - Gv chia lớp thành nhóm, nhóm xác định kết đoạn chương trình HOẠT ĐỘNG 4: VẬN DỤNG, TÌM TỊI VÀ MỞ RỘNG - Hãy viết chương trình hồn chỉnh nhập vào số ngun dương n, in ước lớn n (khơng kể nó) - Viết chương trình in số từ n (là số nguyên dương) đến theo cách: Dùng câu lệnh for to dùng câu lệnh for downto to - Có thể dùng câu lệnh for to thay cho câu lệnh for down to ngược lại không? 22 Tiết CÂU LỆNH WHILE DO Hoạt động 1: khởi động Mục tiêu - Biết câu lệnh while để mô tả thao tác lặp trước số lần lặp chuẩn bị - Giáo viên chuẩn bị, máy chiếu, sơ đồ thuật tốn tìm ước chung lớn Kĩ thuật tổ chức hoạt động - GV chia lớp thành nhóm - Nhóm 1: tìm cách sử dụng câu lệnh for to để mô tả lặp thuật tốn tìm ưcln - Nhóm 2: : tìm cách sử dụng câu lệnh for downto để mô tả lặp thuật tốn tìm ưcln - Gv kết luận: khó áp dụng câu lệnh for trường hợp - Gv giới thiệu câu lệnh While Dự kiến sản phẩm học sinh Học sinh khẳng định khơng thể khó áp dụng câu lệnh for để thực thuật tốn tìm ước chung lớn Phương pháp Thuyết trình, thảo luận nhóm, tiến trình dạy học Gv HS - Đưa sơ đồ thuật tốn tìm ước chung lớn - Quan sát thuật toán 23 - GV chia lớp thành nhóm - Nhóm 1: tìm cách sử dụng câu lệnh for to để mô tả lặp thuật tốn - Thảo luận nhóm thực viết tìm ưcln câu lệnh - Nhóm 2: : tìm cách sử dụng câu lệnh for downto để mô tả lặp thuật tốn tìm ưcln - u cầu học sinh cho biết khó khăn mà họ gặp phải - Đặt vấn đề, ngơn ngữ Pascal có câu lệnh giúp dễ dàng giải vấn đề - Học sinh suy nghĩ tìm tòi câu lệnh khác thay sử dụng cau lệnh for HOẠT ĐỘNG 2: HÌNH THÀNH KIẾN THỨC Mục tiêu - Biết cú pháp, ý nghĩa câu lệnh While Do chuẩn bị - Giáo viên chuẩn bị, máy chiếu, sơ đồ cấu trúc câu lệnh for downto Gv chuẩn bị đoạn chương trình có lệnh for downto Đoạn 1: S:= 0; read(n); \\n số nguyên dương While n > begin dv:= n mod 10; s:= s + dv; n:= n div 10; End; Writeln(‘ tong cac chu so la ‘, s); Đoạn 2: Read(n); \\ n số nguyên dương 24 s:=0; k:=n; while K > begin r:= k mod 10; s:= 10*s + r; k:= k div 10; end; Writeln(‘so nghich dao cua ‘,n,’ la ‘,s); Kĩ thuật tổ chức hoạt động Gv: giới thiệu, phân tích cú pháp, ý nghĩa, sơ đồ câu lệnh while lấy ví dụ minh họa đoạn chương trình tìm ước chung lớn Gv: đưa đoạn chương trình có câu lệnh while do, chia lớp thành nhóm, nhóm phân tích đoạn cách trả lời câu hỏi: - Điều kiện lặp gì? - Câu lệnh lặp, lặp lại lần? số lần lặp 0? - Khi ngừng lặp? - Vẽ sơ đồ đoạn lệnh? - Ý nghĩa đoạn lệnh? - Kết đoạn chương trình với n = 109 GV mời đại diện nhóm trả lời Gv phân tích, giảng giải Dự kiến sản phẩm học sinh Học sinh vẽ sơ đồ đoạn chương trình 2, phát điều kiện lặp, câu lệnh lặp, ý nghĩa đoạn chương trình, kết đoạn chương trình với n= 109 Phương pháp Thuyết trình, thảo luận nhóm tiến trình dạy học Gv - Gv giới thiệu câu lệnh while - Gv phân tích câu lệnh for to thơng qua sơ đồ câu lệnh Chỉ rõ nguyên lý hoạt động - Gv minh họa đoạn chương trình thuật tốn tìm ước chung lớn HS - hs ghi - Cú pháp: While Câu lệnh lặp - Sơ đồ Readln(a,b); 25 While ab Begin If a> b then a:= a-b Else b:= b-a; end; writeln(‘ucln la ‘, a); - Gv đưa đoạn chương trình sau: Đoạn 1: S:= 0; read(n); \\n số nguyên dương While n > begin dv:= n mod 10; s:= s + dv; n:= n div 10; End; Writeln(‘ tong cac chu so la ‘, s); Đoạn 2: Read(n); \\ n số nguyên dương s:=0; k:=n; while K > begin r:= k mod 10; s:= 10*s + r; k:= k div 10; end; Writeln(‘so nghich dao cua ‘,n,’ la ‘,s); - Gv hướng dẫn học sinh hoàn thành sơ đồ đoạn chương trình cách điền thơng tin vào sơ đồ lệnh while - Gv chia lớp thành nhóm Mỗi nhóm thảo luận, phân tích 26 đoạn chương trình cách trả lời câu hỏi sau: Hs thảo luận nhóm trả lời - Điều kiện lặp gì? - Câu lệnh lặp, lặp lại bao - nhiêu lần? số lần lặp 0? Khi ngừng lặp? Vẽ sơ đồ đoạn lệnh? Ý nghĩa đoạn lệnh? Kết đoạn chương trình với n = 109 HOẠT ĐỘNG 3: LUYỆN TẬP Mục tiêu - Biết hoạt động câu lệnh while do, tính tốn kết đoạn chương trình chuẩn bị - Giáo viên chuẩn bị, máy chiếu, đoạn chương trình: Đoạn 1:Xét chương trình sau: Var s : integer; Begin s:=0; while (s < 5) s:= s + 1; writeln(s); End Kết chương trình là: A) B) C) D) Đoạn 2:Xét chương trình sau: Var s : integer; Begin s:=0; while (s < 5) s:= s + 1; writeln(s); End Kết chương trình là: A) B) C) D) Đoạn 3:Xét chương trình sau: Var s : integer; Begin 27 s:=5; while (s>0) s:= s - 2; writeln(s); End Kết chương trình là: A) -1 B) C) D) Đoạn 4:Xét chương trình sau: Var s, i : integer; Begin i:=5; s:=0; while (i > 0) begin s:= s + 1; i:= i -2; end; writeln(s); End Kết chương trình là: A) -1 B) C) D) Kĩ thuật tổ chức hoạt động Gv: chia lớp thành nhóm, nhóm xác định kết đoạn chương trình Dự kiến sản phẩm học sinh Học sinh xác định kết đoạn chương Phương pháp Thuyết trình, thảo luận nhóm, đàm thoại tiến trình dạy học Gv HS - Đưa đoạn chương trình sau: Đoạn 1:Xét chương trình sau: Var s : integer; Begin s:=0; while (s < 5) s:= s + 1; writeln(s); End Kết chương trình là: A) B) C) D) Đoạn 2:Xét chương trình sau: 28 Var s : integer; Begin s:=0; while (s < 5) s:= s + 1; writeln(s); End Kết chương trình là: A) B) C) D) hs thảo luận nhóm trả lời Đoạn 3:Xét chương trình sau: Var s : integer; Begin s:=5; while (s>0) s:= s - 2; writeln(s); End Kết chương trình là: A) -1 B) C) D) Đoạn 4:Xét chương trình sau: Var s, i : integer; Begin i:=5; s:=0; while (i > 0) begin s:= s + 1; i:= i -2; end; writeln(s); End Kết chương trình là: A) -1 B) C) D) - Gv chia lớp thành nhóm, nhóm xác định kết đoạn chương trình HOẠT ĐỘNG 4: VẬN DỤNG, TÌM TỊI VÀ MỞ RỘNG 29 - Hãy viết chương trình hồn chỉnh nhập vào số nguyên dương n, in số lượng chữ số - Có thể dùng câu lệnh while thay cho câu lệnh for khơng? - chuyển đoạn chương trình sau tư for sang while Chương trình 1: Var s1, s2, i : integer; Begin s1:=0; s2:=0; for i:= to begin s1:= s1 + 1; s2:= s2 + i; end; writeln(s1,' ',s2); End Chương trình 2: S:=0; For i:= n downto S:= s+ (i mod 10); Writeln(‘tong chữ số hàng đơn vị ‘,s); 30 ...CHỦ ĐỀ: CẤU TRÚC LẶP TRONG NGƠN NGỮ LẬP TRÌNH PASCAL (3 tiết) (Tin học lớp 11) I Kế hoạch chung Tiết Nội dung Cấu trúc lặp Câu lệnh lặp for to Câu lệnh lặp for downto Câu lệnh lặp while II... thảo luận lặp, khái niệm lặp? - Gv phát biểu khái niệm lặp: lặp thực từ 0, 1, nhiều lần câu lệnh, dãy lệnh (lệnh ghép) - Cấu trúc lặp cấu trúc điều khiển ngơn ngữ lập trình để mơ tả lặp mơ tả:... loại lặp - trình chiếu số cấu trúc lặp ngôn ngữ pascal, c, c++… - sơ đồ chung cho cấu trúc lặp HOẠT ĐỘNG 3: LUYỆN TẬP Cho thuật toán kiểm tra số nguyên tố sau, xác định điều kiện lặp, thao tác lặp,