Bài 8. Lặp với số lần chưa biết trước

Lặp với số lần chưa biết trước
Bài 8
Giáo án điện tử tin học lớp 8
Học cho đến khi thuộc bài
Nhặt từng cọng rau cho đến khi hết rau
Bài toán: Viết chương trình nhập vào
một dãy số cho đến khi gặp 0 thì dừng
lại, tính tổng các số vừa nhập.
Hãy kể tên những hoạt động được thực hiện lặp đi lặp lại với số lần lặp không thể xác định trước?
1. Các hoạt động lặp với số lần chưa biết trước
Bài toán 1:
Bài toán 2:
Cho đến khi S>1000. Cho biết N
Tính tổng
Tính tổng
2. Ví dụ về lệnh lặp với số lần chưa biết trước:
Xuất phát
Lần 1
Lần 2

+…
Lần N
Mỗi lần thực hiện giá trị tổng S tăng thêm bao nhiêu?
? Sau mỗi lần thực hiện giá trị tổng S tăng thêm i đơn vị với i= 1;2;3;.N
?
Cùng tìm thuật toán
Bài toán 1:
Bài toán 2:
Cho đến khi S>1000
?Lặp với số lần chưa biết trước.
Lặp với số lần biết trước.
tìm sự khác biệt
Hãy tìm ra sự khác biệt, nêu nhận xét về hành động lặp, số lần lặp đối với từng bài toán?
Tăng giá trị S lên n đơn vị.
Tăng giá trị S lên n đơn vị.
? Số lần lặp xác định là N lần.
? Số lần lặp chưa xác định, quá trình lặp chỉ dừng khi S>1000.
tìm sự khác biệt
Điều kiện
Đúng
Câu lệnh
Sai
trong khi
? While
? do
Lớp: …… Tên: ………........................................................ Điểm: ...........
PHIẾU HỌC TẬP
* Trong Pascal câu lệnh lặp với số lần chưa biết trước có dạng:
While ........................... do .............................;
Trong đó:
+ .......................... thường là một phép so sánh.
+ ....................... có thể là .................. đơn giản hay ................. ghép.


điều kiện
câu lệnh
điều kiện
câu lệnh
câu lệnh
câu lệnh
WHILE <Điều kiện> DO ;
Điều kiện: thường là một phép so sánh

Trong đó:
Câu lệnh lặp với số lần lặp chưa biết trước trong Pascal:
Câu lệnh: là câu lệnh đơn hay câu lệnh ghép
Ví dụ: While S<=1000 do S:= S+n;
3. Lệnh lặp với số lần chưa biết trước:
Begin
N:=N+1;
S:=S+N;
END;
Điều kiện
Đúng
Câu lệnh
Sai
Ví dụ 1 :
cho đến khi S>1000. Cho biết N
Tính tổng
Các nhóm hãy viết thuật toán hoàn chỉnh cho ví dụ trên nhé. Thời gian là 5 phút
Program tinh_tong;
Uses Crt;
Var N,S : Integer;
BEGIN
Clrscr;
S:=0; N:=0;
While s< = 1000 do
Begin
N:=N+1;
S:=S+N;
End;
Writeln(`So N nho nhat de tong >1000 la`,N);
Writeln(`Gia tri cua tong S =`,S);
Readln;
END.
Tiết học đến đây là kết thúc!
Cám ơn quí Thầy Cô
đã đến dự.