CHÀO MỪNG Q THẦY CÔ VỀ DỰ CHUYÊN ĐỀ BÀI TẬP THỰC HÀNH WHILE – DO CHÀO MỪNG QUÝ THẦY CÔ VỀ DỰ CHUYÊN ĐỀ TRƯỜNG THCS LYÙ THÖÔØNG KIEÄT CHÀO MỪNG QUÝ THẦY CÔ VỀ DỰ CHUYÊN ĐỀ Viết câu lệnh If - Then (trong Pascal) thể hiện cấu trúc rẽ nhánh sau: Nếu ngày bằng 08 và tháng bằng 03 thì đưa ra màn hình dòng thông báo “Chào mừng ngày Quốc tế phụ nữ 8 tháng 3” Hãy quan sát và cho biết : Mỗi tình huống mô tả điều gì được lặp lại ? Và lặp bao nhiêu lần ? T ơ ù p h a ûi b ò p h a ït đ i t ơ ùi đ i l u i n h ư t h e á n a øy c h o t ơ ùi b a o g i ơ ø ? Còn tớ phải bò phạt tập thể dục như thế này cho tới bao giờ ? Cậu phải làm 100 lần như thế. Cấu trúc lặp mô tả điều gì? Có mấy loại lặp? Cậu phải đi cho đến khi trời mưa. Tình huống 1 Tình huống 2 Xét 3 bài toán : Bài 1: Hiển thò 100 chữ ‘Hello’ trên các hàng khác nhau. Bài 2: Đếm số lần nhập n. Việc nhập sẽ kết thúc khi n = 0 ; (Với n là số nguyên dương bất kỳ (n>0) ) Bài 3 : Tính tổng các số đã nhập . Việc nhập sẽ kết thúc khi n>=100 (Với n là số nguyên dương bất kỳ (n>0) ) Lặp : Bài 1 sử dụng cấu trúc lặp với số lần biết trước Cấu trúc lặp mô tả thao tác lặp và được phân biệt bởi 2 loại : là lặp với số lần biết trước và lặp với số lần chưa biết trước Cấu trúc lặp mô tả thao tác lặp và được phân biệt bởi 2 loại : là lặp với số lần biết trước và lặp với số lần chưa biết trước Hãy cho biết trong 3 bài toán trên, bài toán nào sử dụng cấu trúc lặp với số lần biết trước ? Bài tập 1 : Nhập vào giá trò cho phần tử n bất kỳ , việc nhập sẽ kết thúc khi n = 0 . In ra số lần nhập n (không kể trường hợp n = 0 , n là số nguyên dương) Bắt đầu thuật tốn : Bước 1 : Nhập n ;n = 0; dem = 0 ; Bước 2 : Nếu n = 0 → chuyển tới buớc 4 Bước 3 : dem : = dem +1 ; quay lại bước 2 Buớc 4 : Báo giá trị của biến dem . Kết thúc thuật tốn . Program Demsolannhapn; Uses crt; Var n, dem : Integer ; Begin Clrscr; Write (‘Nhap n :’); readln (n); dem:= 1; While n <> 0 do begin dem := dem + 1; write (‘Nhap n :’); readln (n); end; Writeln (‘So lan nhap n :, dem); Readln; End. Bài tập 2 : Nhập vào giá trò cho phần tử n bất kỳ , việc nhập sẽ kết thúc khi n >= 0 . In ra số lần nhập n và tổng các số đã nhập (không kể trường hợp n >= 100 , n là số nguyên dương) Bắt đầu thuật tốn : Bước 1 : Nhập n ;n = 0; dem = 1 ; S : = 0; Bước 2 : Nếu n >= 100 → chuyển tới buớc 4 Bước 3 : dem := dem +1 ; S:=S+n; quay lại bước 2 Buớc 4 : - Báo giá trị của biến dem - Báo giá trị tổng của n Kết thúc thuật tốn . Program Tongn; Uses crt; Var n, dem,S : Integer ; Begin Clrscr; Write (‘Nhap n :’); readln (n); dem:= 1; S :=0 ; While n >= 100 do begin dem := dem +1; S := S + n; write (‘Nhap n :’); readln (n); end; Writeln (‘So lan nhap n :’, dem); Writeln (‘Tong cac so da nhap:’,S); Readln; End. H y nhí!·  LÆp FOR . TO . DO . … FOR . Downto . DO . + LÆp víi sè lÇn lÆp biÕt tr­íc. + LÆp víi sè lÇn lÆp kh«ng biÕt tr­íc. TRÖÔØNG THCS LYÙ THÖÔØNG KIEÄT C C ảm ơn ảm ơn Quý Quý Thầy Cô Thầy Cô và và các em các em học sinh học sinh đã đã quan tâm quan tâm theo dõi ! theo dõi ! . so da nhap:’,S); Readln; End. H y nhí!·  LÆp FOR . TO . DO . … FOR . Downto . DO . + LÆp víi sè lÇn lÆp biÕt tr­íc. + LÆp víi sè lÇn lÆp kh«ng. : Integer ; Begin Clrscr; Write (‘Nhap n :’); readln (n); dem:= 1; While n <> 0 do begin dem := dem + 1; write (‘Nhap n :’); readln (n); end; Writeln