Cấu trúc lặp While Do

Lặp với số lần lặp CHƯA biết trước- lệnh While _Do... WHILE DO ;Điều kiện Đúng Câu lệnh Pascal.. 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

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.vn\gvnguyendutan

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 đủ lớn hơn 100

Tính giá trị tổng S, và tỡm giỏ trị I để

II Lặp với số lần lặp CHƯA biết trước- lệnh While _Do

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

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 <Câu lệnh>;

Điều kiện

Đúng

Câu lệnh

Pascal.

Sa i

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ị

i

S = 1 + 2 + 3 +

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

S:=0 ; i:=1

Đưa ra S,i

=> Kết thúc

S:= S+i;

i:= i+1;

S

Đ

S < = 100

Bước 4: Đưa ra S và i

=> Kết thúc.

Chương trình

Uses Crt;

Var S, i : Integer;

BEGIN

Clrscr;

S:=0;i:=1;

WHILE S=< 100 DO

BEGIN

i:=i+1;

END;

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 :