Tiet 38

Ngày soạn: 3/1/2012
Tiết 38



I. MỤC TIÊU
Kiến thức
- Biết nhu cầu cần có cấu trúc lặp với số lần chưa biết trước trong ngôn ngữ lập trình.
- Biết ngôn ngữ lập trình dùng cấu trúc lặp với số lần chưa biết trước để chỉ dẫn máy tính thực hiện lặp đi lặp lại công việc đến khi một điều kiện nào đó được thỏa mản.
- Biết lệnh ghép trong pascal.
Kỹ năng
- Hiểu hoạt động của câu lệnh lặp với số lần chưa biết trước while...do trong pascal.
3. Thái độ
- Nghiêm túc trong học tập, có tinh thần học hỏi, sáng tạo .
II. CHUẨN BỊ
Chuẩn bị của giáo viên:
- Sách giáo khoa, giáo án, bài tập.

Chuẩn bị của học sinh:
- Sách giáo khoa, vở, viết, thước kẻ. Xem bài mới trước khi lên lớp.
III. HOẠT ĐỘNG DẠY HỌC
Ổn định tình hình lớp (2’)
- Kiểm tra sĩ số học sinh.
- Phân nhóm học tập.
Kiểm tra bài cũ (5`)
* Câu hỏi kiểm tra bài cũ: Trình bày nguyên tắc hoạt động của câu lệnh lặp với số lần chưa biết trước while…do?
* Dự kiến phương án trả lời của học sinh:
Bài mới:
* Giới thiệu bài: (1’)
- Trong bài trước chúng ta đã làm quen với các hoạt động lặp và cách chỉ thị cho máy tính thực hiện các hoạt động lặp với số lần đã được xác định trước, chẳng hạn, để tính tổng các số nguyên từ 1 đến 100. Trong thực tế có nhiều hoạt động được thực hiện được lặp đi lặp lại với số lần chưa biết trước. Để thực hiện được các câu lệnh lặp như thế này trong pascal, hôm nay ta đi vào nội dung mới.

* Tiến trình bài dạy:
TG
Hoạt động giáo viên
Hoạt động học sinh
Nội dung

10`
Hoạt động 1: Tìm hiểu một số ví dụ
1. Ví dụ:
Ví dụ 3:
Viết chương trình tính số n nhỏ nhất để 1/n nhỏ hơn một sai số cho trước (với giá trị nào của n thì 1/n<0.005 hoặc 1/n<0.003)
Program tinhn;
Uses crt;
Var x:real;
N:integer;
Const saiso=0.003;
Begin
X:=1; n:=1;
While x>=saiso do
Begin
N:=n+1; x:=1/n;
End;
Writeln (`so n nho nhat de 1/n <` ,saiso,`la`, n);
Readln;
End.


- Đưa ra ví dụ 3 SGK:





- Chúng ta biết rằng, nếu n càng lớn thi 1/n càng nhỏ. Vậy người ta hỏi với giá trị nào của n thì 1/n<0.005 hoặc 1/n<0.003.
- Yêu cầu ở đây đưa ra là gì?
- Rỏ ràng để tìm giá trị n ta phải tăng n này lên từng bước, và ta sẽ tính giá trị này theo từng mức tương ứng đó. Đến khi điều kiện thỏa mản thì thôi.
- Ở đây sai số này có dạng là một số thập phân, vậy ta phải khai báo chúng theo kiểu dữ liệu nào đây?
- Hướng dẫn học sinh viết chương trình.
- Chú ý.





- Lắng nghe.




- Tìm giá trị n thỏa mản điều kiện trên.
- Chú ý.





- Vì dạng thập phân ta sẽ khai báo chúng dưới dạng real..

- Chú ý theo dõi.
- Ghi bài vào vở.


6`
- Nêu yêu cầu ví dụ 4.
- Nhắc lại thuật toán này trong ví dụ 2.









- Gọi một học sinh lên trình bày.

B1:
B2: Nếu ngược lại, chuyển tới B4.
B3: và quay lại B2.
B4: In kết quả: S và n là số tự nhiên nhỏ nhất sao cho s>1000. Kết thúc thuật toán.
- Lên bảng.
Ví dụ 4: Viết chương trình thể hiện thuật toán tính tổng của n số trong ví dụ 2:
Var s,n:integer;
Begin
S:=0; n:=1;
While s<=1000 do
Begin
S:=s+n;
N:=n+1
End;
Writeln (`so n nho nhat de tong>1000 la` , n);


- Nhận xét, hướng dẫn viết chương trình.
- Chú ý theo