TIẾT 16

Ngày soạn : Tiết :
Ngày dạy : Lớp :

BÀI TẬP

I. MỤC TIÊU BÀI DẠY
1-Kiến thức
- Hiểu được cấu trúc lặp For-do và While-do
- Biết vận dụng cấu trúc lặp với số lần chưa biết trước vào các bài toán cụ thể.
2-Kỹ năng
- Xây dựng thuật toán
- Chuyển từ thuật toán sang chương trình Pascal.
3-Thái độ
- Say mê, ham thích nghiên cứu môn Tin học.
II. ĐỒ DÙNG DẠY HỌC
1-Chuẩn bị của Giáo viên
- Giáo án, SGK, đồ dùng dạy học.
2-Chuẩn bị của Học sinh
- Sách giáo khoa, vở ghi, đồ dùng học tập.
III. HOẠT ĐỘNG HỌC TẬP
1-Hoạt động 1: Ổn định tổ chức
Hoạt động của GV
Hoạt động của HS
TG

- Ổn định lớp.
- Kiểm tra sỹ số
- Chào thầy.
- Báo cáo sỹ số.
2’

2-Hoạt động 2: Kiểm tra bài cũ
Hoạt động của GV
Hoạt động của HS
TG

*Đưa ra câu hỏi.
Viết cấu trúc câu lệnh While-do

- Nhận xét, đánh giá, cho điểm.
*Lên bảng trả lời.
* Câu lệnh While – do
- Cấu trúc:
While <điều kiện> do ;
+ Điều kiện: là biểu thức logic
+ Câu lệnh: là câu lệnh đơn hoặc câu lệnh ghép.











5’

3-Hoạt động 3: Bài mới
Hoạt động của GV
Hoạt động của HS
TG

Chữa bài tập:

Bài tập 1: Kiểm tra tính chẵn, lẻ của một số nguyên nhập từ bàn phím.
- Yêu cầu học sinh suy nghĩ trình bày thuật toán và chương trình.
- Trình chiếu chương trình một số em và nhận xét.

- Đưa chương trình đúng và cho chạy.












Bài tập 2 (6-SGK)
Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăm chân chẵn
Hỏi có bao nhiêu con mỗi loại

- Hướng dẫn, định hướng các em giải quyết bài toán
+ g là số gà
+ c là số chó

- Ta có thể thay giá trị 36 trong vòng for thứ nhất bằng một giá trị khác không?








Bài tập 3
Viết chương trình nhập vào một số nguyên bất kỳ đến khi nào nhập số 0 thì dừng.

- Gợi ý


- Suy nghĩ, trình bày thuật toán và chương trình vào giấy bóng kính.

- Thuật toán:
*Liệt kê:
- B1: Nhập n nguyên.
- B2: Nếu n chia hết cho 2 --> n chẵn
- B3: n là lẻ.
- B 4: kết thúc
*Sơ đồ khối:
*Viết chương trình.
Program chan_le;
uses crt;
var n:integer;
begin
clrscr;
write(`Nhap vao so nguyen n = `);
readln(n);
If n mod 2 = 0 then
writeln(`n la so chan `)
else
writeln(`n la so le`);
readln;
end.

- Với x là số gà, y là
số chó ta sẽ có hệ sau:




program ga_cho;
uses crt;
var
g,c:integer;
Begin
clrscr;
for c:=1 to 36 do
for g:=1 to 36 do
if (g+c=36) and (g+2*c=50) then
begin
writeln(`so cho la `,c,` con`);
writeln(`so ga la `,g,` con`);
end;
readln
End.

- Suy nghĩ trả lời



- Suy nghĩ vận dụng câu lệnh lặp While-do để giải quyết bài toán.

Program vd;
uses crt;
var n:integer;
begin
clrscr;
write(`Nhap vao so nguyen n = `);readln(n);
while n<>0 do
begin
write(`n = `);readln(n);
end;
readln
end.




11’























11’






















11’