Bài 10 - Cấu trúc lặp- tiết 1-2

Dạng lặp tiến Sai 2... LÆp víi sè lÇn biÕt tr íc, C©u lÖnh for-do... LÆp víi sè lÇn biÕt tr íc, C©u lÖnh for-do TÝnh tæng... LÆp víi sè lÇn biÕt tr íc, C©u lÖnh for-do Cho N nguyªn d ¬ng

Bµi 10

1 LÆp

Cã 2 d¹ng:

- LÆp víi sè lÇn biÕt tr íc

- LÆp víi sè lÇn ch a biÕt tr íc

FOR <biến đếm> := <gt đầu> TO <gt cuối> DO <Câu lệnh>;

bđ > gt cuối

Đúng

a Dạng lặp tiến

Sai

2 Lặp với số lần biết tr ớc, Câu lệnh for-do

bđ : = gt đầu

Câu lệnh bđ : = bđ + 1

FOR <b®> := <gt cuèi> DOWNTO <gt ®Çu> DO <C©u lÖnh>;

b® < gt ®Çu

§óng

b D¹ng lÆp lïi

Sai

2 LÆp víi sè lÇn biÕt tr íc, C©u lÖnh for-do

b® : = gt cuèi

C©u lÖnh b® : = b® - 1

VÝ dô:

* ThuËt to¸n lÆp tiÕn:

B1: NhËp sè a;

B2: S:=1/a; N:=0;

B3: N:=N+1;

B4: Khi N <=100 th× S:= S + 1/(a+ N) råi quay l¹i B3; B5: § a ra S råi kÕt thóc

2 LÆp víi sè lÇn biÕt tr íc, C©u lÖnh for-do

TÝnh tæng

* Ch ¬ng tr×nh lÆp tiÕn:

Program Tong_lap_tien;

Uses crt;

Var S : real;

a, N : integer;

BEGIN

Clrscr ; Write(‘nhap so a = ’); Readln(a);

S:=1/a;

For N := 1 to 100 do S := S + 1/(a + N);

Writeln(‘Tong S = ’, S:8:2); Readln

END

2 LÆp víi sè lÇn biÕt tr íc, C©u lÖnh for-do

Bµi 10

VÝ dô:

* ThuËt to¸n lÆp lïi:

B1: NhËp sè a;

B2: S:=1/a; N:=101;

B3: N:=N - 1;

B4: Khi N >=1 th× S := S + 1/(a+ N) råi quay l¹i B3;

B5: § a ra S råi kÕt thóc

2 LÆp víi sè lÇn biÕt tr íc, C©u lÖnh for-do

TÝnh tæng

* Ch ¬ng tr×nh lÆp lïi:

2 LÆp víi sè lÇn biÕt tr íc, C©u lÖnh for-do

Program Tong_lap_lïi;

Uses crt;

Var S : real;

a, N : integer;

BEGIN

Clrscr ; Write(‘nhap so a = ’); Readln(a);

S:=1/a;

For N := 100 downto 1 do S := S + 1/(a + N);

VÝ dô:

* ThuËt to¸n :

B1: NhËp sè N;

B2: d := 0; i := 0;

B3: i := i + 1;

B4: Khi i < N th×

B4.1: NÕu i chia 3 d 0 th× d := d+1

B4.2: Quay l¹i B3;

B5: NÕu d=0 th× th«ng b¸o kh«ng cã sè nµo tho¶ m·n råi kÕt thóc, nÕu kh«ng th× ® a ra sè c¸c sè chia hÕt cho 3 lµ d råi kÕt thóc

2 LÆp víi sè lÇn biÕt tr íc, C©u lÖnh for-do

Cho N nguyªn d ¬ng Cã bao nhiªu sè nguyªn d

¬ng nhá h¬n N chia hÕt cho 3?

* Ch ¬ng tr×nh :

Program Chia_3;

Uses crt;

BEGIN

Clrscr ;

Write(‘nhap so N =’); Readln(N);

d := 0;

2 LÆp víi sè lÇn biÕt tr íc, C©u lÖnh for-do