tin 8 lap voi so lan biet truoc

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 (1.07 MB, 16 trang )

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

PHÒNG GIÁO HUYỆN TRIỆU PHONG
TRƯỜNG THCS TRIỆU TRUNG

CHÀO MỪNG QUÝ THẦY CÔ GIÁOCÙNG 
TẤT CẢ CÁC EM HỌC SINH

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

1- Nhắc lại câu lệnh lặp với số lần biết trước:

FOR

FOR < <Biến đếmBiến đếm> : = <> : = <Giá trị đầuGiá trị đầu> TO> TO < <Giá trị cuốiGiá trị cuối> DO> DO

Câu lệnh trong vòng lặp

Câu lệnh trong vòng lặp ; ;

Phải thuộc kiểu

dữ liệu đếm được

( không là số thực

)

Giá trị đầu < Giá trị cuối

Từ khoá

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

2- Viết chương trình tính tổng 100 số tự nhiên

đầu tiên 1 + 2 + 3 + … + 99 + 100

Program Tinh;

Var i, s: Integer;

Begin

s:=0;

For i:=1 to 100 do s:=s+i;

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

Hãy quan sát:

Bài 1:

S = 1 + 2 + 3 + . . .+100 Bài 2:

S = 1 + 2 + 3 + . . .

? Hãy cho biết 
bài số 1 có số

vòng lặp là 
bao nhiêu?

? Hãy cho biết 
bài số 2 có số

vịng lặp là 
bao nhiêu?

. . . . . . … … . . .

Lặp 100 lần Không biết trước

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

Một ngày chủ nhật, bạn Long gọi điện cho Trang. Khơng

có ai nhấc máy. Long quyết định gọi thêm hai lần nữa. Nếu
vẫn khơng có ai nhấc máy thì chắc là khơng có ai ở nhà.
Như vậy Long đã biết trước là mình sẽ lặp lại hoạt động
gọi điện thêm hai lần.

Một ngày khác, Long quyết định cứ 10 phút gọi điện một

lần cho Trang cho đến khi nào có người nhấc máy. Lần này
Long sẽ lặp lại hoạt động gọi điện mấy lần?

Chưa thể biết trước được, có thể một lần, có thể hai hoặc

nhiều hơn nữa. Điều kiện để kết thúc hoạt động lặp đó là:

Có người nhấc máy.

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

1. Các hoạt động lặp với số lần chưa biết:

2. Ví dụ về lệnh lặp với số lần chưa biết trước:

Program

Program chao_hoi;chao_hoi;
Var

Var Tieptuc: char; Ten: string;Tieptuc: char; Ten: string;
Begin

Begin Tieptuc:=‘c’;Tieptuc:=‘c’;
While

While Tieptuc=‘c’Tieptuc=‘c’ do do
Begin

Begin

Write

Write(‘ Nhap ten cua ban:’); Readln(Ten);(‘ Nhap ten cua ban:’); Readln(Ten);
Writeln

Writeln(‘Chao ban’, Ten);(‘Chao ban’, Ten);
Write

Write(‘ Tiep tuc ? c/k’); readln(Tieptuc);(‘ Tiep tuc ? c/k’); readln(Tieptuc);
End; Readln;

End; Readln;

End.

Hãy quan sát chương trình sau

Trong Pascal câu lệnh lặp với số lần chưa biết trước có dạng:

While

<điều kiện>

do

<câu lệnh>;

Trong đó: Điều kiện: thường là một phép so sánh;

Câu lệnh: có thể là câu lệnh đơn giản hay câu lệnh ghép

Câu lệnh lặp này được thực hiện như sau:
Bước 1 : Kiểm tra điều kiện.

Điều kiện

Bước 2 :

- Nếu điều kiện Sai, câu

lệnh sẽ bị bỏ qua và việc

thực hiện lệnh lặp kết thúc.

SAI

- Nếu điều kiện đúng, 
thực hiện câu lệnh và
quay lại bước 1.

Câu lệnh

ĐÚNG

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

? Hãy quan sát câu lệnh sau và cho biết ý nghĩa
của các thành phần trong câu lệnh?

2. Ví dụ về lệnh lặp với số lần chưa biết trước:

1. Các hoạt động lặp với số lần chưa biết:

While

i<=100

do

s:=s+i

+ Các từ khoá:

While,

do

+ Điều kiện:

i<=100

+ Câu lệnh:

s:=s+i

Chú ý:

- Sau do nếu nhiều hơn 1 lệnh thì phải nằm
trong cặp từ khố begin….end;

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

Chúng ta biết rằng, nếu n càng lớn thì 1/n càng nhỏ, nhưng 
ln ln lớn hơn 0. Vậy với giá trị nào của n thì 1/n < 0.005 
hoặc 1/n < 0.003?

var

var x: real; n: integer;x: real; n: integer;
const

const sai_so=0.003;sai_so=0.003;
Begin

Begin

x:=1; n:=1;

while

while x>=sai_sox>=sai_so do do

begin begin

n:=n+1;n:=n+1;

x:=1/n ;x:=1/n ;

end;end;
writeln

writeln('So n nho nhat de 1/n <‘,sai_so:5:4, 'la ',n);('So n nho nhat de 1/n <‘,sai_so:5:4, 'la ',n);
Readln;

Readln;

End.

Chương trình dưới đây tính số n nhỏ nhất để 1/n nhỏ hơn 
một sai số cho trước

Chương
trình tính
số n nhỏ 
nhất để 1/n
nhỏ hơn
một sai số
cho trước

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

Chương trình Pascal sau đây thể hiện thuật tốn tính số n 
trong ví dụ 2:

var S,n: integer;

begin

S:=0; n:=1;

while S<=1000 do

begin 
begin 
n:=n+1; 
n:=n+1; 
S:=S+n; 
S:=S+n; 
end;
end;

Trở lại Ví dụ 2: Nếu cộng lần lượt n số tự nhiên đầu tiên (n = 1,

2, 3,...), ta sẽ được các kết quả T1 =1, T2 =1 + 2, T3 =1 + 2 + 3,... 
tăng dần. Cần cộng bao nhiêu số tự nhiên đầu tiên để ta nhận được
tổng Tn nhỏ nhất lớn hơn 1000?

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

Bài 5: Hãy chỉ ra các lỗi trong các câu sau đây:

a) X:=10; While X:= 10 do 
X:=X+5;

b) X:=10; While X=10 do X 
= X+5;

c) S:=0; n:=0; While 
S<=10 do

Thừa dấu hai chấm trong điều kiện

thiếu dấu 2 chấm trong câu lệnh

Thiếu từ khoá begin trước câu lệnh n:=n+1 và
từ khoá end sau câu lệnh S:=S+n, do đó vịng

lặp trở thành vơ tận

Begin n:=n+1; S:=S+n;

end;

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

Nếu S=10, i=0 Sau khi thực hiện câu lệnh
 While S>5 do

begin i:=i+1; S:=S-i end;
 writeln(S);

Thì giá trị của S là:

D. 6

A. 4

B. 5

C. 10

A. 4

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

Nếu S=0,i=1 Sau khi thực hiện câu lệnh

While i<=5 Do

Begini:=i+1; S:=S+i; End;

Writeln('Ket qua la :',S);
Thì giá trị của S là:

10

09

08

07

06

05

04

03

02

01

00 0:

D. 15
B. 14

A. 10 C.0

B. 14

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

H

Hướng dẫn về nhàướng dẫn về nhà

- Ôn lại về câu lệnh lặp với số lần khơng biết trước

- Ơn lại về câu lệnh lặp với số lần không biết trước

- Làm bài tập 1, 2, 3,bài 4 SGK

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

QUÝ THẦY CÔ GIÁO SỨC KHỎE.

CÁC EM HỌC SINH CHĂM

</div>

tin 8 lap voi so lan biet truoc

1- Nhắc lại câu lệnh lặp với số lần biết trước:

1- Nhắc lại câu lệnh lặp với số lần biết trước:

Phải thuộc kiểu

dữ liệu đếm được

)

<b>Giá trị đầu < Giá trị cuối</b>

Từ khoá

Từ khoá

<b>2- Viết chương trình tính tổng 100 số tự nhiên </b>

<b>đầu tiên 1 + 2 + 3 + … + 99 + 100</b>

<i>Program Tinh;</i>

<i>Program Tinh;</i>

<i>Var i, s: Integer;</i>

<i>Var i, s: Integer;</i>

<i>Begin</i>

<i>Begin</i>

<i>s:=0;</i>

<i>s:=0;</i>

<i>For i:=1 to 100 do s:=s+i;</i>

<i>For i:=1 to 100 do s:=s+i;</i>

Hãy quan sát:

<b>1. Các hoạt động lặp với số lần chưa biết:</b>

<b>2. Ví dụ về lệnh lặp với số lần chưa biết trước:</b>

<b>While</b>

<i><b> <điều kiện> </b></i>

<b>do</b>

<i><b> <câu lệnh>;</b></i>

<b>2. Ví dụ về lệnh lặp với số lần chưa biết trước:</b>

<b>1. Các hoạt động lặp với số lần chưa biết:</b>

While

i<=100

do

s:=s+i

While,

do

i<=100

s:=s+i

<b>D. 6 </b>

<b>A. 4</b>

<b>B. 5</b>

<b>C. 10 </b>

<b>A. 4</b>

10

09

08

07

06

05

04

03

02

01

00

0:

<b>QUÝ THẦY CÔ GIÁO SỨC KHỎE. </b>

<b>CÁC EM HỌC SINH CHĂM </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ề