Thảo luận nhóm rồi lên bảng làm các bài tập sau: Nhập N là số nguyên dương.. Hãy tính tổng sau:..[r]
(1)Kiểm tra bài cũ Lop8.net (2) Lop8.net (3) TiÕt 49: Bµi 12: CÊu tróc lÆp while Bài toán ví dụ Cấu trúc vòng lặp Bài tập áp dụng Lop8.net (4) TiÕt 49: Bµi 12: CÊu tróc lÆp while Bài toán: Nhập vào số nguyên dương n Hãy tính tổng các số nguyên từ đến n S= + + + + … + n Phân tích bài toán: Lần S =1 Lần + Lần + Lop8.net Lần N +… +n (5) TiÕt 49: Bµi 12: CÊu tróc lÆp while S1 S1 = + + + + + + n S2 S3 S2 = S1 + S4 Sn S3 = S2 + S4 = S3 + Sn = Sn-1 + n NhËn xÐt: Mçi lÇn thùc hiÖn tÝnh tæng th× gi¸ trÞ tæng S t¨ng nh thÕ nµo? B¾t ®Çu tõ S1 viÖc tÝnh S ® îc lÆp ®i lÆp l¹i n lÇn theo quy luËt: Ssau = Strước+ i víi i ch¹y tõ n Lop8.net (6) TiÕt 49: Bµi 12: CÊu tróc lÆp while Cách giải: B1: Nhập N; B2: S:=0; i:=1; B3: Nếu i <= N thì xuất giá trị S kết thúc; B4 : S:= S + i; B5: i:= i +1; quay lại B3 Lop8.net (7) TiÕt 49: Bµi 12: CÊu tróc lÆp while Chương trình mẫu: Program Tinh_tong; Var i, N, S : Integer; Begin Write(‘ Nhap vao mot so nguyen duong N :’); Readln(N); S:=0; i:=1; While (i<=n) Do Begin S:=S+i; i:=i+1; End; Writeln(‘ Tong S = ’,S); Readln; End Lop8.net (8) TiÕt 49: Bµi 12: CÊu tróc lÆp while Cấu trúc vòng lặp: a Cú pháp: WHILE <§iÒu kiÖn> DO Begin <C¸c c©u lÖnh>; End; §iÒu kiÖn: Lµ biÓu thøc quan hÖ hoÆc l«gic While (i<=n) Do Begin S:=S+i; i:=i+1; End; Lop8.net Điều kiện Các câu lệnh (9) TiÕt 49: Bµi 12: CÊu tróc lÆp while Cấu trúc vòng lặp: b Sự hoạt động: Bước 1: Kiểm tra <điều kiện>; Bước 2: Nếu <điều kiện> đúng thì các câu lệnh thực qua lại bước Nếu <điều kiện> sai thì kết thúc While (i<=n) Do Begin S:=S+i; i:=i+1; End; Lop8.net (10) TiÕt 49: Bµi 12: CÊu tróc lÆp while Cấu trúc vòng lặp: c Sơ đồ: Sai §iÒu kiÖn §óng C©u lÖnh Lop8.net (11) TiÕt 49: Bµi 12: CÊu tróc lÆp while Bài tập áp dụng: Thảo luận nhóm lên bảng làm các bài tập sau: Nhập N là số nguyên dương Hãy tính tổng sau: 1 + + + S=1+ Lop8.net n (12) TiÕt 49: Bµi 12: CÊu tróc lÆp while Bài tập áp dụng: Suy nghĩ trả lời các câu hỏi sau (lấy điểm) Các vòng lặp sau thực bao nhiêu lần lặp? Vì sao? i:=1; x:=4; While i<x Do Begin x:=x-i; i:=i+1; End; i:=3; While i<4 Do Writeln(‘Oan tu ti goi mi Mum Mum’); Lop8.net (13) TiÕt 49: Bµi 12: CÊu tróc lÆp while Dặn dò: Bài tập nhà: Tính các tổng sau: n nhập từ bàn phím S=2+4+6+…+n, n>0, chẵn S=1+2+3+…+n S>50, n>0 Lop8.net (14)