Cau truc lap

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 (550.21 KB, 22 trang )

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

Bài 10

Giáo án điện tử tin học lớp 11

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

Bài toán 1:

Bài toán 2:

100

1 ...

2

1 a

S

...

1 ...

2

1 N

a

S

Cỏc bài tốn đặt vấn đề : Tính tổng S, với a là số nguyên và a>2

cho đến khi

1

0 .

0001

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

Xuất phát

a

S

1 a

Lần 1

2

1 a

Lần 2

+

Lần N

N

a

1 Mỗi lần thực hiện giá trị tổng S tăng thêm bao nhiêu?

1 Sau mỗi lần thực hiện giá trị tổng S tăng thªm



( víi i =1; 2; 3 ; ...;N)

a + i

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

Bài toán 1:

Bài toán 2:

100

1 ...

2

1 a

S

1 1

1 2

...

1 

...





N

a

S

Cho đến khi 1 0.0001

N

a

Số lần lặp biết tr ớc.

ã Việc tăng giá trị cho tổng

S đ ợc lặp đi lặp li cho 
n khi

0.0001

N

a

1 ã

Việc tăng giá trị cho

tổng S đ ợc lặp đi lặp

lại

100 lần

.

tìm sự khác biệt

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

1. Bài tốn đặt vấn đề

- D÷ liƯu ra (Output) :

Tổng S

Lập ch ơng trình tính tổng sau:

- Dữ liệu vào (Input) :

NhËp N

Hãy xác định 
INPUT và 
OUTPUT của 
bài toỏn trờn!

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

N

1 ...

4

1

3

1

2

1

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

Phân tích bài toán với N = 100

NhËn xÐt:

S1 = 1

S2 = S1 + 1/2

S3 = S2 + 1/3

S4 = S3 + 1/4

...

S100 = S99 + 1/100

1 

S

B¾t đầu từ S2 việc tính S đ

ợc lặp đi lặp lại 99 lần theo

quy luật

S

sau

= S

tr íc

+ 1/i

víi i ch¹y tõ 2



100

2

1 

3

1 

4

1 



. . .



1

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

§

S

NhËp N

S:= 1 ; i:= 2

i > N ?

S:= S + 1/i

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

B1: NhËp N;

B2: S:=1; i:=2;

B3: Nếu i > N thì đ a ra giá trị

S => Kết thúc;

B4 : S:= S + 1/i;

B5: i := i +1 quay lại B3.

Xây dựng thuật toán

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

FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO < câu lệnh>;

VÝ dô:

S:=1;

FOR

i:=2

TO

100

DO

S:=S+1/i;

b. D¹ng 2 (d¹ng lïi)

FOR <biến đếm> := <giá trị cuối> DOWNTO <giá trị đầu> DO <câu lệnh >;

VÝ dô:

S:=1;

FOR

i:=100

DOWNTO

2

DO

S:=S+1/i;

a. D¹ng 1 (d¹ng tiÕn)

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

 Giá trị đầu, giá trị cuối là các biểu thức cùng kiểu với biến đếm, giá trị đầu phải nhỏ 
hơn giá trị cuối.

For i:= 100 to 200 do write(i);



Giá trị biến đếm đ ợc điều chỉnh tự động, vì vậy câu

lệnh sau DO không đ ợc thay đổi giá trị biến đếm.

Trong đó

 Biến đếm là biến kiểu số nguyên hoặc kí tự.

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

Uses crt;

Var i,N : Integer; S : real;

BEGIN

Readln;

END.

S:=1;

FOR i:=2 to N do S := S+1/i;

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

Write(‘ Nhap vao gia tri cua N :’);readln(N);

Program Tinh_tong;

Hãy áp dụng câu 
lệnh lặp dạng 
tiến để viết ch 
ơng trình giải bài

tốn đặt vấn đề.
Lập ch ơng trình tính tổng sau:

N

1 ...

4

1

3

1

2

1

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

S := 1 ; i := 2;

i >N

KT

S := S +1/ i ;

i := i +1;

2.08
1.83
1.5
1
4
3
2
L ỵt
i
S 2.28
5

NhËp N

S := 1 ; i := 2;

2>5 ?

S

S := 1 +1/2 ;

i := 2 +1;

3>5 ?

S := 1.5+1/3 ;

i := 3 +1;

4>5 ?

S := 1.83+1/4 ;

i := 4 +1;

5>5 ?

S := 2.08+1/5;

i := 5 +1;

6

S

6>5 ?

Tỉng S=2.28In Tỉng S

Víi N = 5

2.28

§

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

3. Ví dụ

Tính tổng S

(với a là số nguyên nhập vào từ bàn phím và a>2

).

100

1 ...

2

1 a

S

?

ã

Hóy xỏc định giá trị khởi đầu của S, quy luật thay đổi giá 
trị của S và số lần lặp.

• Viết ch ơng trình để giải bài tốn trên.

-

S:=1/a;

-

S:= S + 1/(a+i);

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

1. Bµi toán

Dữ liệu ra (Output) :

Tổng S

Dữ liƯu vµo (Input) :

NhËp a

Hãy xác nh 
INPUT, OUTPUT

và nêu thuật toán 
giải bài toán trên?

...

1 ...

2

1 N

a

S

Cho n khi 1 0.0001

a N

Tính giá trị tổng S, với a là số nguyên và a>2.

thì dừng lại.

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

B íc 2:

S:=1/a; N:=1; 
 {Khëi tạo S và N}

B ớc 3:

NÕu 1/(a+N) < 0.0001
 => B íc 5

B íc 4:

S:=S+1/(a+N);
 N:=N+1;

=> quay lại b ớc 3

thuật toán

B íc 1: NhËp a.

S:=1/a ; N:=1

§ a ra S 
=> Kết thúc

S:= S+1/(a+N);
N:= N+1;

Vòng lặp chỉ dừng khi 1/(a+N)<0.0001

NhËp a

S

§

1/(a+N) >= 0.0001

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

WHILE

<§iỊu kiƯn>

DO

<Câu lệnh>

;

Điều kiện

Đúng

Câu lệnh

Điều kiện: Là biểu thức

quan hệ hoặc lôgic.

Câu lệnh: Là một câu lệnh của 
Pascal.

Sai

2. Lặp với số lần lặp không biÕt tr íc

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

WHILE

1/(a+N) >= 0.0001

DO

Begin

S:=S+1/(a+N);

N:=N+1;

END;

3. Mét sè vÝ dô

a

Bài toán đặt vấn đề:

NhËn xÐt:

Chừng nào 1/(a+N)>=0.0001 thì còn thực 
hiện:

+ Tăng giá trị của tổng S thêm 1/(a+N).
 + Tăng N thêm 1 n v.

...

1 ...

2

1 N

a

S

1
0.0001

aN

Tính giá trị tổng S, với a là số nguyên và a>2

thì dừng lại.

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

Ch ơng trình

Program Bai_toan;

Uses Crt;

Var a,N:Integer;
 S:Real;

BEGIN

Clrscr;

Write(‘Nhap gia tri cua a= ‘);Readln(a);
 S:=1/a;N:=1;

WHILE 1/(a+N)>=0.0001 DO 
 BEGIN

S:=S+1/(a+N);
 N:=N+1;

END;

Writeln(‘Gia tri cua tong S = ‘,S:8:3);
 Readln;

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

b

Lập ch ơng trình nhập vào hai số nguyên d ơng M,N.

Tìm ƯCLN của hai số đó.

B1: NhËp M,N;

B2 : Chõng nµo

M



N

nÕu

M>N

th×

M:=M-N,

ng ợc lại

thì

N:=N-M;

B3: Đến khi M=N thì

=> Đ a ra ƯCLN(M,N)=M;

=> KÕt thóc.

B1: NhËp M,N

B2 : While

M<>N

DO

Begin

IF M>N then M:=M-N

else N:=N-M;

end;

B3: In ¦CLN(M,N)

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

Tham khảo:

Dạng khác của câu lệnh lặp với số lần lặp không biết tr ớc

REPEAT

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

Điều kiện

Sai

Câu lệnh

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

Bi toỏn đặt vấn đề:

Program Bai_toan;

Uses Crt;

Var a,N:Integer;
 S:Real;

BEGIN

Clrscr;

Write(‘Nhap gia tri cua a= ‘);Readln(a);
 S:=1/a;N:=1;

REPEAT {Bat dau lap}

S:=S+1/(a+N);
 N:=N+1

UNTIL 1/(a+N)< 0.0001; {Ket thuc lap}
 Writeln(‘Gia tri cua tong S = ‘,S:8:3);

Readln;

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

Cau truc lap

Bài 10

Bài toán 1:

Bài toán 2:

100

1

...

2

1

1

1

1

<i><b>a</b></i>

<i><b>a</b></i>

<i><b>a</b></i>

<i><b>a</b></i>

<i><b>S</b></i>

...

1

...

2

1

1

1

1

<i><b>N</b></i>

<i><b>a</b></i>

<i><b>a</b></i>

<i><b>a</b></i>

<i><b>a</b></i>

<i><b>S</b></i>

<b>cho đến khi </b>

1

0

.

0001

<b>Xuất phát </b>

<i><b>a</b></i>

<i><b>S</b></i>

1

1

1

<i>a</i>

<b>Lần 1</b>

2

1

<i>a</i>

<b>Lần 2</b>

<b>+</b>

<b>Lần N</b>

<i>N</i>

<i>a</i>

1

<b> Mỗi lần thực hiện giá trị tổng S tăng thêm bao nhiêu?</b>

1

Sau mỗi lần thực hiện giá trị tổng S tăng thªm

( víi i =1; 2; 3 ; ...;N)

a + i

<b>Bài toán 1:</b>

<b>Bài toán 2: </b>

100

1

...

2

1

1

1

1

<i><b>a</b></i>

<i><b>a</b></i>

<i><b>a</b></i>

<i><b>a</b></i>

<i><b>S</b></i>

1

1

<sub>1</sub>

1

<sub>2</sub>

...

1