1. Nội dung đó học :
- Nhắc lại cấu trỳc cõu lệnh lặp While
2. Cõu hỏi, bài tập về nhà
- Giải bài tập 5b, 7, 8 sgk trang 51.
- Đọc lại bài lệnh rẽ nhỏnh IF và làm cỏc bài tập liờn quan chuẩn bị cho tiết sau thực hành. điều kiện lệnh cần lặp S Đ Ngày 19 thỏng 11 năm 2013 Ký duyệt của Tổ trưởng
Tuần dạy: 15 Ngày soạn : 26/11/2014
Tiết PPCT : 14 Ngày dạy : 01/12/2014
Đ10: CẤU TRÚC LẶP I. MỤC TIấU I. MỤC TIấU
1. Kiến thức
- Biết được ý nghĩa của cấu trỳc lặp cú số lần lặp chưa biết trước - Biết được cấu trỳc chung của lệnh lặp While trong NNLT Pascal.
2. Kĩ năng
- Phõn biệt được sự giống và khỏc nhau giữa cấu trỳc lặp For và While. - Sử dụng đỳng lệnh lặp While trong lập trỡnh.
- Bước đầu biết lựa chọn đỳng dạng lệnh lặp để lập trỡnh giải quyết một số bài toỏn đơn giản.
II. ĐỒ DÙNG DẠY HỌC
1. Giỏo viờn: Sgk, sgv, bảng phụ
2. Học sinh : Lặp với số lần biết trước.
III. HOẠT ĐỘNG DẠY HỌC1. Ổn định lớp : 1. Ổn định lớp :
2. Kiểm tra bài cũ
Trỡnh bày cấu trỳc lặp While..Do? Lấy vớ dụ?
3. Bài mới :
Hoạt động 1: Rốn luyện kĩ năng vận dụng lệnh lặp While
Hoạt động của Giỏo viờn và Học sinh Nội Dung
1. Trở lại bài toỏn 2
- Đó xỏc định <điều kiện>, <lệnh cần lặp> hóy viết cõu lệnh While hoàn chỉnh?
1. HS Quan sỏt, xỏc định lại cỏc thành phần và trả lời:
While A< B Do begin
A := A + 0.015*A; T := T + 1; T := T + 1;
end;
1hs lờn bảng trỡnh bày, hs khỏc N/xột Đỳng–Sai, bổ sung. * Ghi nhớ những phần sửa chữa của gviờn.
- Chia lớp theo từng bàn. Y/cầu hs từng bàn thảo luận và viết chương trỡnh hoàn thiện.
- Cho 1 hs lờn bảng trỡnh bày. (adsbygoogle = window.adsbygoogle || []).push({});
Vớ dụ 1:
Var A, B: extended; T: byte;
Begin
Write(‘So tien ban dau A: ’); Readln( A);
Write(‘So tien can co B(B>A): ’); Readln(B);
T := 0;
While A< B Do begin
Giỏo ỏn Tin học 11 Trường THPT Lờ Trực
- Gọi 1- 2hs khỏc n/xột, đỏnh giỏ.
* Chớnh xỏc húa chương trỡnh cho cả lớp. (chỉnh sửa lại chtrỡnh của hs)
2. Nờu nội dung vớ dụ 2
Phõn tớch để xỏc định <điều kiện> và <lệnh cần lặp>. Hỏi:
- Điều kiện để tiếp tục lặp là gỡ? Gợi ý: Điều kiện: M<>N
- Cỏc lệnh cần lặp là gỡ? Gợi ý: M := M – N; hoặc N := N – M;
- Y/cầu hs nờu thuật toỏn tỡm ucln của 2 số đú. - T/toỏn:
B1: Nếu m=n thỡ ucln=m, dừng;
B2: Nếu m>n thỡ m:=m-n ngược lại n:=n-m, qlại B1. HS Suy nghĩ và trả lời:
+ Điều kiện nào để lặp lại + Những lệnh nào cần lặp lại
- Y/cầu hs viết chương trỡnh hoàn thiện bài toỏn ở nhà. Củng cố: Hóy nờu 2 cõu hỏi cần đặt ra khi gặp bài toỏn dạng này?
T := T + 1;
end;
Writeln(‘Phai cho ’,T,’ thang’); Readln
End.