tuan 24 tiet 45

Tuần 24
Tiết: 45

Ngày soạn: 27/01/2018
Ngày dạy: 29/01/2018

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 … do trong Pascal.
2. 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 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 bài cũ:
Lồng ghép trong nội dung bài học.
3. Bài mới:
* Hoạt động khởi động: Để củng cố lại lý thuyết ta vào nội dung bài tập.
Hoạt động của GV
Hoạt động của HS
Nội dung ghi bảng
Hoạt động 1: (10’) Câu hỏi và Bài tập 1.
+ GV: Yêu cầu HS đọc và làm các + HS: Đọc và nghiên cứu SGK 1. Bài tập 1
bài tập SGK.
làm các bài tập theo yêu cầu.
* For…to…do:
+ GV: Chia lớp thành 6 nhóm học + HS: Thảo luận nhóm và trả lời - Chỉ thị cho máy thực hiện

tập và làm các bài tập trên.
các câu hỏi đề ra.
lệnh với số lần đã xác định
+ GV: Quan sát hướng dẫn các + HS: Thảo luận theo nhóm trình từ trước.
nhóm thảo luận các bài tập trên.
bày vào bảng phụ.
- Điều kiện là giá trị của
+ GV: Hãy phát biểu sự khác biệt + HS:
biến đếm có giá trị nguyên
giữa câu lệnh lặp với số lần biết
đã đạt được giá trị lớn nhất
For…to…do
Wh
trước và câu lệnh lặp với số lần lặp Chỉ thị cho máy Máy tính thực hay chưa.
thực hiện lệnh hiện với số lần
chưa biết trước.
- Câu lệnh thực hiện ít nhất
+ GV: Ôn lại cho HS các kiến thức với số lần đã xác lặp chưa xác định một lần, sau đó kiểm tra
định
từ trước.
cơ bản để các em nắm bắt và thực trước.le…do
điều kiện.
Có thể kiểm tra
hiện yêu cầu.
* While…do:
Điều kiện là giá giá trị của một số
+ GV: Hướng dẫn các em các nội trị của biến đếm thực, cũng có thể - Máy tính thực hiện với số
dung cần đưa ra để so sánh giữ hai có giá trị nguyên là một điều kiện lần lặp chưa xác định trước.
đã đạt được giá khác…
câu lệnh lặp.

- Có thể kiểm tra giá trị của
trị lớn nhất hay
một số thực, cũng có thể là
chưa.
Kiểm tra điều
một điều kiện khác…
Câu lệnh thực kiện, điều kiện
- Kiểm tra điều kiện, điều
hiện ít nhất một thỏa mãn thực
lần, sau đó kiểm hiện câu lệnh.
kiện thỏa mãn thực hiện câu
tra
điều
kiện.
+ GV: Cho HS thảo luận nhóm
lệnh.
trong vịng 5’ để tìm ra sự khác biệt
+ HS: Thực hiện thảo luận nhóm
giữa hai câu lệnh lặp.
+ GV: Quan sát các nhóm thảo luận theo sự hướng dẫn của GV.
định hướng cho các nhóm thực hiện
và hướng dẫn giải thích cho HS nếu + HS: Thực hiện thảo luận nhóm
dưới sự hướng dẫn của GV.
HS có thắc mắc.


+ GV: Các nhóm thực hiện xong,
đại diện nhóm lên bảng thuyết trình
bài làm của nhóm.
+ HS: Đại diện các nhóm lên

+ GV: Các nhóm khác nhận xét.
trình bày kết quả thảo luận.
+ GV: Nhận xét đánh giá sửa chữa + HS: Các nhóm nhận xét bổ
các lỗi sai của các nhóm.
xung thiếu sót cho nhau.
+ HS: Tập trung chú ý lắng nghe 
ghi nhớ kiến thức.
Hoạt động 2: (15’) Câu hỏi và Bài tập 2.
+ GV: Hãy cho biết kết quả của các + HS: Thảo luận nhóm trình bày
câu lệnh sau đây:
kết quả vào bảng phụ.
a) x:=5; While x <= 15 do x:= x+5; a) x = 20.
b) x:=5; While x < 15 do x:= x+5;
b) x = 15.
c) s := 0; n := 1; While s <= 3 do c) s = 4.
s:=s+n;
a) x:=10; While x=10 do x:= x+5;
d) Lặp vô hạn lần.
b) x:=10; While x>10 do x:= x+5;
e) x = 10.
+ GV: Quan sát các nhóm thảo luận + HS: Thực hiện theo sự hướng
và hướng dẫn giải thích cho HS.
dẫn của GV.
+ GV: Các nhóm thực hiện xong, + HS: Các nhóm trình bày kết
đại diện nhóm lên bảng thuyết trình. quả của mình.
+ GV: Các nhóm khác nhận xét.
+ HS: Các nhóm nhận xét bổ
xung thiếu sót cho nhau.
+ GV: Nhận xét đánh giá sửa chữa + HS: Tập trung chú ý lắng nghe 
các lỗi sai của các nhóm.

ghi nhớ kiến thức.
Hoạt động 3: (18’) Câu hỏi và Bài tập 3.
+ GV: Viết chương trình Pascal để + HS: Thảo luận theo nhóm trình
tính tổng của 100 số tự nhiên đầu.
bày vào bảng phụ. Chương trình:
+ GV: Hướng dẫn HS thuật tốn var x,y,UCLN,BCNN,t:integer;
begin
thực hiện của bài toán.
+ GV: Quan sát hướng dẫn từng readln(x,y);
BCNN:=x*y;
nhóm thực hiện viết chương trình.
t:= y mod x;
+ GV: Yêu cầu các nhóm thực hiện While t <> 0 do
Begin
xong lên bảng trình bày kết quả
t:= x MOD y;
+ GV: Nhận xét đánh giá sửa chữa
x:= y;
các lỗi sai của các nhóm.
y:= t;
+ GV: Viết chương trình mơ tả bài
End;
tốn trên Pascal chạy và giải thích ý ucln:=x;
nghĩa các câu lệnh cho HS.
BCNN:=BCNN div UCLN;
+ GV: Nhận xét chốt nội dung bài write(UCLN,' ',BCNN);
end.
tập cho HS.
4. Củng cố:
- Củng cố trong nội dung bài tập.

5. Dặn dò: (1’)
- Xem trước nội dung bài thực hành.
IV. RÚT KINH NGHIỆM:

2. Bài tập 2.
Hãy cho biết kết quả của
các câu lệnh sau đây:
a) x:=5; While x <= 15 do
x:= x+5;
b) x:=5; While x < 15 do
x:= x+5;
c) s := 0; n := 1; While s <=
3 do s:=s+n;
a) x:=10; While x=10 do
x:= x+5;
b) x:=10; While x>10 do
x:= x+5;

3. Bài tập 3.
Chương trình:
var x,y,UCLN,BCNN,t:integer;
begin
readln(x,y);
BCNN:=x*y;
t:= y mod x;
While t <> 0 do
Begin
t:= x MOD y;
x:= y;
y:= t;

End;
ucln:=x;
BCNN:=BCNN div UCLN;
write(UCLN,' ',BCNN);
end.


...........................................................................................................................................................
...........................................................................................................................................................
...........................................................................................................................................................
...........................................................................................................................................................