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: quynhvista@gmail.com 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: quynhvista@gmail.com 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:quynhvista@gmail.com 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: quynhvista@gmail.com 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:quynhvista@gmail.com 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:quynhvista@gmail.com 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:quynhvista@gmail.com 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: quynhvista@gmail.com 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: quynhvista@gmail.com 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:quynhvista@gmail.com 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:... Nguùn Quang Qunh ÂT: 0905139111 Email: quynhvista@gmail.com Trang - 78 - Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong write(‘ chi so:’,j,’ Gia tri:’,a[j] :4) ; readln end b) Chènh sỉía chỉång trçnh trãn âãø âỉa ra chè säú cạc pháưn tỉí cọ cng Nãúu cn thåìi gian thç HS giạ trë låïn nháút hon thnh pháưn b) dỉåïi sỉû hỉåïng dáùn ca GV 4 Cng cäú - Nàõm vỉỵng cạc thao tạc xỉí l trãn mng - Nàõm cạc thût... m 4 Cng cäú Nguùn Quang Qunh ÂT: 0905139111 Email: quynhvista@gmail.com Trang - 82 - Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong - Cạc khại niãûm vãư xáu - Cụ phạp khai bạo xáu - Cạc phẹp toạn trãn xáu - Cạc th v hm chøn 5 Dàûn d - Vãư nh hc bi c v xem trỉåïc pháưn "3 Mäüt säú vê dủ" Nguùn Quang Qunh ÂT: 0905139111 Email: quynhvista@gmail.com Trang - 83 - Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục... mn hçnh xáu âọ theo thỉï tỉû ngỉåüc lải ca cạc k tỉû trong xáu Nguùn Quang Qunh ÂT: 0905139111 Email: quynhvista@gmail.com Trang - 85 - Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong Write(a[i]) ; Readln ; End ∗ Vê dủ 4: Program vd4 ; Uses crt ; Var i,k : Byte ; a,b : String ; Begin Clrscr ; Write('Nhap xau : ') ; Readln(a) ; k := length(a) ; b :='' ; For i := 1 to k do if a[i]... then s2 := s2 + s1[i] ; Write(s2); Readln ; Vê dủ 4 : Nháûp 1 xáu, viãút ra mn hçnh xáu âọ nhỉng â âỉåüc b táút c cạc k tỉû l dáúu cạch Vê dủ 5 : Nháûp 1 xáu, viãút ra mn hçnh xáu gäưm cạc k tỉû säú ca xáu âọ End Nguùn Quang Qunh ÂT: 0905139111 Email: quynhvista@gmail.com Trang - 86 - Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong 4 Cng cäú - Cạc thao tạc xỉí lê xáu - Cạc thût... xỉí lê xáu - Cạc thût toạn cå bn xỉí lê xáu 5 Dàûn d - Vãư nh hc bi c v xem trỉåïc "Bi thỉûc hnh säú 4" Nguùn Quang Qunh ÂT: 0905139111 Email: quynhvista@gmail.com Trang - 87 - Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong Tiãút thỉï: 29-30 Ngy soản: / /2008 BI THỈÛC HNH SÄÚ 4 A MỦÛC TIÃU 1.Kiãún thỉïc: - Cng cäú cho hc sinh nhỉỵng kiãún thỉïc cå bn â cọ khi láûp trçnh våïi... lãûnh ny mạy chè phi thỉûc GV: Nhåì viãûc phán têch nhỉ hiãûn n-1 phẹp cäüng, trong khi våïi trãn ta tiãút kiãûm âỉåüc mäüt âoản chỉång trçnh trong SGK mạy lỉåüng tênh toạn âạng kãø phi thỉûc hiãûn n(n+1)/2 phẹp cäüng 4 Cng cäú 5 Dàûn d - Xem trỉåïc "Bi 13: Kiãøu Bn Ghi" Nguùn Quang Qunh ÂT: 0905139111 Email: quynhvista@gmail.com Trang - 89 - Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong... nàm sinh(Ngaysinh), Giåïi tênh (NamNu), v âiãøm thi cạc män ca mäùi hc sinh (Toan, Ly, Hoa, Van, Su, Dia ,Tin) Hy xạc âënh kiãøu dỉỵ liãûu cho cạc trỉåìng trãn (Mäùi näüi dung trãn l mäüt trỉåìng ca bn ghi) GV : Khi cọ nhu cáưu thay âäøi thäng tin trong tỉìng trỉåìng, lm thãú no âãø truy cáûp thäng tin vo tỉìng trỉåìng ca bn ghi? 2 Gạn giạ trë Cọ 2 cạch âãø gạn giạ trë cho bn ghi - Dng lãûnh gạn trỉûc... ny? HS: suy nghé v âỉa ra phỉång hỉåïng gii quút váún âãư ny 4 Cng cäú - Nàõm vỉỵng cạc thao tạc trãn xáu - Nàõm cạc thût toạn cå bn trãn xáu 5 Dàûn d - Vãư nh lm bi táûp SGK - Tr.79 Nguùn Quang Qunh ÂT: 0905139111 Email: quynhvista@gmail.com Trang - 95 - Chỉång 4: Kiãøu dỉỵ liãûu cọ cáúu trục Trỉåìng THPT Triãûu Phong Tiãút thỉï: 34 soản: / /2008 Ngy BI TÁÛP A MỦÛC TIÃU 1.Kiãún thỉïc: - Cng cäú... âãø cọ âỉåüc chỉång trçnh âỉa ra säú cạc säú dỉång v säú cạc säú ám trong mng posi, neg : integer; posi:= 0; neg:= 0; if A[i] > 0 then posi:= posi + 1 else if A[i] < 0 then neg:=neg+1; writeln(posi :4, neg :4) ; Trỉåìng THPT Triãûu Phong âàût ra åí cáu b GV: cáưn cho HS tháúy âỉåüc âiãøm khạc nhau cå bn ca cạc chỉång trçnh åí cáu a v cáu b Th tủc randomize khåíi tảo bäü láúy säú ngáùu nhiãn trỉåïc khi dng . NguyóựnQuangQuyỡnhưT:090513 9111 ưEmail:quynhvista@gmail.com 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: . 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