Bai 7 Cau lenh lap

<span class='text_page_counter'>(1)</span>Gi¸o ¸n ®iÖn tö tin häc líp 8.

<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 10 lệnh in.

<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.

<span class='text_page_counter'>(4)</span> O. 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.

<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).

<span class='text_page_counter'>(6)</span>  vÝ dô 1: In ra mµn h×nh 4 ch÷ O. Program in4; Uses O crt; 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..

<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.

<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. ...... S = S + 100. 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.

<span class='text_page_counter'>(9)</span> DiÔn t¶ thuËt to¸n. 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.. Ch¬ng tr×nh. 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..

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

<span class='text_page_counter'>(11)</span> VÝ dô 3:. TÝnh N! (TÝch N sè tù nhiªn ®Çu tiªn) N! = 1.2.3.4...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  GT:=1; -Câu lệnh sẽ đợc lặp.  For i:=1 to N do  GT:= GT*i;.

<span class='text_page_counter'>(12)</span> Em b¸o biÕn cho bµi to¸n In rah·y kÕtkhai viÕt qu¶? c©u vµo N?trÞtrªn? 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¸ cña biến đếm và câu lệnh đợc lặp. N:integer; GT:longint; 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..

<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..

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