Tuần 23
Tiết 45

Ngày soạn: 18/01/2018
Ngày dạy: 24/01/2018

Bài thực hành 6:

SỬ DỤNG LỆNH LẶP WHILE…DO (t1)

I. MỤC TIÊU:
1. Kiến thức:
- Viết được chương trình có sử dụng vịng lặp While…do
- Sử dụng được câu lệnh ghép
2. Kĩ năng: Đọc hiểu chương trình có vịng lặp while…do
3. Thái độ: Có ý thức tư duy, có thái độ ham học hỏi, tác phong làm việc nghiêm túc.
II. CHUẨN BỊ:
1. Giáo viên: SGK, giáo án, phòng máy
2. Học sinh: Đọc trước bài, SGK, đồ dùng học tập
III. CÁC HOẠT ĐỘNG DẠY-HỌC:
1. Ổn định tổ chức lớp: (1’)
8A3........................................................................................................
8A4........................................................................................................
8A5.......................................................................................................
2. Kiểm tra bài cũ: Lấy kết quả thực hành cho điểm kiểm tra thực hành 15 phút
3. Bài mới: (40’)
Hoạt động của giáo viên
Hoạt động của học sinh
Nội dung ghi bảng
Hoạt động 1: Bài tập 1
Gv: Cho học sinh suy nghĩ về

1. Bài tập 1:
chương trình bài tập 1
Viết chương trình sử dụng
- Ý tưởng?
Hs: Sử dụng một biến đếm lệnh lặp While … do để tính
và lệnh lặp While…do để n số thực x1, x2, x3 … xn.
nhập và cộng dần các số vào Các số n và x1, x2, x3…, xn
một biến kiểu số thực cho được nhập từ bàn phím.
đến khi nhập đủ n số.
Gv: Yêu cầu học sinh xác định Xác định bài tốn:
Gõ chương trình sau đây:
đầu vào, đầu ra và mơ tả thuật + Input: Cho n số x1, x2,
Program tinh_trung_binh;
toán của chương trình, các biến x3…xn.
Var n, dem: integer;
dự định sẽ sử dụng và kiểu của + Output: Tính trung bình.
X, tb: real;
chúng
HS : Mơ tả thuật tốn:
Begin
B1: dem0; TB0;
Dem:=0; tb:=0;
Writeln(‘nhap cac so can
B2: nhập n;
B3: Nếu dem>n thì tới bước5 tinh n =’);
Readln(n);
B4: demdem+1; nhập x;
While dem < n do
TBTB+x;
B5: Kết thúc và in kết quả ra Begin

Dem:= dem + 1;
màn hình.
Writeln(‘nha
so
thu’,
- Gõ chương trình sau đây:
dem,’=’);
- Học sinh độc lập gõ chương
Program tinh_trung_binh;
Readln(x);
trình vào máy.
Var n, dem: integer;
Tb:= tb + x;


X, tb: real;
Begin
Dem:=0; tb:=0;
Writeln(‘nhap cac so can tinh n
=’);
Readln(n);
While dem < n do
Begin
Dem:= dem + 1;
Writeln(‘nha so thu’, dem,’=’);
Readln(x);
Tb:= tb + x;
End;
Tb:=tb/n;
Witeln(‘Trung binh của’,n,’so là

=’, tb:10:3);
Readln;
End.
- Lưu chương trình với tên
tinh_tb.
+ Học sinh lưu chương trình
- Đọc hiểu và tìm hiểu ý nghĩa theo yêu cầu của giáo viên.
của từng câu lệnh. Dịch chương
trình và sửa lỗi, nếu có. Chạy + Học sinh thực hiện theo
chương trình với các bộ dữ liệu yêu cầu của giáo viên.
được gõ từ bàn phím và kiểm tra
kết quả nhận được.
4.Củng cố: (3’)
- Sử dụng vịng lặp While .. do cho các bài tốn.
5. Dặn dò: (1’)
- Xem trước bài thực hành 6.
IV. Rút kinh nghiệm:

End;
Tb:=tb/n;
Witeln(‘Trung
binh
của’,n,’so là =’, tb:10:3);
Readln;
End.

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

Tuần 23

Tiết 46

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

Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE…DO (t2)


I. MỤC TIÊU:
1. Kiến thức:
- Viết được chương trình có sử dụng vòng lặp While…do
- Sử dụng được câu lệnh ghép
2. Kĩ năng:
- Đọc hiểu chương trình có vịng lặp while…do
3. Thái độ:
- Có ý thức tư duy, có thái độ ham học hỏi, tác phong làm việc nghiêm túc.
II. CHUẨN BỊ:
1. Giáo viên: SGK, giáo án, phòng máy
2. Học sinh: Đọc trước bài, SGK, đồ dùng học tập
III. CÁC HOẠT ĐỘNG DẠY-HỌC:
1. Ổn định tổ chức lớp: (1’)
8A3........................................................................................................
8A4........................................................................................................
8A5.......................................................................................................
2. Kiểm tra bài cũ:
Kiểm tra trong quá trình thực hành
3. Bài mới: (40’)
Hoạt động của giáo viên
Hoạt động của học sinh
Nội dung ghi bảng

Hoạt động 1: Làm bài tập 2 ở SGK
- Gọi học sinh đọc đề bài ở Bài 2. Tìm hiểu chương
sách giáo khoa.
trình nhận biết một số tự Bài 2. Tìm hiểu chương trình
- Ý tưởng?
nhiên N được nhập vào từ nhận biết một số tự nhiên N
bàn phím có phải là số được nhập vào từ bàn phím
ngun tố hay khơng.
có phải là số ngun tố hay
- Giáo viên đưa ra ý tưởng để
khơng.
học sinh tìm hiều.
Uses Crt;
Ý tưởng: Kiểm tra lần lượt N
Var n,i:integer;
có chia hết cho các số tự nhiên - Học sinh tìm hiểu ý tưởng Begin
2 ≤ i ≤ N hay không. Kiểm tra theo sự hướng dẫn của giáo Clrscr;
tính chia hết bằng phép chia viên.
write('Nhap vao mot so
lấy phần dư (mod).
nguyen: ');readln(n);
If n<=1 then writeln('N
? Đọc và tìm hiểu ý nghĩa của
khong la so nguyen to')
từng câu lệnh trong chương
else
trình sau đây:
begin
Uses Crt;
+ Học sinh đọc chương trình

Var n,i:integer;
và tìm hiểu ý nghĩa của từng
Begin Clrscr;
câu lệnh theo sự hướng dẫn
của giáo viên.


Write('Nhap vao mot so
nguyen: ');readln(n);
If n<=1 then writeln('N
khong la so nguyen to')
else
begin
i:=2;
while (n mod i<>0) do
i:=i+1;
if i=n then writeln(n,' la
so nguyen to!')
else writeln(n,' khong
phai la so nguyen to!');
end;
readln
end.
+ Gõ chương trình vào máy, + Học sinh độc lập gõ
chạy chương trình và kiểm tra chương trình vào máy.
kết quả.
+ Nhấn Ctrl + F9 để chạy và
kiểm tra chương trình.

i:=2;

while (n mod i<>0) do
i:=i+1;
if i=n then writeln(n,' la
so nguyen to!')
else writeln(n,' khong
phai la so nguyen to!');
end;
readln
end.

4. Củng cố: (3’)
- Nhận xét đánh giá tiết thực hành và những điều cần lưu ý
5. Dặn dò: (1’)
- Xem lại bài tập của 2 vòng lặp For ... to .... do và vòng lặp while … do
- Tiết sau chữa bài tập.
IV. Rút kinh nghiệm:
.......................................................................................................................................
.......................................................................................................................................

Tuần 24
Tiết 47

Ngày soạn: 26/01/2018
Ngày dạy: 31/01/2018

Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE…DO (t3)


I. MỤC TIÊU:
1. Kiến thức:

- Viết được chương trình có sử dụng vòng lặp While…do
- Sử dụng được câu lệnh ghép
2. Kĩ năng:
- Đọc hiểu chương trình có vịng lặp while…do
3. Thái độ:
- Có ý thức tư duy, có thái độ ham học hỏi, tác phong làm việc nghiêm túc.
II. CHUẨN BỊ:
1. Giáo viên: SGK, giáo án, phòng máy
2. Học sinh: Đọc trước bài, SGK, đồ dùng học tập
III. CÁC HOẠT ĐỘNG DẠY-HỌC:
1. Ổn định tổ chức lớp: (1’)
8A3........................................................................................................
8A4........................................................................................................
8A5.......................................................................................................
2. Kiểm tra bài cũ:
Kiểm tra trong quá trình thực hành
3. Bài mới: (40’)
Hoạt động của giáo viên
Hoạt động của học sinh
Nội dung ghi bảng
Hoạt động 1: Làm bài tập 2 ở SGK
- Gọi học sinh đọc đề bài ở Bài 2. Tìm hiểu chương
sách giáo khoa.
trình nhận biết một số tự Bài 2. Tìm hiểu chương trình
- Ý tưởng?
nhiên N được nhập vào từ nhận biết một số tự nhiên N
bàn phím có phải là số được nhập vào từ bàn phím
ngun tố hay khơng.
có phải là số ngun tố hay
- Giáo viên đưa ra ý tưởng để

khơng.
học sinh tìm hiều.
Uses Crt;
Ý tưởng: Kiểm tra lần lượt N
Var n,i:integer;
có chia hết cho các số tự nhiên - Học sinh tìm hiểu ý tưởng Begin
2 ≤ i ≤ N hay không. Kiểm tra theo sự hướng dẫn của giáo Clrscr;
tính chia hết bằng phép chia viên.
write('Nhap vao mot so
lấy phần dư (mod).
nguyen: ');readln(n);
If n<=1 then writeln('N
? Đọc và tìm hiểu ý nghĩa của
khong la so nguyen to')
từng câu lệnh trong chương
else
trình sau đây:
begin
Uses Crt;
+ Học sinh đọc chương trình
Var n,i:integer;
và tìm hiểu ý nghĩa của từng
Begin Clrscr;
câu lệnh theo sự hướng dẫn
của giáo viên.


Write('Nhap vao mot so
nguyen: ');readln(n);
If n<=1 then writeln('N

khong la so nguyen to')
else
begin
i:=2;
while (n mod i<>0) do
i:=i+1;
if i=n then writeln(n,' la
so nguyen to!')
else writeln(n,' khong
phai la so nguyen to!');
end;
readln
end.
+ Gõ chương trình vào máy, + Học sinh độc lập gõ
chạy chương trình và kiểm tra chương trình vào máy.
kết quả.
+ Nhấn Ctrl + F9 để chạy và
kiểm tra chương trình.

i:=2;
while (n mod i<>0) do
i:=i+1;
if i=n then writeln(n,' la
so nguyen to!')
else writeln(n,' khong
phai la so nguyen to!');
end;
readln
end.


4. Củng cố: (3’)
- Nhận xét đánh giá tiết thực hành và những điều cần lưu ý
5. Dặn dò: (1’)
- Xem lại bài tập của 2 vòng lặp For ... to .... do và vòng lặp while … do
- Tiết sau chữa bài tập.
IV. Rút kinh nghiệm:
.......................................................................................................................................
.......................................................................................................................................