Nội dung dạy trực tuyến qua Internet môn Tin học

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 (368.76 KB, 9 trang )

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

1

BÀI 8:

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

• Học cho đến khi thuộc bài

• Nhặt từng cọng rau cho đến khi hết rau
• Bài tốn: Viết chương trình nhập vào

một dãy số cho đến khi gặp 0 thì dừng lại, tính tổng 
các số vừa nhập

Hãy kể tên những hoạt 
động được thực hiện lặp đi 
lặp lại với số lần lặp không 
thể xác định trước?

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

Bài toán 1:

Bài toán 2:

N

S



1



2



3



4



...



N

S



1



2



3



4



...



Tính tổng

Tính tổng cho đến khi S>1000. Cho biết số N nhỏ 
nhất

2. Ví dụ về lệnh lặp với số lần chưa xác định

Để tính tổng trên máy tính thực hiện cộng n số từ 1 đến N vào tổng S

Lặp với số lần biết trước là n lần

Để tính tổng trên máy tính thực hiện cộng các số từ 1 đến N vào tổng
S đến khi nào S>1000 thì dừng

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

WHILE <Điều kiện> DO <Câu lệnh>;

Điều kiện

S<1000
Đúng

Câu lệnh

S:=S+1
Điều kiện: thường là một phép so sánh

Sai
Trong đó:

Câu lệnh lặp với số lần lặp chưa xác định trong Pascal:

Câu lệnh: là câu lệnh đơn hay câu
lệnh ghép

Ví dụ: While S<1000 do S:= S+1;
3. Lệnh lặp với số lần chưa xác định

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

B1: S:=0; N:=0;

B2: Nếu S<= 1000 thì thực 
hiện tăng N thêm 1 đơn vị,
 ngược lại chuyển tới B4
B3: Cộng N vào S => sang B2
B4: In kết quả: N là số tự

nhiên nhỏ nhất sao cho 
S>1000, Tổng S và kết thúc

S:=0; N:=0;

WHILE S<=1000 DO

Begin
N:=N+1;

S:=S+N;

END;

Writeln(‘Số N nhỏ nhất để S>1000’, N)
Writeln(‘Tổng đầu tiên >1000 l : , S);à ’

N

S



1



2



3



4



...



Thu t tốn

ậ

Ch

ươ

ng trình

chính

Ví d :

ụ

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

Program Bai_toan;

Uses Crt;

Var N:Integer;
 S:Real;

BEGIN 
 Clrscr;

S:=0;N:=0;

WHILE s< = 1000 DO 
 BEGIN

N:=N+1;
S:=S+N;
 END;

Writeln(‘So N nho nhat de tong S>1000 la: ’, N);
 Writeln(‘Gia tri cua tong S = ', S);

Readln;

END.

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

100

1

4

1

3

1

2

1





...

S

S:=0;

For

i:=1

to

100 do

S:=S + 1/i;

Writeln(‘ S = ’, S:7:2);

DÙNG LỆNH FOR ...DO

DÙNG LỆNH WHIE...DO

S:=0; i:=1;

While

i<=100

do

Begin

S:=S + 1/i;

i:=i+1;

End;

Writeln(‘ S = ’, S:7:2);

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

Lưu ý: Khi viết chương trình với câu lệnh lặp While ... do, sau Do phải có lệnh tác
động làm thay đổi Điều kiện để Điều kiện đến lúc nào đó từ Sai chuyển sang Đúng
nhằm kết thúc vịng lặp

Ví dụ:

Var a:integer;
Begin

a:=2;

While a<6 do Write(' Chuong trinh chay mai khong thoat duoc');
End.

4. Lặp vơ hạn -Lỗi lập trình cần tránh

Var a:integer;
Begin

a:=2;

While a<6 do
Begin

Write(' Chuong trinh chay sẽ thốt được');
a:=a+1;

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

• While. . . do là câu lệnh lặp với số lần

chưa biết trước trong Pascal

• Ngồi cấu trúc lặp với số lần biết trước, các 
ngơn ngữ lập trình cịn có các câu lệnh lặp với 
số lần chưa biết trước.

</div>

Nội dung dạy trực tuyến qua Internet môn Tin học

<b>1</b>

<b>BÀI 8: </b>

<i>N</i>

<i>S</i>



<b>1</b>



<b>2</b>



<b>3</b>



<b>4</b>



...



<i>N</i>

<i>S</i>



<b>1</b>



<b>2</b>



<b>3</b>



<b>4</b>



...



<i>N</i>

<i>S</i>



<b>1</b>



<b>2</b>



<b>3</b>



<b>4</b>



...



Thu t tốn

ậ

Ch

ươ

ng trình

chính

Ví d :

ụ

<b>100</b>

<b>1</b>

<b>4</b>

<b>1</b>

<b>3</b>

<b>1</b>

<b>2</b>

<b>1</b>

<b>1</b>













...

<i>S</i>

S:=0;

For

i:=1

to

100

do

S:=S + 1/i;

Writeln(‘ S = ’, S:7:2);

DÙNG LỆNH FOR ...DO

DÙNG LỆNH WHIE...DO

S:=0; i:=1;

While

i<=100