Cau lenh lap Whiledo

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (756.17 KB, 14 trang )

(1)<div class='page_container' data-page=1></div>
(2)<div class='page_container' data-page=2>

Câu lệnh WHILE ...DO

Trường THPT TRẦN THỊ TÂM

Bài 10

Cấu trúc lặp

</div>
(3)<div class='page_container' data-page=3>

1
2
3

BÀI TOÁN MỞ ĐẦU

LỆNH LẶP VỚI SỐ LẦN CHƯA ĐỊNH TRƯỚC

VÍ DỤ ÁP DỤNG

</div>
(4)<div class='page_container' data-page=4>

1. BÀI TOÁN MỞ ĐẦU

...

1 ...

3

1

2

1 



N

S

0001

.

0

1 

N

cho đến khi

</div>
(5)<div class='page_container' data-page=5>

Xuất phát



S

1 2



N =1

3

1 

N= 2

+ …

N

N

1 

Xuất phát S = 0

N= 3

1 Ý TƯỞNG

</div>
(6)<div class='page_container' data-page=6>

GIẢI THUẬT

B1: S 0; N1;

B2: Nếu 1/N<0.0001 thì B5
B3: S S+1/N;

B4: N N+1;

Quay lại B2

B5: Đưa S ra màn hình.
Kết thúc

Bắt đầu
Bắt đầu

S:=0; 
N:=1
S:=0;

N:=1

S:=S+1/N
S:=S+1/N

1/N<
0.000

1
1/N<
0.000

1

Kết thúc
Kết thúc

N := N+1
N := N+1

Â

S

Xuất: S

</div>
(7)<div class='page_container' data-page=7>

2. CÂU LỆNH WHILE - DO

1. Cú pháp:

While <Điều kiện> Do < Câu lệnh > ;

2. Sơ đồ khối:

Đkiện

Câu lệnh

Â

S

3. Thực hiện lệnh:

B1: Kiểm tra <Điều kiện>

B2: Nếu Đúng thì

2.1. Thực hiện <Câu lệnh >
2.2. Biến đổi đk;

2.3. Quay về bước 1

</div>
(8)<div class='page_container' data-page=8>

CHƯƠNG TRÌNH BÀI TỐN

Program Tinh_tong;

Var s: Real ; n: integer ;

Begin

S := 0; n:=1

While (1/n >= 0.0001) Do
Begin

s:=s+1/n;
n:=n+1;

End;

Write (‘ Tong s=: ’, s:8:4);

Readln
End.
Bắt đầu
Bắt đầu
S:= 0; 
N:=1
S:= 0; 
N:=1

Xuất: S

S:=S+1/N
S:=S+1/N
1/N>=
0.0001
1/N>=
0.0001

Kết thúc
Kết thúc
N := N +

1

N := N + 
1

Â

S

B1: S 0; N1;

B2: Nếu 1/N<0.0001 thì B5
B3: S S+1/N;

B4: N N+1;

Quay lại B2

</div>
(9)<div class='page_container' data-page=9>

3. VÍ DỤ

Bài tốn 2: Tìm ước chung lớn nhất hai số nguyên
dương M, N

Xác định bài toán

Input: Số nguyên dương M, N

Output: UCLN(M,N)

 Tổ chức dữ liệu M, N: Số nguyên; 
 Ý tưởng giải thuật

</div>
(10)<div class='page_container' data-page=10>

GIẢI THUẬT

B1: Nhập M, N

B2: Nếu M=N thì ước

chung lớn nhất bằng M;

B3: Nếu M>N thì M  M– N
ngược lại N  N- M;

B4: Quay lại B2;

Bắt đầu
Bắt đầu

Kết thúc
Kết thúc
Nhập M, N

Nhập M, N

M:=M-N
M:=M-N

M=N
M=N

N := N- M
N := N- M

Â
S

Xuất: M

M > 
N
M >

N

</div>
(11)<div class='page_container' data-page=11>

CHƯƠNG TRÌNH

Program UCLN;

Var M, N: interger ;

Begin

write (‘M, N=‘);

readln(M,N);

While (M<>N) do

If M > N then M:=M-N

else N:=N-M;

Writeln (‘ UCLN= ’, M);

Readln

End.

Bắt đầu
Bắt đầu

Nhập M, N

M:=M-N
M:=M-N
M=N
M=N
Kết thúc
Kết thúc

N := N- M
N := N- M

Â

S

Xuất: M

M > 
N
M > 
N
Đ S
Bắt đầu
Bắt đầu

Nhập M, N

M:=M-N
M:=M-N

M=N
M=N

N := N- M
N := N- M

Â
S

Xuất: M

M > 
N
M >

N

Đ S Kết thúcKết thúc

Bắt đầu
Bắt đầu

Nhập M, N

M:=M-N
M:=M-N

M=N
M=N

N := N- M
N := N- M

Â
S

Xuất: M

M > 
N
M >

N

Đ S Kết thúcKết thúc

Bắt đầu
Bắt đầu

Nhập M, N

M:=M-N
M:=M-N

M=N
M=N

N := N- M
N := N- M

Â

S

Xuất: M

M > 
N
M >

N

</div>
(12)<div class='page_container' data-page=12>

CỦNG CỐ

 Lặp số lần biết trước

Lặp tiến: For <bđ>:= <gtđầu> to < gtcuối> do <cl>;

Lặp lùi: For <bđ>:= <gtcuối> downto <gtđầu> do <cl>;

 Lặp số lần chưa biết trước

Cú pháp: While <điều kiện> do <câu lệnh>;

Áp dụng

</div>
(13)<div class='page_container' data-page=13>

Program Tinh_tong;
Var s: Real ; i: integer ;

Begin

s := 0; i:=1

While (i <= 10) Do
Begin

s:=s+ i;

i:=i+1;

End;

Write (‘ Tong s= ’, s:8:4);

Readln

End.

</div>
(14)<div class='page_container' data-page=14></div>

Cau lenh lap Whiledo

<b>Bài 10</b>

<b>Bài 10</b>

<b>Cấu trúc lặp</b>

<b>1. BÀI TOÁN MỞ ĐẦU</b>

...

1

...

3

1

2

1

1

1













<i>N</i>

<i>S</i>

0001

.

0

1



<i>N</i>



<i>S</i>

1

<sub>2</sub>



3

1



<i>N</i>

1



1

1

<b>Ý TƯỞNG</b>

<b>GIẢI THUẬT</b>

<b>2. CÂU LỆNH WHILE - DO</b>

<b>CHƯƠNG TRÌNH BÀI TỐN</b>

<b>3. VÍ DỤ</b>

<b>GIẢI THUẬT</b>

<b>CHƯƠNG TRÌNH</b>

<b>CỦNG CỐ</b>

Tài liệu liên quan

Tài liệu bạn tìm kiếm đã sẵn sàng tải về