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

Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong
Tiãút thỉï: 21 Ngy soản: / /2008
BI 11: KIÃØU MNG(T1)
A. MỦÛC TIÃU
1.Kiãún thỉïc:
- Hiãøu khại niãûm mng mäüt chiãưu v hai chiãưu.
- Hiãøu cạch khai bạo v truy cáûp âãún cạc pháưn tỉí ca mng.
2.Kỵ nàng:
- Ci âàût âỉåüc thût toạn ca mäüt säú bi toạn âån gin våïi kiãøu
dỉỵ liãûu mng mäüt chiãưu.
- Thỉûc hiãûn âỉåüc khai bạo mng, truy cáûp, tênh toạn cạc pháưn
tỉí ca mng.
3.Thại âäü:
- Xáy dỉûng lng ham thêch láûp trçnh, nhàòm gii quút cạc bi toạn
bàòng mạy tênh.
- thỉïc chn v xáy dỉûng kiãøu dỉỵ liãûu khi thãø hiãûn nhỉỵng
âäúi tỉåüng trong thỉûc tãú, thỉïc rn luûn ké nàng sỉí dủng cạc thao
tạc trãn mäùi kiãøu dỉỵ liãûu cọ cáúu trụ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, mạy chiãúu, mạy tênh,
phäng chiãúu hồûc bng .
• 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
11B

7
Vàõng
(P/K)
2.Kiãøm tra bi c: Khäng.
3.Näüi dung bi måïi:
a.Âàût váún âãư: Cạc kiãøu dỉỵ liãûu chøn khäng â âãø biãøu diãùn
dỉỵ liãûu ca cạc bi toạn trong thỉûc tãú. Cạc ngän ngỉỵ láûp trçnh cọ
cạc quy tàõc, cạch thỉïc cho phẹp ngỉåìi láûp trçnh xáy dỉûng nhỉỵng
kiãøu dỉỵ liãûu phỉïc tảp tỉì nhỉỵng kiãøu â cọ.
b.Triãøn khai bi dảy
Näüi dung kiãún thỉïc Hoảt âäüng tháưy v tr
1. Kiãøu mng mäüt chiãưu
- Mng mäüt chiãưu l mäüt dy
hỉỵu hản cạc pháưn tỉí cọ cng
kiãøu, mng âỉåüc âàût tãn v
mäùi pháưn tỉí mang mäüt chè
Trỉåïc khi vo bi, giạo viãn âỉa ra
mäüt säú váún âãư cáưn gii quút
nhỉ sau :
Våïi nhỉỵng kiãøu dỉỵ liãûu nhỉ â
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 64 -
Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong
säú. Âãø mä t mng mäüt chiãưu
ta cáưn xạc âënh kiãøu ca cạc
pháưn tỉí v cạch âạnh chè säú
cạc pháưn tỉí .
Våïi mng mäüt chiãưu ta quan
tám âãún :
- Tãn mng mäüt chiãưu .
- Säú lỉåüng pháưn tỉí trong

mng .
- Kiãøu dỉỵ liãûu ca pháưn
tỉí .
- Cạch khai bạo biãún mng
mäüt chiãưu .
- Cạch truy cáûp vo tỉìng
pháưn tỉí ca mng .
Xẹt vê dủ : Nháûp vo nhiãût
âäü trung bçnh mäùi ngy trong
tưn. Tênh v âỉa ra mn hçnh
nhiãût âäü trung bçnh ca c
tưn v âãúm säú ngy cọ nhiãût
âäü låïn hån nhiãût âäü trung bçnh
ny .
Quan sạt hai chỉång trçnh viãút
bàòng ngän ngỉỵ Pascal cng âãø
gii bi toạn trãn .
- Chỉång trçnh 1: Khäng sỉí
dủng kiãøu mng.
- Chỉång trçnh 2: Sỉí dủng
kiãøu mng mäüt chiãưu.
a. Khai bạo mng mäüt chiãưu
Trong ngän ngỉỵ Pascal, mng
mäüt chiãưu âỉåüc khai bạo bàòng
hai cạch nhỉ sau :
Cạch 1. Khai bạo trỉûc tiãúp:
Var <Tãn biãún mng> :
Array[kiãøu chè säú] of <kiãøu
pháưn tỉí> ;
Cạch 2. Khai bạo giạn tiãúp:

Type <Tãn kiãøu mng> = Array
[<kiãøu chè säú>] of <kiãøu pháưn
tỉí> ;
Var <Tãn biãún mng>: <tãn kiãøu
mng>;
biãút, lm thãú no âãø :
- Lỉu trỉỵ v xỉí l mäüt dy
säú ?
- Lỉu trỉỵ v xỉí l H v tãn
ca mäüt ngỉåìi ?
- Lỉu trỉỵ v xỉí l bng kãút
qu thi täút nghiãûp ?
HS : Âỉa ra cạc phỉång ạn âãø tr
låìi cho 3 cáu hi trãn .
GV : Cạc ngän ngỉỵ láûp trçnh thỉåìng
cung cáúp mäüt säú kiãøu dỉỵ liãûu
âỉåüc xáy dỉûng tỉì nhỉỵng kiãøu
dỉỵ liãûu chøn gi l kiãøu dỉỵ
liãûu cọ cáúu trục .
Chỉång ny chụng ta s tçm hiãøu
mäüt säú kiãøu dỉỵ liãûu trong ngän
ngỉỵ Pascal âãø tr låìi 3 cáu hi trãn .
GV : Âỉa ra vê dủ, cáưn láûp láûp
trçnh xỉí l mäüt dy säú ngun, hy
tçm cạch lỉu trỉỵ mäüt dy säú
ngun trong khi láûp trçnh?
Bàòng cạch no âãø lỉu trỉỵ
âỉåüc thäng tin dỉåïi dảng bng khi
láûp trçnh ?
HS : Âỉa ra kiãún .

GV : Âạnh giạ kiãún ca hc sinh,
sau âọ âỉa ra mủc âêch ca viãûc
sỉí dủng cáúu trục mng trong
chỉång trçnh .
GV : Âỉa ra khại niãûm mng mäüt
chiãưu v mäüt säú úu täú liãn quan
trong láûp trçnh nọi chung .
GV : Âi sáu phán têch hai chỉång trçnh
âãø cho hc sinh nháûn tháúy sỉû
tiãûn låüi khi sỉí dủng mng .
HS : Trong khi giạo viãn phán têch hai
chỉång trçnh, hc sinh s âỉa ra
kiãún nháûn xẹt vãư 2 chỉång trçnh.
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 65 -
Chổồng4:Kióứudổợlióỷucoùcỏỳutruùc TrổồỡngTHPTTrióỷuPhong
Trong õoù :
- Type laỡ tổỡ khoùa duỡng õóứ
khai baùo bióỳn, Array laỡ tổỡ
khoùa õóứ khai baùo maớng .
- Kióứu chố sọỳ thổồỡng laỡ
õoaỷn sọỳ nguyón lión tuỷc coù
n1..n2, vồùi n1 laỡ chố sọỳ õỏửu
vaỡ n2 laỡ chố sọỳ cuọỳi.
- Kióứu thaỡnh phỏửn laỡ kióứu
dổợ lióỷu cuớa phỏửn tổớ maớng
.
- óứ truy cỏỷp vaỡo phỏửn tổớ
maớng ta vióỳt :
- <Tón bióỳn maớng>[Chố sọỳ]
Vờ duỷ :

A[20] Truy cỏỷp phỏửn tổớ mang
chố sọỳ 20 trong maớng A .
Vờ duỷ :
Khai baùo bióỳn maớng thọng qua
kióứu maớng :
Type
ArrayInteger=Array[1..100]of
Integer;
ArrayReal=Array[1.50] of Real;
Var A : Array[1..50];
B : Array[1..50] of Real;
Khai baùo maớng trổỷc tióỳp :
Var A : Array[1..100] of Integer ;
B : Array[1..50] of Real ;
GV : ổa ra caùch khai baùo maớng
mọỹt chióửu trong ngọn ngổợ Pascal,
giaới thờch yù nghộa cuớa caùc tổỡ khoùa
mồùi .
GV : Khai baùo bũng caùch naỡo tióỷn
lồỹi hồn ?
HS : Thổồỡng thỗ hoỹc sinh traớ lồỡi
caùch 1 tióỷn lồỹi hồn ?
GV : Tuỡy trổồỡng hồỹp cuỷ thóứ maỡ ta
duỡng caùch 1 hay caùch 2 nhổng thọng
thổồỡng ta sổớ duỷng caùch 1 .
GV : Sổớ duỷng mọỹt sọử hỗnh aớnh
trổỷc quan minh hoỹa cho hoỹc sinh
cỏỳu truùc maớng vaỡ chố sọỳ cuớa phỏửn
tổớ
Chố

sọỳ
1 2 3 4 5 6 7 8
Giaù
trở
53 81 62 18 26 41 24 53
ổa ra mọỹt sọỳ khai baùo maớng trong
Pascal .
4. Cuớng cọỳ
- Khaùi nióỷm maớng 1 chióửu.
- Caùc caùch khai baùo maớng 1 chióửu.
5. Dỷn doỡ
- Xem trổồùc caùc vờ duỷ ồớ muỷc b.
NguyóựnQuangQuyỡnhưT:0905139111ưEmail: Trang - 66 -
Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong
Tiãút thỉï: 22 Ngy soản: / /2008
BI 11: KIÃØU MNG(T2)
A. MỦÛC TIÃU
1.Kiãún thỉïc:
- Hiãøu khại niãûm mng mäüt chiãưu v hai chiãưu.
- Hiãøu cạch khai bạo v truy cáûp âãún cạc pháưn tỉí ca mng.
2.Kỵ nàng:
- Ci âàût âỉåüc thût toạn ca mäüt säú bi toạn âån gin våïi kiãøu
dỉỵ liãûu mng mäüt chiãưu.
- Thỉûc hiãûn âỉåüc khai bạo mng, truy cáûp, tênh toạn cạc pháưn
tỉí ca mng.
3.Thại âäü:
- Xáy dỉûng lng ham thêch láûp trçnh, nhàòm gii quút cạc bi toạn
bàòng mạy tênh.
- thỉïc chn v xáy dỉûng kiãøu dỉỵ liãûu khi thãø hiãûn nhỉỵng
âäúi tỉåüng trong thỉûc tãú, thỉïc rn luûn ké nàng sỉí dủng cạc thao

tạc trãn mäùi kiãøu dỉỵ liãûu cọ cáúu trụ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, mạy chiãúu, mạy tênh,
phäng chiãúu hồûc bng .
• 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
11B
7
Vàõng
(P/K)
2.Kiãøm tra bi c:
? Hy viãút chỉång trçnh nháûp vo mäüt mng gäưm N pháưn tỉí.
Räưi in ra mn hçnh 10 säú trãn mäüt dng.
3.Näüi dung bi måïi:
a.Âàût váún âãư: Cạc kiãøu dỉỵ liãûu chøn khäng â âãø biãøu diãùn
dỉỵ liãûu ca cạc bi toạn trong thỉûc tãú. Cạc ngän ngỉỵ láûp trçnh cọ
cạc quy tàõc, cạch thỉïc cho phẹp ngỉåìi láûp trçnh xáy dỉûng nhỉỵng
kiãøu dỉỵ liãûu phỉïc tảp tỉì nhỉỵng kiãøu â cọ.
b.Triãøn khai bi dảy
Näüi dung kiãún thỉïc Hoảt âäüng tháưy v tr
b. Mäüt säú vê dủ :
Vê dủ 1 : Tçm pháưn tỉí låïn nháút ca
mäüt dy säú ngun .

GV : Âỉa ra vê dủ .
HS : Xáy dỉûng thût toạn âãø
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 67 -
Chổồng4:Kióứudổợlióỷucoùcỏỳutruùc TrổồỡngTHPTTrióỷuPhong
- Input : Sọỳ nguyón dổồng N vaỡ daợy
sọỳ A1, A2, .., AN
- Output : Chố sọỳ vaỡ giaù trở cuớa sọỳ
lồùn nhỏỳt trong daợy
- Yẽ tổồớng :
+ ỷt sọỳ A
1
laỡ sọỳ lồùn nhỏỳt (max)
+ Cho i lỷp tổỡ 2 õóỳn N, nóỳu A[i]>
thỗ õọứi max = A[i] vaớ lổu laỷi vở
trờ i .
Chổồng trỗnh nhổ sau :
Program timmax ;
Uses crt ;
var a : array[1..250] of integer ;
n,i,max,csmax : Integer ;
Begin
clrscr ;
Write('Nhap n = ') ;
Readln(n) ;
For i := 1 to n do
Begin
Write('a[',i,'] = ') ;
readln(a[i]) ;
End ;
max := a[i] ;

csmax := 1 ;
For i := 2 to n do
If a[i] > max then
Begin
max := a[i] ;
csmax :=i ;
End ;
Writeln('Gia tri lon nhat : ',max) ;
Writeln('chi so ptu lon nhat : ',csmax) ;
Readln ;
End .
Vờ duỷ 2 : Sừp xóỳp daợy sọỳ nguyón
theo bũng thuỏỷt toaùn traùo õọứi .
- Input : Sọỳ nguyón dổồng N vaỡ daợy
sọỳ A1, A2, ..., AN
- Output : Daợy A õổồỹc sừp xóỳp
theo thổù tổỷ khọng giaớm .
- Yẽ tổồớng :
+ ọứi õóứ õổa sọỳ lồùn nhỏỳt vóử
giaới baỡi toaùn (thuỏỷt toaùn õaợ
hoỹc ồớ lồùp 10) .
GV: soaỷn sụn chổồng trỗnh vaỡ
cho hoỹc sinh quan saùt chổồng
trỗnh .
Nóỳu coù nhióửu thồỡi gian, giaùo
vión seợ tióỳn haỡnh soaỷn chổồng
trỗnh tổỡ õỏửu õóứ hoỹc sinh coù
thóứ dóự daỡng nhỏỷn ra caùc thao
taùc cỏửn phaới thổỷc hióỷn khi
vióỳt chổồng trỗnh .

GV: ổa ra vờ duỷ, nhừc laỷi yù
tổồớng cuớa thuỏỷt toaùn .
HS: Xỏy dổỷng thuỏỷt toaùn õóứ
NguyóựnQuangQuyỡnhưT:0905139111ưEmail: Trang - 68 -
Chổồng4:Kióứudổợlióỷucoùcỏỳutruùc TrổồỡngTHPTTrióỷuPhong
vở trờ cuọỳi cuỡng .
+ Laỡm tổồng tổỷ õọỳi vồùi nhổợng
sọỳ coỡn laỷi .
Chổồng trỗnh nhổ sau :
Program sapxep ;
Uses crt ;
var A : Array[1..250] of integer ;
n,i,j,tg : Integer ;
Begin
clrscr ;
Write('Nhap so phan tu mang n = ') ;
Readln(n) ;
For i := 1 to n do
Begin
Write('A[',i,'] = ') ;
readln(A[i]) ;
End ;
For j := n downto 2 do
Begin
For i := 1 to j-1 do
If A[i] > A[i+1] then
Begin
tg := A[i] ;
A[i] := A[i+1] ;
A[i+1] := tg ;

End ;
End ;
Writeln('day sau khi sap xep : ') ;
For i := 1 to n do
write(a[i]:8) ;
readln ;
End .
Writeln('chi so ptu lon nhat : ',csmax);
readln ;
End.
giaới baỡi toaùn (thuỏỷt toaùn õaợ
hoỹc ồớ lồùp 10) .
GV: soaỷn sụn chổồng trỗnh vaỡ
cho hoỹc sinh quan saùt chổồng
trỗnh .
Nóỳu coù thồỡi gian, giaùo vión seợ
tióỳn haỡnh soaỷn chổồng trỗnh
tổỡ õỏửu õóứ hoỹc sinh coù thóứ
dóự daỡng nhỏỷn ra vióỷc chuyóứn
õọứi ngọn ngổợ tổỡ ngọn ngổợ
thuỏỷt toaùn sang ngọn ngổợ lỏỷp
trỗnh .
4. Cuớng cọỳ
- Nừm laỷi caùch nhỏỷp xuỏỳt caùc phỏửn tổớ cuớa maớng.
- Caùc baỡi toaùn cồ baớn lión quan õóỳn maớng.
NguyóựnQuangQuyỡnhưT:0905139111ưEmail: Trang - 69 -
Chổồng4:Kióứudổợlióỷucoùcỏỳutruùc TrổồỡngTHPTTrióỷuPhong
5. Dỷn doỡ
- Xem trổồùc caùc vờ duỷ coỡn laỷi.
NguyóựnQuangQuyỡnhưT:0905139111ưEmail: Trang - 70 -

Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong
Tiãút thỉï: 23 Ngy soản: / /2008
BI 11: KIÃØU MNG(T3)
A. MỦÛC TIÃU
1.Kiãún thỉïc:
- Hiãøu khại niãûm mng mäüt chiãưu v hai chiãưu.
- Hiãøu cạch khai bạo v truy cáûp âãún cạc pháưn tỉí ca mng.
2.Kỵ nàng:
- Ci âàût âỉåüc thût toạn ca mäüt säú bi toạn âån gin våïi kiãøu
dỉỵ liãûu mng mäüt chiãưu.
- Thỉûc hiãûn âỉåüc khai bạo mng, truy cáûp, tênh toạn cạc pháưn
tỉí ca mng.
3.Thại âäü:
- Xáy dỉûng lng ham thêch láûp trçnh, nhàòm gii quút cạc bi toạn
bàòng mạy tênh.
- thỉïc chn v xáy dỉûng kiãøu dỉỵ liãûu khi thãø hiãûn nhỉỵng
âäúi tỉåüng trong thỉûc tãú, thỉïc rn luûn ké nàng sỉí dủng cạc thao
tạc trãn mäùi kiãøu dỉỵ liãûu cọ cáúu trụ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, mạy chiãúu, mạy tênh,
phäng chiãúu hồûc bng .
• 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

11B
7
Vàõng
(P/K)
2.Kiãøm tra bi c:
? Hy viãút chỉång trçnh nháûp vo mäüt mng gäưm N pháưn tỉí.
Räưi tçm pháưn tỉí cọ giạ trë nh nháút ca mng.
3.Näüi dung bi måïi:
a.Âàût váún âãư: Cạc kiãøu dỉỵ liãûu chøn khäng â âãø biãøu diãùn
dỉỵ liãûu ca cạc bi toạn trong thỉûc tãú. Cạc ngän ngỉỵ láûp trçnh cọ
cạc quy tàõc, cạch thỉïc cho phẹp ngỉåìi láûp trçnh xáy dỉûng nhỉỵng
kiãøu dỉỵ liãûu phỉïc tảp tỉì nhỉỵng kiãøu â cọ.
b.Triãøn khai bi dảy
Näüi dung kiãún thỉïc Hoảt âäüng tháưy v tr
b. Mäüt säú vê dủ :
Vê dủ 3: Cho dy A gäưm N säú
ngun khạc nhau: a
1
, a
2
,...,a
N
v mäüt
GV : Âỉa ra vê dủ .
GV: Säú ngun k gi l khoạ tçm
kiãúm.
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 71 -
Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong
säú ngun k. Cáưn biãút cọ hay khäng
chè säú i (1

ni ≤≤
) m a
i
= k. Nãúu cọ
hy cho biãút chè säú âọ.
- Xạc âënh bi toạn:
+ Input: Dy A gäưm N säú ngun
khạc nhau a
1
, a
2
,...,a
N
, säú ngun k.
+ Output: Chè säú i m a
i
=k hồûc
thäng bạo khäng cọ säú hảng no ca
A cọ giạ trë bàòng k.
- tỉåíng:
Xy ra mäüt trong 3 trỉåìng håüp sau:
- Nãúu a
Giua
= k thç Giua l chè säú
cáưn tçm. Viãûc tçm kiãúm kãút thục.
- Nãúu a
Giua
> k thç do dy A l dy
â âỉåüc SX nãn viãûc tçm kiãúm tiãúp
theo chè xẹt trãn dy a

1
, a
2
,...,a
Giua-1
- Nãúu a
Giua
<k thç thỉûc hiãûn tçm
kiãúm trãn dy a
Giua+1
, a
Giua+2
,...,a
Giua+N.
Quạ trçnh s âỉåüc làûp lải mäüt säú
láưn cho âãún khi hồûc â tçm tháúy
khọa k trong dy A hồûc phảm vi tçm
kiãúm bàòng räùng.
- Thût toạn:
Cạch liãût kã
B1: Nháûp N, cạc säú hảng a
1
, a
2
,...,a
N
v khoạ k;
B2: Dau:←1; Cuoi←N;
B3: Giua ←







+
2
1N
;
B4: Nãúu a
Giua
= k thç thäng bạo chè säú
Giua, räưi kãút thục;
B5: Nãúu a
Giua
> k thç âàût Cuoi = Giua-1,
sang B7;
B6: Dau:=Giua+1;
B7: Nãúu Dau>Cuoi thç thäng bạo dy A
khäng cọ säú hảng no cọ giạ trë
bàòng k räưi kãút thục;
B8: Quay lải bỉåïc 3.
Chỉång trçnh nhỉ sau :
Program sapxep ;
Uses crt ;
var A : Array[1..250] of integer ;
n,i,k : Integer ;
dau, cuoi, giua : Integer ;
Vê dủ:
Dy A: 5, 7, 1, 4, 2, 9, 8, 11, 25, 51.

Khoạ k =2: Dy cọ säú hảng a
5
=
k. Chè säú cáưn tçm l i=5.
Khoạ k=6 thç nhỉ thãú no?
GV: Hy tçm Input, Output ca bi
toạn.
GV: Hy nãu tỉåíng gii
thût?
Sỉí dủng tênh cháút dy A l
mäüt dy tàng, ta tçm cạch thu
hẻp nhanh phảm vi tçm kiãúm
sau mäùi láưn so sạnh khọa våïi
säú hảng âỉåüc chn. Âãø
thỉûc hiãûn âiãưu âọ, ta chn
säú hảng a
Giỉỵa
åí giỉỵa dy âãø
so sạnh våïi k, trong âọ Giua =






+
2
1N
.
GV: Chè säú âáưu v chè säú

cúi thay âäøi tu thüc vo
âáu?
HS: a
Giua
>k hồûc a
Giua
<k
HS: Chảy gii thût våïi dy A,
khoạ k cho trỉåïc.
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 72 -
Chổồng4:Kióứudổợlióỷucoùcỏỳutruùc TrổồỡngTHPTTrióỷuPhong
TK : boolean ;
Begin
clrscr ;
Write('Nhap so ptu mang n = ') ;
Readln(n) ;
For i := 1 to n do
Begin
Write('A[',i,'] = ') ;
readln(A[i]) ;
End ;
Write('nhap so can tim k : ') ;
Readln(k);
dau := 1 ; cuoi := n ;
TK := false ;
while (dau <= cuoi) and Not TK Do
Begin
giua := (dau+cuoi) div 2 ;
If A[giua] = k then TK := true
Else

If a[giua]>k then cuoi := giua - 1
Else dau := giua + 1 ;
End ;
If TK then write('Chi so la : ',giua)
else write(' Khong tim thay ');
readln ;
End .
GV: Yóu cỏửu hoỹc sinh lỏỳy
giỏỳy nhaùp ra vióỳt chổồng trỗnh.
Sau õoù cho hoỹc lón baớng laỡm.
HS: Vióỳt chổồng trỗnh vaỡo giỏỳy
nhaùp.
GV: Goỹi 3 hoỹc sinh lón baớng
vióỳt chổồng trỗnh.
HS: Quan saùt vaỡ cho nhỏỷn xeùt
baỡi laỡm cuớa caùc baỷn.
GV: Chióỳu chổồng trỗnh õaợ
soaỷn sụn õóứ cho hoỹc sinh
õọỳi chióỳu.
GV: Giaới thờch cho hoỹc sinh chi
tióỳt.
GV: Lỏỷp trỗnh sụn trón ngọn
ngổợ lỏỷp trỗnh Pascal.
GV: Chaỷy chổồng trỗnh õóứ cho
hoỹc sinh quan saùt.
HS: Quan saùt giaùo vión test mọỹt
sọỳ bọỹ dổợ lióỷu.
HS: Ghi chổồng trỗnh vaỡo vồợ.
4. Cuớng cọỳ
- Caùc baỡi toaùn cồ baớn lión quan õóỳn maớng.

5. Dỷn doỡ
- Xem trổồùc phỏửn coỡn laỷi "Maớng 2 chióửu".
NguyóựnQuangQuyỡnhưT:0905139111ưEmail: Trang - 73 -
Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong
Tiãút thỉï: 24 Ngy soản: / /2008
BI 11: KIÃØU MNG(T4)
A. MỦÛC TIÃU
1.Kiãún thỉïc:
- Hiãøu khại niãûm mng mäüt chiãưu v hai chiãưu.
- Hiãøu cạch khai bạo v truy cáûp âãún cạc pháưn tỉí ca mng.
2.Kỵ nàng:
- Ci âàût âỉåüc thût toạn ca mäüt säú bi toạn âån gin våïi kiãøu
dỉỵ liãûu mng mäüt chiãưu.
- Thỉûc hiãûn âỉåüc khai bạo mng, truy cáûp, tênh toạn cạc pháưn
tỉí ca mng.
3.Thại âäü:
- Xáy dỉûng lng ham thêch láûp trçnh, nhàòm gii quút cạc bi toạn
bàòng mạy tênh.
- thỉïc chn v xáy dỉûng kiãøu dỉỵ liãûu khi thãø hiãûn nhỉỵng
âäúi tỉåüng trong thỉûc tãú, thỉïc rn luûn ké nàng sỉí dủng cạc thao
tạc trãn mäùi kiãøu dỉỵ liãûu cọ cáúu trụ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, mạy chiãúu, mạy tênh,
phäng chiãúu hồûc bng .
• 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
11B
7
Vàõng
(P/K)
2.Kiãøm tra bi c:
? Hy viãút chỉång trçnh nháûp vo mäüt mng säú ngun gäưm N
pháưn tỉí. Räưi tênh täøng cạc pháưn tỉí ca mng.
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
GV: Cho vê dủ mäüt bng säú,
mún láúy mäüt pháưn tỉí no
âọ trong bng säú thç ta phi
dỉûa vo chè säú dng, chè säú
cäüt. vd: 10 cọ chè säú dng l 1,
chè säú cäüt l 1.
GV: Mún biãøu diãùn âỉåüc
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 74 -
Chổồng4:Kióứudổợlióỷucoùcỏỳutruùc TrổồỡngTHPTTrióỷuPhong
II. Kióứu maớng hai chióửu:
1. Khai baùo :
a. Khai baùo giaùn tióỳp:
TYPE <Tón kióứu maớng> =
ARRAY[kióứu chố sọỳ haỡng, kióứu chố
sọỳ cọỹt] OF <kióứu phỏửn tổớ>;
Var <tón bióỳn maớng> : <tón kióứu

maớng>;
Trong õoù:
- Kióứu chố sọỳ doỡng, kióứu chố sọỳ
cọỹt: laỡ kióứu dổợ lióỷu mióửn con maỡ
thọng thổồỡng laỡ bióứu thổù nguyón xaùc
õởnh chố sọỳ õỏửu doỡng vaỡ chố sọỳ
cuọỳi doỡng; chố sọỳ õỏửu cọỹt vaỡ chố
sọỳ cuọỳi cọỹt.
- Kióứu phỏửn tổớ: Laỡ kióứu phỏửn
tổớ cuớa maớng.
Vờ duỷ: Khai baùo cho maớng A coù n
doỡng, m cọỹt, caùc phỏn tổớ coù kióứu
nguyón.
TYPE mang2=ARRAY[1..n,1..m] OF
Integer;
Var A: mang2;
b. Khai baùo trổỷc tióỳp:
VAR <tón bióỳn>: ARRAY[kióứu chổợ
sọỳ haỡng, kióứu chố sọỳ cọỹt] OF <kióứu
phỏửn tổ>;
Vờ duỷ:
Var A: ARRAY[1..n,1..m] OF Integer;
2. Tham chióỳu õóỳn caùc phỏửn tổớ
cuớa maớng:
Tón bióỳn maớng[chố sọỳ doỡng, chố
sọỳ cọỹt]
a. Nhỏỷp giaù trở cho maớng 2 chióửu:
Giaớ sổớ maớng A õaợ õổồỹc khai baùo
nhổ ồớ trón haợy nhỏỷp giaù trở cho
moỹi phỏửn tổớ cuớa maớng.

FOR i:=1 TO n DO
FOR j:=1 TO m DO
Begin
Write(nhap A[, i, ,, j,]=);
Readln(A[i,j]);
End;
baớng sọỳ õoù, thao taùc trón baớng
sọỳ, ta duỡng kióứu dổợ lióỷu maớng
2 chióửu.
GV: Tổồng tổỷ nhổ khai baùo
maớng 1 chióửu, maớng 2 chióửu
cuợng õổồỹc khai baùo tổồng tổỷ
nhổ vỏỷy.
- Chố sọỳ cuớa maớng õổồỹc
bióứu dióựn theo chố sọỳ doỡng
vaỡ chố sọỳ cọỹt. Caùc chố sọỳ
cuớa maớng phaới laỡ caùc sọỳ
nguyón.
- TP khọng cho pheùp truy xuỏỳt
dổợ lióỷu trổỷc tióỳp trón bióỳn
maớng maỡ chố coù thóứ truy xuỏỳt
õóỳn caùc phỏửn tổớ cuớa maớng
thọng qua tón bióỳn maớng vaỡ chố
sọỳ cuớa noù.
GV : Khai baùo caùch naỡo tióỷn
lồỹi hồn (tổồng tổỷ maớng 1
chióửu) ?
HS : Thổồỡng thỗ hoỹc sinh vỏựn
choỹn caùch 1.
GV : Tuỡy theo trổồỡng hồỹp cuỷ

thóứ nhổng thổồỡng thỗ caùch 1
hay õổồỹc duỡng hồn.
GV : Khi khai baùo maớng 2 chióửu
cỏửn chuù yù õióửu gỗ?
HS : Tỗm cỏu traớ lồỡi, GV gồỹi yù
õóứ caùc em chố ra õổồỹc chố
sọỳ cuớa maớng, sọỳ doỡng, sọỳ
cọỹt vaỡ kióứu cuớa mọựi phỏửn tổớ
trong maớng.
NguyóựnQuangQuyỡnhưT:0905139111ưEmail: Trang - 75 -
Chổồng4:Kióứudổợlióỷucoùcỏỳutruùc TrổồỡngTHPTTrióỷuPhong
b. Xuỏỳt giaù trở cuớa maớng ra maỡn
hỗnh:
FOR i:=1 TO n DO
FOR j:=1 TO m DO
Write(A[i,j]);
3. Vờ duỷ aùp duỷng:
Vióỳt chổồng trỗnh nhỏỷp vaỡo 1
maớng hai chióửu gọửm 5 doỡng, 3 cọỹt,
caùc phỏửn tổớ laỡ sọỳ nguyón rọửi in ra
maỡn hỗnh phỏửn tổớ dổồng cuớa maớng.
Program Mang;
Var A : array [1..5, 1..3] of integer;
i,j : Integer;
Begin
FOR i:=1 TO 5 DO
FOR j:=1 TO 3 DO
Begin
Write(Nhap vao cac phan tu thu, i);
Readln(A[i,j]);

End;
FOR i:=1 TO 5 DO
FOR j:=1 TO 3 DO
Begin
IF a[i,j] >0 THEN
Write( A[i,j], );
End;
Readln
End.
GV: Nóu caùc bổồùc giaới baỡi
toaùn:
HS: Nóu caùch giaới.
B1 : Nhỏỷp maớng
B2 :Kióứm tra trong maớng
phỏửn tổớ naỡo dổồng thỗ ta in ra
maỡn hỗnh.
GV: Khai baùo maớng ?
HS: Lón baớng khai baùo.

GV: óứ nhỏỷp maớng ta phaới
dổỷa vaỡo chố sọỳ cuớa tổỡng
phỏửn tổớ, vỏỷy ta cỏửn coù hai
bióỳn õóứ lổu chố sọỳ haỡng, chố
sọỳ cọỹt cuớa maớng.
GV: Quaù trỗnh nhỏỷp ta õi tổỡng
haỡng, taỷi mọựi haỡng ta seợ lỏửn
lổồỹt nhỏỷp taỷi caùc cọỹt. Vỏỷy
quaù trỗnh nhỏỷp õổồỹc lỷp laỷi
theo tổỡ haỡng rọửi theo tổỡng
cọỹt, ta coù thóứ duỡng cỏu lóỷnh

gỗ õóứ nhỏỷp maớng ?
GV: In ra maỡn hỗnh : Ta cuợng
lỏửn lổồỹt õi hóỳt caùc haỡng, caùc
cọỹt tỗm phỏửn tổớ dổồng vaỡ in
ra maỡn hỗnh.
4. Cuớng cọỳ
- Maớng hai chióửu, caùc caùch khai baùo maớng hai chióửu.
- Nhỏỷp vaỡ xuỏỳt caùc phỏửn tổớ maớng 2 chióửu.
5. Dỷn doỡ
- Xem trổồùc "Baỡi tỏỷp vaỡ thổỷc haỡnh 3".
NguyóựnQuangQuyỡnhưT:0905139111ưEmail: Trang - 76 -
Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong
Tiãút thỉï: 25-26 Ngy soản: / /2008
BI THỈÛC HNH SÄÚ 3
A. MỦÛC TIÃU
1.Kiãún thỉïc:
- Cng cäú cho hc sinh nhỉỵng hiãøu biãút vãư kiãøu dỉỵ liãûu mng.
2.Kỵ nàng:
- Cung cáúp cho hc sinh 3 thût toạn cå bn v âån gin thỉåìng
gàûp våïi dỉỵ liãûu kiãøu mng.
- Gọp pháưn hçnh thnh v rn luûn tỉ duy láûp trçnh, tạc phong
ca ngỉåìi láûp trçnh.
- Náng cao ké nàng sỉí dủng mäüt säú cáu lãûnh v mäüt säú kiãøu dỉỵ
liãûu thäng qua viãûc tçm hiãøu, chảy thỉí cạc chỉång trçnh cọ sàơn.
- Biãút gii mäüt säú bi toạn tênh toạn, tçm kiãúm âån gin trãn mạy
tênh.
- Täø chỉïc nhỉỵng hoảt âäüng trong phng mạy âãø hc sinh cọ
âỉåüc ké nàng cå bn trong lm viãûc våïi kiãøu mng (mäüt chiãưu) trong
láûp trçnh.
3.Thại âäü:

- Cọ thại âäü hc táûp nghiãm tục, u thêch män hc.
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, mạy chiãúu, mạy tênh,
phäng chiãúu hồûc bng .
• 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
11B
7
Vàõng
(P/K)
2.Kiãøm tra bi c:
3.Näüi dung bi måïi:
a.Âàût váún âãư:
b.Triãøn khai bi dảy
Tiãút : 25
Näüi dung kiãún thỉïc Hoảt âäüng tháưy v tr
Bi 1: Tảo mng A gäưm n (n<=100)
säú ngun, mäùi säú cọ trë tuût âäúi
khäng vỉåüt quạ 300. Tênh täøng cạc
pháưn tỉí ca mng l bäúi säú ca
mäüt säú ngun dỉång k cho trỉåïc.
HS: phi hiãøu âỉåüc chỉång
trçnh â viãút sàơn åí cáu a) v

tháúy âỉåüc kãút qu chảy
chỉång trçnh ny, trãn cå såí âọ
tçm ra cạch gii quút váún âãư
Nguùn Quang Qunh ­ ÂT: 0905139111 ­ Email:   Trang - 77 -