Tuần 23: 28/01 - 02/02/2013 Ngày soạn: 26/01/2013
Tiết : 43
Bài thực hành 5. SỬ DỤNG LỆNH LẶP FOR...DO

I. MỤC TIÊU:
1. Kiến thức. Hiểu Hoạt động của câu lệnh lặp với số lần biết trước for...do trong Pascal
2. Kĩ năng: Viết được chương trình có sử dụng vòng lặp for...do;
Sử dụng được câu lệnh ghép;
Rèn luyện kĩ năng đọc hiểu chương trình có sử dụng vòng lặp for...do.
3. Thái độ: có ý thức, kỉ luật, nghiêm túc, trình bày một vấn đề chặt chẽ, rõ ràng.
II. PHƯƠNG PHÁP: - Hoạt động theo nhóm
- Đặt và giải quyết vấn đề + thuyết trình.
III. CHUẨN BỊ
Giáo viên: Giáo án, SGK, phòng máy, máy chiếu, bài tập thực hành.
Học sinh: SGK, Đọc trước bài học, vở ghi chép, tìm hiểu một số bài toán và chỉ ra thuật toán.
Vi. tiến trình lên lớp:
1. Ổn định lớp
2.Kiểm tra bài cũ
? Nêu cấu trúc câu lệnh lặp đơn, câu lệnh lặp ghép, câu lệnh goto, cho biết ý nghĩa của câu lệnh lặp
3. Bài mới:
Hoạt động của GV và HS
Nội dung

 Hoạt động 1 : nội dung

Bài 4 : In ra màn hình các số có 4 chữ số mà tổng chữ số hành trăm và hàng nghìn bằng tổng các chữ số hàng chục và hàng đơn vị
? Nêu phương án giải quyết ?
HS : nêu cách giải
? bài toán yêu cầu những gì ?
HS : trả lời
? trước tiên cần phải tách các số, sau đó kiểm tra điều kiện tiếp theo ? nêu cách giải tách các số
HS : hêu các bước tách số
Bài 5 : giải bài toán cổ ‘ vừa gà vừa chó’
? tổng số gà và chó là bao nhiêu con?
HS : gà + chó = 36 con
? tổng số chân là bao nhiêu?
HS : gà *2 + chó*4 = 100
? số gà cvà số chó chỉ có thể trong khoảng từ bao nhiêu con đến bao nhiêu con?
HS : từ 1 đến 24 con vì chỉ có thể có ít hơn 100 : 4 = 25 con
Ta sẽ cho số chó lần lượt chạy từ 1 đến 24 tương ứng với số chó là số gà = 36 – chó và kiểm rta điều kiện nếu gà *2 + chó*4 = 100 thì hiện kết quả tìm được. ?Hãy lập trình theo gợi ý ?
HS : trả lời
GV : Tìm được kết quả bằng bao nhiêu ?
HS : trả lời.
Bài 1 tính tổng
S= 1+1/2+1/3+…+1/n
Với n nhập từ bàn phím
? bài này tương tự bài nào?
HS : trả lời
? công thức tính tổng S được tính như thế nào?
HS : trả lời
? ban đầu giá trị S gán bằng bao nhiêu?
HS : trả lời
? ta dùng biến nào là biến đếm? Giá trị dầu, giá trị cuối bằng bao nhiêu?
Uses Crt;
Var
a,b,c,d,i: Integer;
Begin
Clrscr;
Write(`cac so thoa man la = `);
Writeln;
For i:= 1000 to 9999 do
begin
a:= i div 1000;
b:= (i mod 1000) div 100;
c:= (i mod 100) div 10;
d:= i mod 10;
If ((b + a) = (d+ c)) then
write( i,` ` );
end;
Readln;
End.
Bài 5
var ga, cho:byte;
Begin
For cho:= 1 to 24 do
Begin
ga:= 36 - cho;
if (2*ga + 4*cho = 100) then
writeln(`Ga: `, ga, `, Cho: `,cho);
end;
readln;
end.
Bài 1
uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write(` nhap n=`);
readln(n);
s:=0;
for i:= 1 to n do
begin
s:= s+1/(2*n+1);
end;
Writeln(` tong la`,s:3:2);
readln;
end.

4. Củng cố và hướng dẫn về nhà.
? Nêu cấu trúc câu lệnh lặp đơn, câu lệnh lặp ghép, cho biết ý nghĩa của câu lệnh