Trường Trung học Cơ sở Phường 4 Giáo án Tin học 8
GIÁO ÁN MƠN TIN HỌC 8
TUẦN 27 Tiết PPCT: 15 Tiết TKB: 1 LỚP: 8/7
Ngày soạn : 05/03/2010
Ngày dạy : 11/03/2010
GVHD: La Thị Huyền Đan
SV dạy: Trần Ngọc Khoa
BÀI TẬP
I. MỤC TIÊU
– Kiến thức:
+ Nắm vững cú pháp của câu lệnh lặp While do.
+ Biết kiểm tra vòng lặp của câu lệnh While do.
– Kỹ năng: vận dụng được câu lệnh While do để giải các bài tập có cấu trúc
lặp với số lần chưa biết trước, biết cách sử dụng kết hợp cặp từ khóa Begin end đối
với những lệnh ghép trong câu lệnh While do.
– Thái độ: tập trung, tích cực trong giờ học.
II. CHUẨN BỊ
– GV: giáo án, sgk, bảng phụ.
– HS: xem kỹ bài cũ, đọc trước bài mới.
III. TIẾN TRÌNH BÀI DẠY
HĐ1: Kiểm tra bài cũ, đặt vấn đề vào bài mới ( 4’)
– HS:
+ Cho biết cú pháp của câu lệnh lặp While do?
+ Câu lệnh lặp While do được thực hiện như thế nào?
– GV nhận xét, cho điểm.
– Đặt vấn đề vào bài mới:
Tiết trước chúng ta đã được làm quen với các hoạt động lặp với số lần chưa
biết trước và cách thể hiện các hoạt động đó bằng câu lệnh lặp While do. Để biết
rõ hơn cách sử dụng câu lệnh lặp While do, hơm nay chúng ta sẽ cùng tìm hiểu
một số bài tập về các hoạt động lặp với số lần chưa biết trước.
Bài tập

– GV treo bảng thuật tốn 1
và gọi HS giải thích ý nghĩa
của từng bước.
a) Thuật tốn 1
B1: S

10, x

0.5.
B2: Nếu S
≤
5.2, chuyển tới bước
4.
B3: S

S-x và quay lại bước 2.
– B1: gán giá trị S và x.
– B2 : kiểm tra điều kiện
nếu S>5.2 thì chuyển đến
B3, nếu S
≤
5.2 thì chuyển
đến B4.
– B3 : thực hiện câu lệnh
a) Thuật tốn 1
Bài tập
2
Trường Trung học Cơ sở Phường 4 Giáo án Tin học 8
B4: Thơng báo S và kết thúc thuật
tốn.

6 S:=7.5-0.5 =7.0 S=7.0>5.2
7 S:=7.0-0.5 =6.5 S=6.5>5.2
8 S:=6.5-0.5 =6.0 S=6.0>5.2
9 S:=6.0-0.5 =5.5 S=5.5>5.2
10 S:=5.5-0.5 =5.0 S=5.0<5.2
– Khi thực hiện chương trình,
máy tính sẽ thực hiện 10 vòng
lặp.
– Khi kết thúc vòng lặp, giá
trị của S bằng 5.0.
– GV hướng dẫn HS viết
chương trình.
Var…
Begin
<câu lệnh>;
While <điều kiện> do <câu
lệnh>;
<câu lệnh>;
End.
– HS ghi nhận.
– Cho HS chia nhóm thảo
luận (4 nhóm - 2’) viết
chương trình.
– HS hoạt động nhóm viết
chương trình vào bảng
phụ, treo lên bảng.
Var S , x : real;
Begin
S := 10; x := 0.5;
Bài tập

tốn.
– B1: gán giá trị S và n.
– B2 : kiểm tra điều kiện
nếu S<10 thì chuyển đến
B3, nếu S
≥
10 thì chuyển
đến B4.
– B3 : thực hiện câu lệnh
gán n

n + 3, S

S –
n, quay lại B2.
– B4 : in kết quả.
b) Thuật tốn 2.
(?) Điều kiện của vòng lặp? – S < 10
(?) Câu lệnh của vòng lặp? – n  n + 3, S  S – n;
(?) Cho HS thảo luận nhóm

(4 nhóm – 2’) lập bảng tương
tự như đối với Thuật tốn 1
và cho biết máy tính sẽ thực
hiện thuật tốn trong bao
nhiêu vòng lặp?
– HS thảo luận nhóm và
trả lời (khơng có vòng lặp
nào được thực hiện).
– GV gọi HS nhận xét.

S:=0; n:=0;
While S
≤
10 do
Begin n:=n+1;S:=S+n end;
a) Đoạn chương trình 1
(?) Bài tốn u cầu làm gì?
(?) Điều kiện của vòng lặp?
(?) Câu lệnh của vòng lặp?
– Cho HS thảo luận nhóm
(4 nhóm – 2’) hồn thành bài
tập vào bảng.
– Tìm số lần lặp của đoạn
chương trình.
– S
≤
10.
– n  n + 1; S  S + n;
– HS thảo luận và báo cáo.
LẦN
LẶP
nn+1 SS+n
Kiểm tra
điều kiện
n:=0; S:=0; S=0
≤
10
1 1 1 S=1
≤
10

– n  n + 1;
– Cho HS thảo luận nhóm
(4 nhóm – 2’) hồn thành bài
tập vào bảng.
– HS thảo luận và báo cáo.
LẦN
LẶP
nn+1 S
Kiểm tra
điều kiện
n:=0; S:=0; S=0
≤
10
1 1 0 S=0
≤
10
2 2 0 S=0
≤
10
3 3 0 S=0
≤
10
Bài tập
5
Trường Trung học Cơ sở Phường 4 Giáo án Tin học 8
… … … …
– Cho nhóm khác nhận xét.
– GV nhận xét.
– Nhóm nhận xét.
– HS ghi nhận. – Đoạn chương trình thực

hay chưa?
(?) Cú pháp câu lệnh có đúng
– Câu lệnh khơng thể là
phép so sánh.
Bài tập
6
Trường Trung học Cơ sở Phường 4 Giáo án Tin học 8
hay chưa?
– GV gọi HS nhận xét và chốt ý. – HS ghi nhận. – Câu lệnh khơng thể là
một phép so sánh mà phải
là các câu lệnh đơn hoặc
ghép.
(?) Câu c) sai ở vị trí nào?
(?) Với những câu lệnh ghép ta
phải thể hiện nó như thế nào?
– Thiếu cặp từ khóa
Begin end cho câu lệnh
ghép.
– Với những câu lệnh
ghép ta phải đặt trong cặp
từ khóa Begin end.
HĐ5: Bài tập vận dụng (7’)
– Để bài : Viết chương trình
nhập một số từ bàn phím và tính
tổng các số đã nhập cho đến khi
tổng lớn hơn 1000 thì ngừng lại.
Var S , n : integer;
Begin
S:=0;
While S

Bài tập
8