Cau lenh lap

<span class='text_page_counter'>(1)</span> 1. C¸c c«ng viÖc ph¶I thùc hiÖn nhiÒu lÇn 2. C©u lÖnh lÆp – mét lÖnh thay cho nhiÒu lÖnh 3. C©u lÖnh lÆp 4. TÝnh tæng vµ tÝch b»ng c©u lÖnh lÆp. Tæ Tin Trêng THCS Ph¬ng §×nh. 1.

<span class='text_page_counter'>(2)</span> 1. C¸c c«ng viÖc ph¶i thùc hiÖn nhiÒu lÇn. . 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 nhất định vµ biÕt tríc ?.  Em đánh răng 2 lần một ngày  Kim gi©y quay 60 vßng trong 1 giê  Bµi to¸n: ViÕt ch¬ng tr×nh in ra mh các số từ 1 đến 10 Tæ Tin Trêng THCS Ph¬ng §×nh. 10 lÖnh in. 2.

<span class='text_page_counter'>(3)</span> 2. C©u lÖnh lÆp - mét lÖnh thay cho nhiÒu lÖnh VÝ dô1: In ra mh mét ch÷ O. Program in1; Uses crt; Begin Writeln('O'); End.. KÕt qu¶ O. . VÝ dô2: In ra mh bèn ch÷ O. Program in4; Uses crt; Begin Writeln('O'); Writeln('O'); Writeln('O'); Writeln('O'); End.. O O O O Tæ Tin Trêng THCS Ph¬ng §×nh. 3.

<span class='text_page_counter'>(4)</span>  NÕu viÕt ch¬ng tr×nh in ra mµn h×nh 100  ch÷ Mäi ng÷ ‘O’ng«n th× sao nhØ?. lập trình đều có câu lệnh giúp thùc hiÖn nhiÒu c©u lÖnh lÆp ®i lÆptr×nh l¹iqu¸b»ng ch¬ng dµi, vµ viÕt mÊt mét c©u lÖnh. §ã lµ c¸c c©u lÖnh lÆp. nhiÒu thêi gian !. O. Tæ Tin Trêng THCS Ph¬ng §×nh. 4.

<span class='text_page_counter'>(5)</span> 3. c©u lÖnh lÆp. .  C©u lÖnh lÆp víi sè lÇn lÆp biÕt tríc trong Pascal:. FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO < câu lệnh>; Trong đó:  Biến đếm thờng có kiểu số nguyên For i:=1 to 100 do writeln(‘O’);.  Gi¸ trÞ cuèi ph¶i lín h¬n gi¸ trÞ ®Çu.  Câu lệnh có thể là câu lệnh đơn giản(một lÖnh) hoÆc lÖnh ghÐp (nhiÒu lÖnh). Tæ Tin Trêng THCS Ph¬ng §×nh. 5.

<span class='text_page_counter'>(6)</span>  vÝ dô 1: In ra mµn h×nh 4 ch÷ O Program in4; Uses Ocrt; Begin O Writeln('O'); O Writeln('O'); Writeln('O'); O Writeln('O'); End.. . Program in4; Uses crt; Begin For i:=1 to 4 do Writeln('O'); End.. Hoạt động của lệnh For..to..do  Ban đầu biến đếm (I =1< 4) lệnh in đợc thực hiện  In ra mh chữ O đầu tiên  Biến đếm i tăng 1 đơn vị (I = 2< 4) lệnh in đợc thực hiện  in ra mh chữ O thứ hai.  Tơng tự nh vậy cho đến khi biến đếm i bằng giá trị cuối (I = 4) thì lệnh đ îc thùc hiÖn lÇn cuèi vµ kÕt thóc  trªn mµn h×nh cã 4 ch÷ O. Tæ Tin Trêng THCS Ph¬ng §×nh. 6.

<span class='text_page_counter'>(7)</span>   vÝ dô 2: M« pháng qu¶ trøng r¬i tõ trªn cao xuèng Program in4; Uses crt; Begin For i:=1 to 10 do begin Writeln('O'); delay(100); end; End.. O O O O O O O O O O.  Với mỗi giá trị của biến đếm + Hai câu lệnh Writeln(‘o’) và delay(100) đợc thực hiện + Hai lệnh trên đợc đặt giữa hai từ khoá begin, end  C©u lÖnh ghÐp Tæ Tin Trêng THCS Ph¬ng §×nh. 7.

<span class='text_page_counter'>(8)</span> 4. TÝnh tæng vµ tÝch b»ng c©u lÖnh lÆp. . VÝ dô 1: TÝnh tæng cña 100 sè tù nhiªn ®Çu tiªn liªn tiÕp S = 1 + 2 + 3 + 4 + ... + 100. S 1  2  3  4  .......  100 ..................... S=0 S=S+1. S=S+2 S=S+3. ...... NhËn xÐt: Việc tính S đợc lặp đi lặp lại 100 lÇn theo quy luËt Ssau = Stríc+ i với i tăng lần lợt từ 1 đến100. S = S + 100 Tæ Tin Trêng THCS Ph¬ng §×nh. 8.

<span class='text_page_counter'>(9)</span>  DiÔn t¶ thuËt to¸n. Ch¬ng tr×nh. B1: B¾t ®Çu B2: S:=0; i:=1; B3: NÕu i > 100 th× kÕt thóc B4 : S:= S + i i := i +1 quay l¹i B3.. Program tinhtong; Uses crt; Var S,i : Integer; Begin S:=0; For i:=1 to 100 do S:=S +i; Writeln('Tong S=',S); Readln; End.. Tæ Tin Trêng THCS Ph¬ng §×nh. 9.

<span class='text_page_counter'>(10)</span> VÝ dô 2:. LËp ch¬ng tr×nh tÝnh tæng sau:. S 1 . . 1 1 1 1    ...  2 3 4 N. Program Tinh_tong2; Uses crt;đề bài hãy Dùa vµo định: S : real; Var i,Nx¸c : Integer; S - Gi¸ S:=0; trÞ ®Çu, cuèi cña biến đếm i Write(‘ Nhap vao -C©u lÖnh sẽ đợc lặp. Gi¸ trÞ khëi t¹o cña BEGIN.  S:=0;.  For i:=1 to N do gia tri cua N :’);readln(N); FOR i:=1 to N do S := S+1/i; S:= S + 1/i;. Writeln(‘ Tong S =’,S:8:3); Readln; END. Tæ Tin Trêng THCS Ph¬ng §×nh. 10.

<span class='text_page_counter'>(11)</span>  VÝ dô 3: TÝnh N ! (TÝch N sè tù nhiªn ®Çu tiªn) 1! = 1 2! = 1 . 2 3! = 1 . 2 . 3 4! = 1. 2 . 3 . 4 GT = 1 GT = GT . 2 GT = GT . 3 GT = GT . 4. Hãy xác định: - Gi¸ trÞ khëi t¹o cña GT - Gi¸ trÞ ®Çu, cuèi cña biến đếm i -Câu lệnh sẽ đợc lặp . GT:=1;.  For i:=1 to N do  GT:= GT*i;. Tæ Tin Trêng THCS Ph¬ng §×nh. 11.

<span class='text_page_counter'>(12)</span>  khai b¸o biÕn cho bµi In Em rah·y kÕtviÕt qu¶? c©u vµo Khëi H·y viÕt t¹o GT c©u b»ng lÖnhlÖnh bao lÆp nhËp víi nhiªu? c¸c gi¸ to¸n trªn? N? trị của biến đếm và câu lệnh đ. N: integer ; GT: longint ;. îc lÆp.. Begin Clrscr; Write('Nhap N= '); Readln(N); GT:=1; For i:=1 to N do GT:=GT*i; Writeln('Tich cua N so tu nhien =',GT); Readln;. End.. Tæ Tin Trêng THCS Ph¬ng §×nh. 12.

<span class='text_page_counter'>(13)</span> Ghi nhí !. .  Cấu trúc lặp đợc sử dụng để chỉ thị cho máy tính thực hiện lặp lại một hoạt động nào đó, thờng là vớic ác dữ liệu khác nhau, cho đên skhi một điều kiện nào đó đợc thỏa mãn  Mọi ngôn ngữ lập trình đều có các câu lệnh lặp để thể hiện cấu trúc lặp  Ng«n ng÷ Pascal thÓ hiÖn cÊu tróc lÆp víi sè lÇn cho tríc b»ng c©u lÖnh for ... do.. Tæ Tin Trêng THCS Ph¬ng §×nh. 13.

<span class='text_page_counter'>(14)</span>