Tin 8 VIP Pro T31-32

Ngày soạn: 01/ 12/08
Ngày giảng: 8A:
8B:
8C:
Tiết 31 - 32:
Bài thực hành 6:
Sử dụng lệnh lặp while…do

I. Mục tiêu bài học:
1. Kiến thức:
- Biết nhu cầu cần có cấu trúc lặp trong lập trình
- Biết ngôn ngữ lập trình dùng cấu trúc lặp để chỉ dẫn máy tính thực hiện lặp đi lặp lại công việc nào đó một số lần.
- Ngôn ngữ Pascal thể hiện cấu trúc lặp với số lần lặp chưa biết trước bằng câu lệnh : while….do.
- viết chương trình sử dụng câu lệnh lặp với số lần chưa biết trước.
2. Kĩ năng:
- Viết đúng được lệnh while … do trong một số tình huống đơn giản.
- Biết Khi nào thì sử dụng đến câu lệnh lặp số lần chưa biết trước
- Nâng cao kĩ năng đọc hiểu được câu lệnh lặp với số lần chưa trước while…do trong Pascal.
3. Thái độ:
- Nghiêm túc trong học tập cần tập trung đến bài học, chú ý đến ý nghĩa của câu lệnh lặp.
II. Chuẩn bị:
1. Giáo viên: Giáo án, SGK, tài liệu,
2. Học sinh: SGK, ghi, bài ở nhà, đồ dùng học tập
III. Tiến trình lên lớp:
1. ổn định tổ chức
2. Kiểm tra:
? Em hãy viết cấu trúc câu lệnh lặp While…do.
Giải thích ý nghĩa cụ thể của các thành phần trong câu lệnh.
3. Nội dung thực hành:

Hoạt động của GV - HS
Nội dung thực hành

Hoạt động 1: Tập gõ chương trình có sẵn và tìm hiểu ý nghĩa của chương trình

Bài tập :
Viết chương trình Pascal thể hiện thuật toán tính tổng n số
- GV: Yêu cầu HS viết thuật toán
- HS: Nhóm viết thuật toán và trao đổi thống nhất giữa các nhóm.
- GV : Nhận xét, chốt lại.








- GV: yêu cầu dựa vào thuật toán và VD 4 trang 69 để thực hành viết chương trình Pascal tính tổng n số.
- HS: HĐN thực hành viết chương trình:
- GV: Theo dõi và trả lời thắc mắc của HS









- GV: Yêu cầu chạy chương trình và tìm n, …
- HS:
Chạy chương trình : n = 45, và tổng đầu tiên lớn hơn 1000 là 1034.

Bài tập :
Chương trình Pascal thể hiện thuật toán tính tổng n số trong ví dụ 2.



* Thuật toán:
+ Bước 1. S ( 0, n ( 0.
+ Bước 2. Nếu S ≤ 1000, n ( n + 1; ngược lại chuyển tới bước 4.
+ Bước 3. S ( S + n và quay lại bước 2.
+ Bước 4. 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.



* Chương trình Pascal:

var S,n: integer;
Begin
S:=0; n:=1;
while S<=1000 do
begin n:=n+1; S:=S+n end;
writeln(`So n nho nhat de tong > 1000 la `,n);
writeln(`Tong dau tien > 1000 la `,S);
End.



Chạy chương trình : n = 45, và tổng đầu tiên lớn hơn 1000 là 1034.

Hoạt động 2: Gõ chương trình, lưu và tìm hiểu ý nghĩa các câu lệnh.


- GV: yêu cầu HS nghiên cứu bài tập 1 SGK – T 72.
- HS: Cá nhân đọc bài và nghiên cứu
? Các biến chúng ta dự định sẽ sử dụng và kiểu của chúng là