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 (267.9 KB, 14 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
Bài toán 1:
Bài toán 2:
Xét các bài : <b><sub>Tính tổng S, với a là số nguyên và a>2</sub></b>
<b>cho đến khi </b>
<b>Xuất phát </b>
<b>Lần 1</b>
<b>Lần 2</b>
<b>+</b>
<b>Lần N</b>
<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 ...
<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> <b>1</b> <b>0</b>.<b>0001</b>
<i>N</i>
<i>a</i>
<b>Số lần lặp biết tr ớc.</b>
ã <b><sub>Việc tăng giá trị cho </sub></b>
<b>tổng S đ ợc lặp đi lặp </b>
<b>lại cho đến khi</b>
0.0001
• <b><sub> Việc tăng giá trị cho </sub></b>
<b>tổng S đ ợc lặp đi lặp </b>
<b>lại 100 lần.</b>
<b>1. Bi tốn đặt vấn đề </b>
<b>- D÷ liƯu ra (Output) : Tổng S</b>
<i><b>Lập ch ơng trình tính tổng sau: </b></i>
<b>- Dữ liệu vào (Input) : Nhập N</b>
<b>Hóy xỏc nh </b>
<b>INPUT v </b>
<b>OUTPUT ca </b>
<b>bài toán trên!</b>
Phân tích bài toán với N = 100
Nhận xét:
<b>S1 = 1</b>
<b>S2 = S1 + 1/2</b>
<b>S3 = S2 + 1/3</b>
<b>S4 = S3 + 1/4</b>
<b>...</b>
<b>S100 = S99 + 1/100</b>
<i><b>Bắt đầu từ S2 việc tính S đ </b></i>
<i><b>ợc lặp đi lặp lại 99 lÇn theo </b></i>
<i><b>quy lt</b></i>
<i><b> S</b><b><sub>sau</sub></b><b> = S</b><b><sub>tr íc</sub></b><b>+ 1/i</b></i>
<i><b>víi i ch¹y tõ 2 </b></i><i><b> 100</b></i>
<b>§</b>
<b>S</b>
<b>NhËp N </b>
<b>S:= 1 ; i:=</b> <b>2</b>
<b>i > N ?</b>
<b> S:= S + 1/i</b>
<b>§ a ra S råi kÕt thóc</b>
<b> B1: NhËp N;</b>
<b> B2: S:=1; i:=2;</b>
<b> B3: Nếu i > N thì đ a ra giá trị </b>
<b> S => KÕt thóc; </b>
<b> B4 : S:= S + 1/i; </b>
<b> B5: i := i +1 quay l¹i B3.</b>
FOR <bin m> := <giá trị đầu> TO <giá trị cuối> DO < câu lệnh>;
<i><b>VÝ dô:</b></i><b> S:=1;</b>
<b> FOR i:=2 TO 100 DO S:=S+1/i;</b>
<b>b. D¹ng 2 (d¹ng lïi)</b>
FOR <biến đếm> := <giá trị cuối> DOWNTO <giá trị đầu> DO <câu lệnh >;
<i><b>VÝ dô:</b></i><b> S:=1;</b>
<b> FOR i:=100 DOWNTO 2 DO S:=S+1/i;</b>
<b>a. D¹ng 1 (d¹ng tiÕn)</b>
FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối>
DO < câu lệnh>;
FOR <biến đếm> := <giá trị cuối> DOWNTO
<giá trị đầu> DO <câu lệnh >;
Begin
Biến điều khiển:= giá trị
đầu
DO <Công việc>
Biến điều khiển:= biến điều
khiển + 1
Biến điều
khiển > giá trị
cuối
End
S Đ
Begin
Biến điều khiển:= giá trị Cuối
DO <Công việc>
Biến điều khiển := biến
điều khiển - 1
Biến điều khiển
< giá trị đầu
End
<b>S := 1 ; i := 2;</b>
<b>i >N</b> <b><sub>KT</sub></b>
<b>S := S +1/ i ;</b>
<b> i := i +1;</b>
<b>2.08</b>
<b>1.83</b>
<b>1.5</b>
<b>1</b>
<b>4</b>
<b>3</b>
<b>2</b>
<b>L ỵt</b>
<b>i</b>
<b>S</b> <b>2.28</b>
<b>5</b>
<b>NhËp N</b>
<b>S := 1 ; i := 2;</b>
<b>2>5 ?</b>
<b>S</b>
<b>S</b>
<b>S := 1 +1/2 ;</b>
<b> i := 2 +1;</b>
<b>3>5 ?</b>
<b>S := 1.5+1/3 ;</b>
<b> i := 3 +1;</b>
<b>4>5 ?</b>
<b>S := 1.83+1/4 ;</b>
<b> i := 4 +1;</b>
<b>5>5 ?</b>
<b>S := 2.08+1/5;</b>
<b> i := 5 +1;</b>
<b>6</b>
<b>SSS</b>
<b>6>5 ?</b> <b>Tổng S=2.28In Tổng S</b>
<b>Với N = 5</b>
<b>2.28</b>
<b>Đ</b>
<b>Đ</b>
Mô phỏng thuật to¸n
<b>S := 1/5 ; i := 4;</b>
<b>i >N</b> <b><sub>KT</sub></b>
<b>S := S +1/ i ;</b>
<b>1,28</b>
<b>0,78</b>
<b>0,45</b>
<b>0,2</b>
<b>2</b>
<b>3</b>
<b>4</b>
<b>L ỵt</b>
<b>i</b>
<b>S</b> <b>2.28</b>
<b>1</b>
<b>NhËp N</b>
<b>S := 1/5 ; i := 4;</b>
<b>4<1 ?</b>
<b>S</b>
<b>S</b>
<b>S := 0,2 ;</b>
<b> i := 5-1;</b>
<b>3<1 ?</b>
<b>S := 0,2+1/4 ;</b>
<b> i := 4 - 1;</b>
<b>2<1 ?</b>
<b>S := 0,45+1/3 ;</b>
<b> i := 3-1;</b>
<b>1<1 ?</b>
<b>S := 0,78+1/2;</b>
<b> i := 2-1;</b>
<b>0</b>
<b>SS</b>
<b>S</b>
<b>0<1 ?</b> <b>Tổng S=2.28In Tổng S</b>
<b>Với N = 5</b>
<b>2.28</b>
<b>Đ</b>
<b>Đ</b>
Mô pháng tht to¸n
<b>Bài 1:Viết chương trình hiển thị các số từ 1 đến 10 </b>
<b>ra màn hình </b>
<b>Var i: byte;</b>
<b> Begin</b>
<b> For i:= 1 to 10 do </b>
<b> Write(i);</b>
<b>Bài 2: Viết chương trình tính Tổng :</b>
<b>S= 1 + 2+ 3 +….+ 100</b>
<b>Var s,i: integer;</b>
<b>BEGIN</b>
<b> S:=1;</b>
<b> For i:= 1 to 100 do S:= S+1;</b>
<b> Write(s);</b>