tiet 37,38 tin8

NS: 12 / 01 / 09 . ND: 15 / 01 / 09.

TiÕt 37, 38: C©u lÖnh lÆp

I. Môc tiªu :

*BiÕt nhu cÇu cÇn cã cÊu tróc lÆp trtong ng«n ng÷ lËp tr×nh;

*BiÕt ng«n nh÷ lËp tr×nh dïng cÊu tróc lÆp ®Ó chØ dÉn m¸y tÝnh thùc hiÖn lÆp ®i lÆp l¹i

c«ng viÖc nµo ®ã mét sè lÇn.

* HiÓu ho¹t ®éng cña c©u lÖnh lÆp víi sè lÇn biÕt tríc For…do trong pascal.

*ViÕt ®óng lÖnh For….do trong mét sè t×nh huèng ®¬n gi¶n.

* BiÕt lÖnh ghÐp trong pascal.

II. ChuÈn bÞ:

GV: M¸y chiÕu, M¸y tÝnh.

HS: SGK, ®äc qua bµi míi.

III. TiÕn tr×nh lªn líp:

1. Bµi cò: H·y cho biÕt cÊu tróc, d¹ng ®ñ vµ d¹ng thiÕu cña c©u lÖnh ®iÒu kiÖn ?

2. Bµi míi:

Ho¹t ®éng cña GV vµ HS Néi dung ghi b¶ng

GV giíi thiÖu: Trong cuéc sèng h»ng

ngµy, nhiÒu ho¹t ®éng ®îc thùc hiÖn

lÆp ®I lÆp l¹i nhiÒu lÇn

HS: L¾ng nghe.

GV: H·y nªu thao t¸c vÏ liªn tiÕp ba

h×nh vu«ng?

GV: m« t¶ thuËt to¸n cho HS râ

GV: gäi 1 hs nªu thuËt to¸n m« t¶ cña

vÝ dô 2.

GV: Giíi thiÖu có ph¸p thêng gÆp

trong Pascal

H·y cho biÕt c¸c tõ khãa trong c©u

lÖnh?

HS: §äc vÝ dô 3 ë sgk.

1. C¸c c«ng t¸c ph¶I thùc hiÖn nhiÒu lÇn.

VÝ dô: (Sgk)

2.C©u lÖnh lÆp - mét lÖnh thay cho nhiÒu

lÖnh.

VÝ dô1: VÏ 3 h×nh vu«ng cã c¹nh1 ®¬n vÞ.

ThuËt to¸n m« t¶ nh sau:

B1. k 0( k lµ sè ® th¼ng vÏ ®îc)

B2. k k+1. VÏ ® th¼ng 1®¬n vÞ dµi

B3. NÕu k<4 th× trë l¹i bíc 2; ngîc lai, kÕt

thóc.

VÝ dô 2: tÝnh S = 1+2+3+…….+100

* Mäi ng«n ng÷ lËp tr×nh ®Òu cã “c¸ch” ®Ó

chØ thÞ cho m¸y tÝnh thùc hiÖn cÊu tróc lÆp

víi mét c©u lÖnh. §ã lµ c¸c lÖnh lÆp.

3. VÝ dô vÒ c©u lÖnh lÆp

For<biÕn ®Õm>: = < gi¸ trÞ ®Çu> to < gi¸

trÞ cuèi > do < c©u lÖnh> ;

Vi dô 3: (Sgk)

VÝ dô 4: ViÕt ch¬ng tr×nh ghi nhËn c¸c vÞ

trÝ cña qu¶ trøng r¬I tõ trªn cao xuèng , ta

cã thÓ lÆp l¹i nhiÒu lÇn( 20 lÇn)

Uses crt ;

Var I : integer ;

Begin

Clrscr ;

For i : = to 20 do

Begin writeln(‘o’); delay(100) end ;