Bài 10
cấu trúc lặp
Giáo án điện tử tin học lớp 11
( tiết 1)
Bài toán 1:
Bài toán 2:
Các bài toán đặt vấn đề : Tính tổng S, với a là số nguyên và a>2
cho đến khi
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?

1
Sau mỗi lần thực hiện giá trị tổng S tăng thêm ???? ( với i =1; 2; 3 ; ...;N)
a + i

Cùng tìm thuật toán
Bài toán 1:
Bài toán 2:
Cho đến khi
? Số lần lặp biết trước.
Việc tăng giá trị cho tổng S được lặp đi lặp lại cho đến khi
Việc tăng giá trị cho tổng S được lặp đi lặp lại 100 lần.
tìm sự khác biệt
? Số lần lặp chưa biết trước.
Cấu trúc lặp
I. Lặp với số lần lặp biết trước
II. Lặp với số lần lặp không biết trước
1. Bài toán đặt vấn đề
- Dữ liệu ra (Output) : Tổng S
Lập chương trình tính tổng sau:

- Dữ liệu vào (Input) : Nhập a
Hãy xác định INPUT và OUTPUT của bài toán trên!
I. Lặp với số lần lặp biết trước
Phân tích bài toán với N = 100

Nhận xét:
S1 = 1/a
S2 = S1 + 1/a+1
S3 = S2 + 1/a+2
S4 = S3 + 1/a+3


.....
S101 = S100 + 1/a+100
Bắt đầu từ S2 việc tính S được lặp đi lặp lại 100 lần theo quy luật
Ssau = Strước+ 1/a+N
với N chạy từ 1 ? 100
. . . . . . . . . . . . . . . . . . . .
Đ
S
B1: Nhập a;
B2: S:=1/a; N:=0;
B4: Nếu N >100thì đưa ra giá trị S => Kết thúc;
B5 : S:= S + 1/(a+N);r?i quay l?i bu?c 2
B6:Dua đưa ra giá trị S => Kết thúc
Xây dựng thuật toán
i:= i+1
B3: N:=N+1
S
FOR := TO DO < câu lệnh>;
Ví dụ: S:=1/a;
FOR N:=1 TO 100 DO S:=S+1/(a+N);
b. Dạng 2 (dạng lùi)
FOR := DOWNTO DO ;
Ví dụ: S:=1/a;
FOR N:=100 DOWNTO 1 DO S:=S+1/(a+N);
a. Dạng 1 (dạng tiến)
2. Lặp với số lần lặp biết trước
? Giá trị đầu, giá trị cuối là các biểu thức cùng kiểu với biến đếm, giá trị đầu phải nhỏ hơn giá trị cuối.
For i:= 100 to 200 do write(i);

? Giá trị biến đếm được điều chỉnh tự động, vì vậy câu lệnh sau DO không được thay đổi giá trị biến đếm.
Trong đó
? Biến đếm là biến kiểu số nguyên hoặc kí tự.
For N:=1 to 100 do write(N);
For i:=`a` to `z` do write(i);

Uses crt;
Var i,N : Integer; S : real;
BEGIN
Readln;
END.
S:=1;
FOR i:=2 to N do S := S+1/i;
Writeln(` Tong S =`,S:8:3);
Write(` Nhap vao gia tri cua N :`);readln(N);
Program Tinh_tong;
Hãy áp dụng câu lệnh lặp dạng tiến để viết chương trình giải bài toán sau:
Vi?t chuong trình tính t?ng:

S := 1 ; i := 2;
i >N
KT
S := S +1/ i ;
i := i +1;
2.08
1.83
1.5
1
4
3
2
Lượt
i
S
2.28
5
Nhập N
S := 1 ; i := 2;
2>5 ?
S
S
S := 1 +1/2 ;
i := 2 +1;
3>5 ?
S := 1.5+1/3 ;
i := 3 +1;
4>5 ?
S := 1.83+1/4 ;
i := 4 +1;
5>5 ?
S := 2.08+1/5;
i := 5 +1;
6
S
S
S
6>5 ?
In Tổng S
Tổng S=2.28
Với N = 5
2.28
Đ
Đ
Mô phỏng thuật toán

3. Gi?i b�i toỏn d?t v?n d?
Tính tổng S (với a là số nguyên nhập vào từ bàn phím và a>2).
?
Hãy xác định giá trị khởi đầu của S, quy luật thay đổi giá trị của S và số lần lặp.
Viết chương trình để giải bài toán trên.
S:=1/a;
- S:= S + 1/(a+i);
- i chạy từ 1 đến 100 => Số lần lặp là 100 lần.
..pascalpascal chon cai` TPXTONG.EXE
Hãy nhớ
Câu lệnh lặp
trong pascal
FOR ... TO ... DO ...…
FOR ... Downto ... DO ...
Lặp với số lần biết trước
dạng tiến
dạng lùi