Cau truc lap t1

Ngày soạn: 11/9/2011
Ngày giảng: 19/9/2011
Tiết 11
bài 10: cấu trúc lặp (Tiếp)
A - Mục đích, yêu cầu
I- Kiến thức:
- Biết cách vận dụng đúng đắn từng loại cấu trúc lặp vào tình huống cụ thể.
II- Kĩ năng:
- Mô tả được thuật toán của một số bài toán đơn giản có sử dụng lệnh lặp.
- Viết đúng các lệnh lặp với số lần chưa biết trước.
- Viết được thuật toán của một số bài toán đơn giản.
B- Đồ dùng dạy học:
- GV : Bài soạn, tài liệu tham khảo, máy chiếu và một số chương trình Pascal có cấu trúc lặp, một số Slide minh hoạ.
C- Phương pháp
Thuyết trình, vấn đáp
d – Tiến trình dạy - học:
I- ổn định lớp: (1’) Tổng số học sinh: Vắng: Lí do:
II- Kiểm tra bài cũ:
IV- Hướng dẫn tìm hiểu bài: (42’)
Hoạt động của GV
Hoạt động của trò
TG

1. Ví dụ 1: Lập trình cho bài toán Tong_1a và Tong_1b.
( Sử dụng máy chiếu, chiếu SLide Tong_1a (cho xuất hiện lần lượt từng dòng lệnh).
Program Tong_1a;
uses crt;
var S: real;
a, N: Integer;
Begin
clrscr;
write(‘ Nhap vao gia trị a = readln(a);
( Dựa vào thuật toán. Viết CT cho bước 1 và em hiểu bản chất câu lệnh gán S:= 1.0/a là như thế nào?
S:= 1.0/a; { Bước 1 }
for N:= 1 to 100 do { Bước 2, Bước 3 }
( Chúng ta hiểu lệnh for N:= 1 to 100 do nghĩa là như thế nào?
S:= S + 1.0/(a+N); { Bước 4 }
( Ta hiểu lệnh gán S:= S + 1.0/(a+N) là như thế nào?
writeln(‘ Tong S la: ‘, S:8:4); { Bước 5 }
readln
End.
( Dựa vào CT Tong_1a hãy viết CT Tong_1b. Sử dụng máy chiếu, chiếu SLide Tong_1b (cho xuất hiện lần lượt từng dòng lệnh).
Program Tong_1a;
uses crt;
var S: real;
a, N: Integer;
Begin
clrscr;
write(‘ Nhap vao gia trị a = ‘); readln(a);
S:= 1.0/a;
for N:= 100 downto 1 do
S:= S + 1.0/(a+N);
writeln(‘ Tong S la: ‘, S:8:4);
readln
End.




- Theo dõi hướng dẫn của GV và quan sát các lệnh được lần lượt đưa ra.
- Ghi bài



- Thảo luận, trả lời câu hỏi.

- Nhận xét trả lời của bạn. ý kiến khác.






- Lần lượt đóng góp ý kiến xây dựng bài.

- Nhận xét cách viết CT của bạn.

- Nghe, ghi bài.


2. Ví dụ 2:
Cho 2 số nguyên dương M,N. Lập trình đưa và ra màn hình tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ M đến N.
( Chia lớp thành 3 nhóm, các nhóm thảo luận xây dựng thuật toán và viết CT.
( Cho đại diện 3 nhóm lên bảng cùng lúc, trình bày thuật toán.

( Hướng dẫn cho HS đóng góp ý kiến.
Program Vi_dụ_2;
uses crt;
var M, N, i: Integer;
Tg: Integer;
Begin
clrscr;
write(‘