Giáo án tin học 11_full_chương 3

Chỉång 3: Cáúu trục r nhạnh v làûp Trỉåìng THPT Triãûu Phong
Tiãút thỉï: 11 Ngy soản: / /2008
BI 9: CÁU LÃÛNH R NHẠNH
A. MỦÛC TIÃU
1.Kiãún thỉïc:
- Hiãøu nhu cáưu ca cáúu trục r nhạnh trong biãøu diãùn thût toạn.
- Hiãøu cáu lãûnh r nhạnh (dảng thiãúu v dảng â).
- Sỉí dủng cáúu trục r nhạnh trong mä t thût toạn ca mäüt säú
bi toạn âån gin.
- Viãút âỉåüc cạc lãûnh r nhạnh dảng thiãúu, r nhạnh dảng âáưy
â v ạp dủng âãø thãø hiãûn âỉåüc thût toạn ca mäüt säú bi toạn
âån gin.
2.Kỵ nàng:
- Biãút diãùn âảt âụng cạc cáu lãûnh r nhạnh, soản âỉåüc chỉång
trçnh gii cạc bi toạn âån gin ạp dủng cáúu trục r nhạnh.
- Bỉåïc âáưu cọ kh nàng phán têch bi toạn âån gin âãø chn kiãøu
cáúu trục r nhạnh.
- Biãút tảo cáu lãûnh ghẹp khi cáưn thiãút.
3.Thại âäü:
- Khåi gåüi lng ham thêch gii bi toạn bàòng láûp trçnh trãn mạy tênh.
- Rn luûn cạc pháøm cháút cáưn thiãút ca ngỉåìi láûp trçnh nhỉ
xem xẹt gii quút váún âãư mäüt cạch cáøn tháûn, chu âạo, cọ sạng tảo,
khäng tha mn våïi kãút qu ban âáưu âảt âỉåüc...
B. PHỈÅNG PHẠP GING DẢY
• ÂàÛt váún âãư, giao tiãúp, hỉåïng dáùn hc sinh gii quút váún âãư.
C. CHØN BË GIẠO CỦ
• Giạo viãn: Giạo ạn, ti liãûu, sạch giạo khoa.
• Hc sinh: Sạch giạo khoa, våí viãút.
D. TIÃÚN TRÇNH BI DẢY
1.ÄØn âënh låïp - kiãøm tra sé säú:
Låïp 11B

1
11B
2
Vàõng
(P/K)
2.Kiãøm tra bi c: Khäng.
3.Näüi dung bi måïi:
a.Âàût váún âãư: Thỉåìng ngy, cọ ráút nhiãưu viãûc chè âỉåüc
thỉûc hiãûn khi mäüt âiãưu kiãûn củ thãø no âọ âỉåüc tha mn.
b.Triãøn khai bi dảy
Näüi dung kiãún thỉïc Hoảt âäüng tháưy v tr
1. Khại niãûm r nhạnh GV : Âỉa ra vê dủ räưi cng
hc sinh tho lûn phỉång
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 37 -
Chỉång 3: Cáúu trục r nhạnh v làûp Trỉåìng THPT Triãûu Phong
Vê dủ: Âãø viãút chỉång trçnh gii
phỉång trçnh báûc 2, ta phi:
Tênh  = b
2
- 4ac;
Sau âọ ty thüc vo giạ trë ca
 m ta cọ tênh nghiãûm hay khäng.
Trong thỉûc tãú:
- Nãúu  <0 thç phỉång trçnh vä
nghiãûm.
- Nãúu  >=0 thç phỉång trçnh cọ
nghiãûm.
- Nhỉ váûy ty thüc vo giạ trë
ca  m ta âỉa ra vä nghiãûm hay
cọ nghiãûm.

- Hồûc cọ thãø nọi: Nãúu  < 0 thç
phỉång trçnh vä nghiãûm, ngỉåüc
lải thç phỉång trçnh cọ nghiãûm.
=> Nhỉ váûy ta tháúy mäüt säú mãûnh
âãư cọ dảng:
+ Nãúu ...thç...
+ Nãúu ...thç..., nãúu khäng thç
Cáúu trục ny âỉåüc gi l cáúu
trục r nhạnh .
Cạc NNLT thỉåìng cung cáúp cạc cáu
lãûnh âãø mä t cạc cáúu trục r
nhạnh nhỉ trãn .
2. Cáu lãûnh If - Then
Pascal dng cáu lãûnh If - then âãø
mä t viãûc r nhạnh tỉång ỉïng våïi
hai loải mãûnh âãư r nhạnh nhỉ
nhau.
a) Dảng thiãúu
if <âiãưu kiãûn> then <cáu lãûnh>;
b) Dảng âáưy â
if <âiãưu kiãûn> then < cáu lãûnh 1>
else <cáu lãûnh 2>;
phạp gii quút bi toạn.
Âỉa ra khại niãûm r nhạnh
trong láûp trçnh.
Mäùi NNLT cọ cạch thãø
hiãûn r nhạnh khạc nhau .
GV : Âỉa ra cáúu trục lãûnh r
nhạnh trong Pascal. Nhàõc nhåí
hc sinh âáy l cáúu trục quan

trng, nọ s âỉåüc sỉí dủng
ráút nhiãưu trong cạc chỉång
trçnh sau ny.
GV : Lỉu cạc em sau Then v
sau Else chè cọ mäüt lãûnh
chỉång trçnh.
GV: Våïi hai dảng ny, dảng
no dng thûn tiãûn hån?
HS: Tçm cáu tr låìi, giạo viãn
gåüi âãø hc sinh âỉa ra
âỉåüc ty trỉåìng håüp củ thãø
m dng dảng thiãúu hay dảng
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 38 -
Kiãøm tra
>=0
Thäng bạo
vä nghiãûm
Tênh v
âỉa ra
nghiãûm
Kãút
thục
S
Â
Chỉång 3: Cáúu trục r nhạnh v làûp Trỉåìng THPT Triãûu Phong
Trong âọ:
- Âiãưu kiãûn : L biãøu thỉïc lägic.
- Cáu lãûnh, cáu lãûnh 1, cáu lãûnh 2
l 1 cáu lãûnh ca Pascal.
nghéa ca cạc cáu lãûnh :

- Dảng thiãúu: Nãúu âiãưu kiãûn
âụng thç cáu lãûnh âỉåüc thỉûc hiãûn,
nãúu âiãưu kiãûn sai thç khäng thỉûc
hiãûn gç.
- Dảng â: Nãúu âiãưu kiãûn âụng
thç thỉûc hiãûn cáu lãûnh 1, nãúu âiãưu
kãûin sai thç thỉûc hiãûn cáu lãûnh 2.
VD 1 : If (x Mod 2 = 0) Then
Write(x,’La so chan’);
VD 2: If D <0 Then
Write(‘PT Vo Nghiem’)
Else Write(‘PT co nghiem’);
VD 3: Tçm giạ trë låïn nháút (max) ca 2
säú a v b
Cạch 1 :
Max :=a; If b >a Then max :=b;
Cạch 2 :
If a >b Then max :=a Else max :=b;
3. Cáu lãûnh ghẹp
- Trong ngän ngỉỵ Pascal, Cáu lãûnh
ghẹp cọ dảng:
Begin <cạc cáu lãûnh> End ;
Chụ :
- Sau End phi l dáúu; v trỉåïc
Else khäng chỉïa dáúu ;
- Tỉì nay nọi âãún cáu lãûnh thç âọ
cọ thãø l cáu lãûnh âån hồûc l cáu
lãûnh ghẹp.
Vê dủ: Âoản chỉång trçnh sau
â.

Âỉa ra cạc vê dủ cọ sỉí
dủng lãûnh r nhạnh, nãúu
khäng cọ lãûnh r nhạnh thç
khäng thãø thỉûc hiãûn âỉåüc.
GV: åí VD3: Cạch no nhanh
hån, tiãûn hån?
=> Cạch 2 tiãûn hån
GV : Phán têch sỉû tiãûn låüi
trong cạch 2 v säú lãûnh m
mạy phi thỉûc hiãûn.
GV : Trong cáu lãûnh if - then
mún thỉûc hiãûn nhiãưu lãûnh
sau then hay nhiãưu lãûnh sau
else lm thãú no ?
HS : Phạt biãøu kiãún ca
mçnh.
GV : Khi âọ ta cáưn gäüp nhiãưu
lãûnh âọ lải v coi âọ l mäüt
cáu lãûnh trong chỉång trçnh.
Cạc ngän ngỉỵ láûp trçnh
thỉåìng cọ cáúu trục âãø giụp ta
thỉûc hãûin âiãưu ny.
GV : Giåïi thiãûu lãûnh ghẹp ca
mäüt vi ngän ngỉỵ láûp trçnh
khạc
+ C/C
++
: {}
+ VB: if - then - endif

Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 39 -
Chỉång 3: Cáúu trục r nhạnh v làûp Trỉåìng THPT Triãûu Phong
trong ngän ngỉỵ Pascal cọ sỉí dủng
chỉång trçnh ghẹp.
If D <0 then
Writeln(‘Phuong trinh vo nghiem’)
else
Begin
x1 := (-b-sqrt(D)/(2*a);
x2 := - b/a - x1;
Writeln(‘x1=’,x1:6:3,’x2=’,x2:6:3);
End;
4. Mäüt säú vê dủ
Quan sạt cạc chỉång trçnh sau trong
ngän ngỉỵ láûp trçnh Pascal .
Vê dủ 1:
Tçm nghiãûm thỉûc ca phỉång
trçnh báûc hai
ax
2
+ bx + c= 0 (a≠0)
Program Giai_PTB2;
Uses crt;
Var a,b,c: real;
D, x1, x2: readl;
Begin
Clrscr;
Write(‘a, b, c’); Readln(a, b, c);
D:= b*b - 4*a*c;
If D<0 then Writeln(‘Phuong trinh vn’)

Else
Begin
x1:= (-b - sqrt(D))/(2*a);
x2:= (-b + sqrt(D))/(2*a);
Writeln(‘x1=’,x1:8:3,’x2=’,x2:8:3’);
End;
Readln
End.
Vê dủ 2:
Tçm säú ngy ca mäüt nàm: Nàm
nhûn l nàm chia hãút cho 400 hồûc
chia hãút cho 4 nhỉng khäng chia hãút
cho 100.
Program Nam_nhuan;
Uses crt;
GV : Chè r âáu l lãûnh ghẹp
trong chùi lãûnh ny.
GV: Nãn soản sàơn hai chỉång
trçnh ny v cho cạc em quan
sạt cạch viãút chỉång trçnh âãø
cạc em hçnh thnh dáưn cạch
viãút mäüt chỉång trçnh .
Chảy thỉí chỉång trçnh v
chè r cạc lãûnh trong chỉång
trçnh dng âãø lm gç .
Nãúu cọ nhiãưu thåìi gian, GV
cọ thãø g tỉìng lãûnh chỉång
trçnh, g âãún âáu gii thêch cho
hc sinh âãún âọ.
Nãúu cn thåìi gian, gi hc

sinh lãn bng viãút cáu lãûnh if -
then cho mäüt säú bi toạn âån
gin .
Cọ thãø viãút chỉång trçnh
máùu cho hc sinh, u cáưu
cạc em g lải chỉång trçnh
vỉìa âỉåüc theo di m khäng
cáưn nhçn vo bi máùu .
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 40 -
Chổồng3:Cỏỳutruùcreợnhaùnhvaỡlỷp TrổồỡngTHPTTrióỷuPhong
Var N, SN: integer;
Begin
Clrscr;
Write(Nam:); Readln(N);
If (N mod 400 = 0) or ((N mod 4 = 0)
and(N mod 100<>0) then
SN:= 366
Else
SN:= 365;
Writeln(So ngay cua nam,N,la,SN);
Readln
End.
4. Cuớng cọỳ
- Reợ nhaùnh.
- Cỏu lóỷnh if - then.
- Cỏu lóỷnh gheùp.
5. Dỷn doỡ
- Traớ lồỡi vaỡ laỡm caùc cỏu hoới vaỡ baỡi tỏỷp 1, 2, 4 ồớ cuọỳi chổồng.
NguyóựnQuangQuyỡnhưT:0905139111ưEmail: Trang - 41 -
Chỉång 3: Cáúu trục r nhạnh v làûp Trỉåìng THPT Triãûu Phong

Tiãút thỉï: 12 Ngy soản: / /2008
BI 10: CÁÚU TRỤC LÀÛP(T1)
A. MỦÛC TIÃU
1.Kiãún thỉïc:
- Hiãøu nhu cáưu ca cáúu trục làûp trong biãøu diãùn thût toạn .
- Hiãøu cáúu trục làûp våïi säú láưn biãút trỉåïc.
2.Kỵ nàng:
- Biãút cạch váûn dủng âụng âàõn cáúu trục làûp vo tçnh húng củ
thãø .
- Mä t thût toạn ca mäüt säú bi toạn âån gin cọ sỉí dủng
lãûnh làûp .
- Viãút âụng cạc lãûnh làûp våïi säú láưn biãút trỉåïc.
- Viãút âỉåüc thût toạn ca mäüt säú bi toạn âån gin .
3.Thại âäü:
- thỉïc âỉåüc táưm quan trng ca män hc, cọ thại âäü hc táûp
nghiãm tục.
B. PHỈÅNG PHẠP GING DẢY
• ÂàÛt váún âãư, giao tiãúp, hỉåïng dáùn hc sinh gii quút váún âãư.
C. CHØN BË GIẠO CỦ
• Giạo viãn: Giạo ạn, ti liãûu, sạch giạo khoa.
• Hc sinh: Sạch giạo khoa, våí viãút.
D. TIÃÚN TRÇNH BI DẢY
1.ÄØn âënh låïp - kiãøm tra sé säú:
Låïp 11B
1
11B
2
Vàõng
(P/K)
2.Kiãøm tra bi c:

Cáu 1: Hy cho biãút sỉû giäúng v khạc nhau ca hai dảng cáu lãûnh
if-then.
Cáu 2: Cáu lãûnh ghẹp l gç? Tải sao phi cọ cáu lãûnh ghẹp?
3.Näüi dung bi måïi:
a.Âàût váún âãư:
b.Triãøn khai bi dảy
Näüi dung kiãún thỉïc Hoảt âäüng tháưy v tr
1. Làûp
- Xẹt 2 bi toạn nhỉ sau våïi a > 2 l
säú ngun cho trỉåïc :
Bi toạn 1: Tênh täøng
GV: Âỉa ra bi toạn, u cáưu
hc sinh tçm cạch âãø láûp trçnh
gii cạc bi toạn ny .
HS: Âỉa ra cạch gii ca mçnh,
hc sinh cọ thãø âỉa ra nhỉỵng
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 42 -
Chỉång 3: Cáúu trục r nhạnh v làûp Trỉåìng THPT Triãûu Phong
S1=
100
1
...
2
1
1
11
+
++
+
+

+
+
aaaa
Bi toạn 2: Tênh Täøng
S2=
...
1
...
2
1
1
11
+
+
++
+
+
+
+
Naaaa
Våïi âiãưu kãûin
0001.0
1
<
+ Na
Cạch gii:
- Bàõt âáưu S âỉåüc gạn giạ trë 1/a.
- Tiãúp theo mäùi láưn cäüng thãm
vo S l 1/(a+N) våïi N = 1, 2, 3, ...
- Våïi bi toạn 1, viãûc cäüng thãm

dỉìng khi 1/(a+N) < 0.0001, => säú láưn
làûp chỉa biãút.
- Våïi bi toạn 2, viãûc cäüng thãm
dỉìng khi N = 100, => säú láưn làûp â
biãút trỉåïc.
Trong láûp trçnh, cọ nhỉỵng thao
tạc phi làûp lải nhiãưu láưn, khi âọ
ta gi l cáúu trục làûp.
Làûp thỉåìng cọ 2 loải :
- Làûp våïi säú láưn biãút trỉåïc .
- Làûp våïi säú láưn khäng biãút trỉåïc
.
NNLT no cng cung cáúp mäüt säú
cáu lãûnh âãø mä t cạc cáúu trục làûp
nhỉ trãn.
Sau âáy chụng ta s tçm hiãøu cạc
cáu lãûnh trong ngän ngỉỵ Pascal.
2. Làûp våïi säú láưn biãút trỉåïc v
cáu lãûnh for - do
Trong Pascal, cọ 2 lai cáu lãûnh làûp
cọ säú láưn biãút trỉåïc :
- Làûp dảng tiãún:
For <biãún âãúm> := <giạ trë âáưu> to
<giạ trë cúi> do <cáu lãûnh>;
- Làûp dảng li
For <biãún âãúm> := <giạ trë cúi>
cạch gii khạc nhau.
GV: Âỉa ra cạch gii cho bi
toạn.
Gii theo cạc lãûnh tưn tỉû

S1:=0;
If (1/a>0.0001) then S1:=S1+ 1/a;
If (1/(a+1)>0.0001) then S1:=S1+ 1
/(a+1);
If (1/(a+2)>0.0001) then S1:=S1+ 1
/(a+2);
If (1/(a+3)>0.0001) then S1:=S1+ 1
/(a+3);
...
HS : Nháûn xẹt våïi viãûc gii bi
toạn theo cạch âọ ?
Våïi N = 100 thç làûp 100 láưn
nhỉ thãú nhỉng theo viãûc kiãøm
tra âiãưu kiãûn thç khäng biãút
phi lm theo cạch no? Theo
c hai trỉåìng håüp thç âãưu quạ
di.
Âãø hc sinh hiãøu âỉåüc khại
niãûm làûp, giạo viãn âỉa ra
mäüt säú vê dủ trong thỉûc tãú
âỉåüc tênh toạn làûp âi làûp lải
nhiãưu láưn.
VD1 : Bi toạn gỉíi tiãưn vo
ngán hng. Hàòng thạng phi
tênh li v cäüng thãm vo gäúc
âang gỉíi hay nọi cạch khạc
gäúc ca thạng sau = gäúc + li
thạng trỉåïc.
VD 2: Tênh täøng ca mäüt
âoản säú ngun m khäng

âỉåüc dng cäng thỉïc.
GV: Âỉa ra vê dủ:
So sạnh hai thût toạn sau:
Thût toạn
Tong_1a
B1: S:=1/a; N:=0;
B2: N:=N+1;
B3: Nãúu N >100
thç chuøn sang
Thût toạn
Tong_1b
B1: S:=1/a; N:=101;
B2: N := N -1;
B3: Nãúu N < 1 thç
chuøn sang
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 43 -
Chỉång 3: Cáúu trục r nhạnh v làûp Trỉåìng THPT Triãûu Phong
downto <giạ trë âáưui> do <cáu lãûnh>;
Trong âọ:
- Biãún âãúm thỉåìng l biãún kiãøu
säú ngun.
- Giạ trë âáưu, giạ trë cúi l cạc
biãøu thỉïc cng kiãøu våïi biãún âãúm.
Giạ trë âáưu phi nh hån hay bàòng
giạ trë cúi.
- ÅÍ dảng làûp tiãún: Biãún âãúm tỉû
tàng dáưn tỉì giạ trë âáưu âãún giạ trë
cúi.
- ÅÍ dảng làûp li: Biãún âãúm tỉû
gim dáưn tỉì giạ trë cúi âãún giạ trë

âáưu.
- Tỉång ỉïng våïi mäùi giạ trë ca
biãún âãúm, cáu lãûnh sau do thỉûc
hiãûn 1 láưn
Vê dủ 1: Hai chỉång trçnh ci âàût
thût toạn tong_1a v tong_1b .
Vê dủ 2: Tênh täøng cạc säú
ngun chia hãút cho 3 hồûc 5 trong
phảm vi tỉì M âãún N (M<N).
bỉåïc 5;
B4: S:= S + 1/(a+
N) räưi quay lải
B2;
B5: Âỉa ra S räưi
kãút thục.
bỉåïc 5;
B4: S:= S+ 1/(a+N)
räưi quay lải B2;
B5: Âỉa ra S räưi
kãút thục.
GV : Gi mäüt säú hc sinh
nháûn xẹt vãư 2 thût toạn trãn
vãư mäüt säú váún âãư :
- Thût toạn cọ làûp khäng?
- Làûp bao nhiãu láưn?
- Hai thût toạn giäúng v
khạc nhau nhỉ thãú no?
- Cại gç thay âäøi trong thût
toạn ny?
- Sau khi so sạnh hai thût

toạn trãn, giạo viãn âỉa ra hai
cạch làûp trong ngän ngỉỵ
Pascal, gii thêch nghéa ca
cạc thnh pháưn trong cáu
lãûnh .
GV: Láúy vê dủ minh ha trong
Pascal âãø cạc em tháúy âỉåüc
sỉû thay âäøi giạ trë ca biãún
âãúm trong mäüt chỉång trçnh
thỉûc sỉû ca Pascal .
Våïi 2 vê dủ ny, giạo viãn
nãn g sàơn chỉång trçnh v
cho hc sinh quan sạt viãûc
chảy chỉång trçnh, giạo viãn
vỉìa cho chảy chỉång trçnh
vỉìa gii thêch nghéa cạc
lãûnh trong chỉång trçnh (chụ
nhiãưu âãún lãûnh làûp) .
GV: Âỉa ra thût toạn hồûc
cọ thãø u cáưu hc sinh tỉû
xáy dỉûng thût toạn gii bi
toạn 2, nãúu tỉû xáy dỉûng
âỉåüc thût toạn thç cạc em
s hiãøu hån vãư làûp khäng biãút
trỉåïc säú láưn.
4. Cng cäú
- Nàõm khại niãûm làûp.
- Nàõm cụ phạp v cạch thỉûc hiãûn ca cáu lãûnh For - Do
5. Dàûn d
- Lm cạc cáu hi v bi táûp 5a, 6(Tr.51).

Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 44 -
Chỉång 3: Cáúu trục r nhạnh v làûp Trỉåìng THPT Triãûu Phong
Tiãút thỉï: 13 Ngy soản: / /2008
BI 10: CÁÚU TRỤC LÀÛP(T2)
A. MỦÛC TIÃU
1.Kiãún thỉïc:
- Hiãøu nhu cáưu ca cáúu trục làûp trong biãøu diãùn thût toạn .
- Hiãøu cáúu trục làûp våïi säú láưn biãút trỉåïc.
2.Kỵ nàng:
- Biãút cạch váûn dủng âụng âàõn cáúu trục làûp vo tçnh húng củ
thãø .
- Mä t thût toạn ca mäüt säú bi toạn âån gin cọ sỉí dủng
lãûnh làûp .
- Viãút âụng cạc lãûnh làûp våïi säú láưn biãút trỉåïc.
- Viãút âỉåüc thût toạn ca mäüt säú bi toạn âån gin .
3.Thại âäü:
- thỉïc âỉåüc táưm quan trng ca män hc, cọ thại âäü hc táûp
nghiãm tục.
B. PHỈÅNG PHẠP GING DẢY
• ÂàÛt váún âãư, giao tiãúp, hỉåïng dáùn hc sinh gii quút váún âãư.
C. CHØN BË GIẠO CỦ
• Giạo viãn: Giạo ạn, ti liãûu, sạch giạo khoa.
• Hc sinh: Sạch giạo khoa, våí viãút.
D. TIÃÚN TRÇNH BI DẢY
1.ÄØn âënh låïp - kiãøm tra sé säú:
Låïp 11B
1
11B
2
Vàõng

(P/K)
2.Kiãøm tra bi c: Khäng.
3.Näüi dung bi måïi:
a.Âàût váún âãư:
b.Triãøn khai bi dảy
Näüi dung kiãún thỉïc Hoảt âäüng tháưy v tr
Vê dủ 1: Viãút chỉång trçnh tênh
Tong_1a, Tong_1b.
Program Tong_1a;
Uses crt;
Var s: real;
a,N: integer;
Begin
Clrscr;
Write(‘Nhap a=’); Readln(a);
S:=1.0/a;
GV: u cáưu hc sinh xạc âënh
Input v Output ca bi toạn.
HS: Suy nghè v âỉa ra âạp ạn.
- Input: a.
- Output: S
GV: Hy xạc âënh cạc biãún
ca bi toạn.
HS: Suy nghè âỉa ra kãút qu.
- Cạc biãún gäưm: s, a, N.
GV: Bi toạn thỉûc hiãûn viãûc
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 45 -
Chỉång 3: Cáúu trục r nhạnh v làûp Trỉåìng THPT Triãûu Phong
For N:=1 to 100 do
S:= s+1.0/(a+N);

Write(‘Tong S=’,s:8:4);
Readln
End.
Program Tong_1b;
Uses crt;
Var s: real;
a,N: integer;
Begin
Clrscr;
Write(‘Nhap a=’); Readln(a);
S:=1.0/a;
For N:=100 downto 1 do
S:= s+1.0/(a+N);
Write(‘Tong S=’,s:8:4);
Readln
End.
Vê dủ 2: Viãút chỉång trçnh täøng cạc
säú chia hãút cho 3 hồûc 5 trong phảm
vi tỉì M âãún N.
Uses crt;
Var M, N, I: Integer;
T: Longint;
Begin
Clrscr;
Write(‘Nhap so M nho hon N’);
Readln(M, N);
T: = 0;
For I:= M to N do
If (I mod 3 = 0) or (I mod 5 = 0)
Then

T: = T + I;
Write(‘Tong T=’, T);
Readln
End.
tênh toạn làûp lải bao nhiãu láưn.
HS: Suy nghè v tr låìi.
- Làûp 100 láưn.
GV: Säú láưn làûp â biãút trỉåïc
chỉa?
HS: Biãút.
GV: Gi hai hc sinh lãn bng
viãút chỉång trçnh Tong_1a,
Tong_1b.
HS: Hai hc sinh lãn bng lm,
cạc em cn lải lm vo giáúy
nháúp.
GV: Cho c låp nháûn xẹt bi
lm ca hai bản. Giạo viãn
nháûn xẹt v khàõc phủc cạc
läùi m cạc em chỉa gii quút
âỉåüc.
HS: Ghi chỉång trçnh vo våí.
GV: u cáưu hc sinh xạc âënh
Input v Output ca bi toạn.
HS: Suy nghè v âỉa ra âạp ạn.
- Input: M, N.
- Output: T.
GV: Hy xạc âënh cạc biãún
ca bi toạn.
HS: Suy nghè âỉa ra kãút qu.

- Cạc biãún gäưm: M, N, I, T.
GV: Bi toạn thỉûc hiãûn viãûc
tênh toạn làûp lải bao nhiãu láưn.
HS: Suy nghè v tr låìi.
- Làûp N láưn.
GV: Säú láưn làûp â biãút trỉåïc
chỉa?
HS: Biãút.
GV: Gi hai hc sinh lãn bng
viãút chỉång trçnh.
HS: Hai hc sinh lãn bng lm,
cạc em cn lải lm vo giáúy
nháúp.
GV: Cho c låp nháûn xẹt bi
lm ca hai bản. Giạo viãn
nháûn xẹt v khàõc phủc cạc
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 46 -