Bài 10
Giáo án điện tử tin học lớp 11
Gv: Nguyễn Dư Tấn
Trường THPT Chu Văn An - Quảng Trị
http://violet.vngvnguyendutan
1. Bài toán:
Dữ liệu ra (Output) : Tổng S v� giỏ tr? i ?
Dữ liệu vào (Input) : khụng cú
Cho đến khi S V?a d? l?n hon 100
Tính giá trị tổng S, v� tỡm giỏ tr? I d?
II. Lặp với số lần lặp CHƯA biết trước- lệnh While _Do
S= 1 + 2 + 3 +4 +..+ i

S=

1
2
S =1
+
S =3
3
+
S =6
4
+
S =10
5
+
S =15
6
+
S =21
7
+
8
+
S =28
9
+
S =36
10
+
S =45
11
+
S =55
12
+
S =66
13
+
S =78
14
+
S =91
S =105
15
16
17
….. i
S = 1 + 2 + 3 + 4 + 5 +………+ i ,
S vừa đủ lớn hơn 100 S= ?, i = ?
Mô phong Sơ đồ
S := 0 ; i := 1;
S<=100
S := S + i ;
i := i +1;
S := 0 ; i := 1;
S<=100
Đ
Đ
S := 0 +1 ;
i := 1 +1;
S =1
Đ
Đ
Đ
I =2
In Tổng S
Tổng S=105
s
S
S<=100
S := 1 +2 ;
i := 2 +1;
S =3
I =3
S<=100
S := 3 +3 ;
i := 3 +1;
S =6
I =4
S<=100
S := 6 + 4 ;
i := 4 +1;
S =10
I =5
S<=100
S := 10 +5 ;
i := 5 +1;
S =15
I =6
S<=100
S := 78 +13 ;
i := 13 +1;
S =91
I =13
S<=100
S := 91 +14 ;
i := 13 +1;
S =105
I =14
S=105=<100
I =14
KT
S=1+2+3+4+5 +………..i , S vừa đủ lớn hơn 100 S= ?, i = ?
KT
Cấu trúc lệnh While
WHILE <Điều kiện> DO ;
Điều kiện
Đúng
Câu lệnh

While,Do L� t? khoỏ
Điều kiện: Là biểu thức lôgic.

Câu lệnh: Là một câu lệnh của Pascal.
Sai
3. Lặp với số lần lặp chưa biết trước
Trong đó:
Chừng nào điều kiện còn đúng thì câu lệnh còn được thực hiện.
?:
+ Công việc lặp lại là gì?
+ Điều kiện gì để lặp lại ?
4. Một số ví dụ
a
Bài toán1:
Nhận xét:
Chừng nào S<=100 thì còn thực hiện:
+ Cộng vào tổng S thêm giá i .
+ Tăng i thêm 1 đơn vị.

Tính giá trị tổng S, và tìm giá tri i để
Cho đến khi S vừa đủ lớn hơn 100
Mophong
Bước 1:
S:=0; i:=1;
{Khởi tạo S và i}
Bước 2:
Nếu S >100 thỡ chuy?n sang Bước 4
Bước 3:
S:=S+i);
i:=i+1;
=> quay lại bước 3
thuật toán
Đưa ra S,i
=> Kết thúc
? Vòng lặp chỉ dừng khi S v?a d? l?n hon 100
S
Đ
Bước 4: Dua ra S v� i
=> Kết thúc.
Chương trình
Program Bai_toan;
Uses Crt;
Var S, i : Integer;

BEGIN
Clrscr;
S:=0;i:=1;
WHILE S=< 100 DO
BEGIN
S:=S+ i;
i:=i+1;
END;
Writeln(`Gia tri cua tong S = `,S,` Den gia tri`,i);
Readln;
END.
Chạy ba
Bài tập về nhà:
1) Hãy lập chương trình tính:
S= 1+2+3+……. +100
( Dùng câu lệnh While Do)
2) Hãy Lập chương trình tìm UCLN của hai số nguyên dương m ,n :