Kĩ năng: Làm các bài tập về câu lệnh lặp với số lần chưa biết trước while … do trong Pascal2. Thái độ: Học tập nghiêm túc, có ý thức tự giác, tinh thần vươn lên vượt qua khó khăn.[r]
(1)BÀI TẬP
I MỤC TIÊU:
1 Kiến thức: Ôn tập câu lệnh lặp với số lần chưa biết trước while … Pascal.
2 Kĩ năng: Làm tập câu lệnh lặp với số lần chưa biết trước while … Pascal. 3 Thái độ: Học tập nghiêm túc, có ý thức tự giác, tinh thần vươn lên vượt qua khó khăn.
II CHUẨN BỊ:
1 Giáo viên: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu. 2 Học sinh: Vở ghi, sách giáo khoa.
III CÁC HOẠT ĐỘNG DẠY – HỌC: 1 Ổn định lớp: (1’)
8A1:……… 8A2:……… 2 Kiểm tra cũ:
Lồng ghép nội dung học 3 Bài mới:
Hoạt động GV Hoạt động HS Nội dung ghi bảng
Hoạt động 1: (8’) Câu hỏi Bài tập 1. + GV: Đưa thuật toán yêu
cầu HS thực nội dung: B1 S 10, x 0.5
B2 Nếu S 10, chuyển tới bước B3 n n + 3, S S – n quay lại bước
B4 Thông báo S kết thúc thuật toán
+ GV: Khi thực thuật tốn máy thực vịng lặp + GV: Kết thúc thuật toán giá trị S bao nhiêu?
+ GV: Viết chương trình Pascal thể thuật tốn
+ GV: Nhận xét đánh giá sửa chữa lỗi sai nhóm
+ HS: Các nhóm tìm hiểu thảo luận thuật tốn đưa + HS: Các nhóm thực trợ giúp hướng dẫn GV + HS: Các nhóm trình bày kết Các nhóm khác nhận xét bổ sung
+ HS: Khi thực thuật tốn máy tính thực vòng lặp + HS: Kết thúc thuật toán giá trị S = 0.5
+ HS: Đoạn chương trình Pascal tương ứng:
S:= 10; x := 0.5;
While S > 5.2 S := S - x; Writeln(S);
1 Bài tập
- Khi thực thuật toán máy tính thực vịng lặp
- Kết thúc thuật toán giá trị S = 0.5
- Đoạn chương trình Pascal tương ứng:
S:= 10; x := 0.5;
While S > 5.2 S := S - x; Writeln(S);
Hoạt động 2: (10’) Câu hỏi Bài tập 2. + GV: Đưa yêu cầu:
a Cho đoạn lệnh sau: S := 0; n := 0;
While S <= 10
Begin n := n + 1; S := S + n end; + GV: Với đoạn lệnh chương trình thực vịng lặp
b Cho đoạn lệnh sau: S := 0; n := 0;
+ HS: Tập trung lắng nghe
+ HS: Các nhóm trình bày kết Các nhóm khác nhận xét bổ sung
+ HS: Với đoạn lệnh chương trình thực vịng lặp
+ HS: Các nhóm tìm hiểu thảo luận thuật toán đưa
2 Bài tập Câu a
- Với đoạn lệnh chương trình thực vịng lặp Câu b.
- Chương trình thực vơ tận sau câu lệnh n := n + câu lệnh lặp kết thúc nên điều kiện S =
Ngày soạn: Ngày dạy: Tuần 25
(2)While S <= 10
n := n + 1; S := S + n;
+ GV: Với đoạn lệnh chương trình thực vịng lặp + GV: u cầu HS giải thích câu lệnh lại lặp vô hạn lần + GV: Cho HS thảo luận nhóm vịng 5’ để rút nhận xét từ hai đoạn chương trình sau tìm hiểu
+ GV: Nhận xét đánh giá rút kết luận cho HS
+ HS: Các nhóm thực trợ giúp hướng dẫn GV + HS: Chương trình thực vơ tận sau câu lệnh n := n + câu lệnh lặp kết thúc nên điều kiện S = thỏa mãn
+ HS: Điều kiện cần thay đổi để chuyển sang trạng thái không thỏa mãn Khi vịng lặp kết thúc hữu hạn bước câu lệnh While…do thường câu lệnh ghép
thỏa mãn
* Nhận xét: Điều kiện cần thay đổi để chuyển sang trạng thái không thỏa mãn Khi vịng lặp kết thúc hữu hạn bước câu lệnh While…do thường câu lệnh ghép
Hoạt động 3: (10’) Câu hỏi Bài tập 3. + GV: Hãy lỗi sai
câu lệnh sau đây:
a) x:=10; While x:=10 x:= x+5;
b) x:=10; While x=10 x= x+5;
c) s := 0; n := 0; While s <= 10 n:=n+1; s:=s+n;
+ GV: Quan sát nhóm thảo luận hướng dẫn giải thích cho HS + GV: Các nhóm thực xong, đại diện nhóm lên bảng thuyết trình
+ HS: Thảo luận nhóm trình bày kết vào bảng phụ
a) Thừa dấu hai chấm điều kiện
b) Thiếu dấu hai chấm câu lệnh gán;
c) Thiếu từ khóa begin end trước sau lệnh n := n+ s := s + n, vịng lặp trở thành vơ tận
+ HS: Các nhóm trình bày kết
3 Bài tập
a) Thừa dấu hai chấm điều kiện
b) Thiếu dấu hai chấm câu lệnh gán;
c) Thiếu từ khóa begin end trước sau lệnh n := n+ s := s + n, vịng lặp trở thành vô tận
Hoạt động 4: (15’) Câu hỏi Bài tập 4. + GV: Viết chương trình Pascal để
tính tổng 100 số tự nhiên đầu + GV: Hướng dẫn HS thuật toán thực tốn
+ GV: Quan sát hướng dẫn nhóm thực viết chương trình + GV: Yêu cầu nhóm thực xong lên bảng trình bày kết + GV: Nhận xét đánh giá sửa chữa lỗi sai nhóm
+ GV: Viết chương trình mơ tả tốn Pascal chạy giải thích ý nghĩa câu lệnh cho HS
+ GV: Nhận xét chốt nội dung tập cho HS
+ HS: Thảo luận theo nhóm trình bày vào bảng phụ Chương trình:
var i: byte;
S: longint; begin
S:= 0;
i:= 1;
while i <= 100
begin
S:= S + i; i:= i +1;
end;
write('Tong tu den
100 la:',S);
readln; end
4 Bài tập 4. Chương trình:
var i: byte; S: longint; begin
S:= 0;
i:= 1;
while i <= 100
begin
S:= S + i; i:= i +1;
end;
write('Tong tu den 100 la:',S); readln;
end
4 Củng cố:
- Củng cố nội dung tập 5 Dặn dò: (1’)
- Xem trước nội dung phần IV RÚT KINH NGHIỆM:
(3)