Giáo Án Tin Học 11

GIO N TIN HC 11 NM HC 2011-2012 Ngy son: 25/08/2010 CHNG I: MT S KHI NIM V LP TRèNH Ngy dy: 26 /08/2010 V NGễN NG LP TRèNH TPP: 01 Đ1 KHI NIM LP TRèNH V NGễN NG LP TRèNH Tun: 01 I MC TIấU: Kin thc: Hiu c kh nng ca ngụn ng lp trỡnh bc cao, phõn bit c vi ngụn ng mỏy v hp ng Hiu ý ngha v nhim v ca chng trỡnh dch K nng: Phõn bit c thụng dch v biờn dch Thỏi : H/s cú thỏi ỳng n, tớnh cn thn hc ngụn ng lp trỡnh II CHUN B: Giỏo viờn: Chng trỡnh Pascal Hc sinh: SGK, cõu hi liờn quan n bi III PHNG PHP: Phỏt vn, din gii IV HOT NG DY HC: n nh t chc: Kim tra s s lp Kim tra bi c: Ging bi mi: Hot ng ca giỏo viờn Hot ng ca hc sinh Ni dung ghi bng Hot ng 1: ễn li kin thc v ngụn ng lp trỡnh, thut toỏn Hot ng 2: Ging bi mi: din gii mt thut toỏn HS: Ngụn ng ting Đ KHI NIM LP ó cú cho mt ngi Capuchia TRèNH V NGễN NG Campuchia hiu ta s dựng LP TRèNH ngụn ng no din t ? Lp trỡnh l gỡ ??? din gii thut toỏn ú HS: dựng ngụn ng lp cho mỏy tớnh hiu ta phi trỡnh dựng ngụn ng no ? Lp trỡnh l vic s dng cu GV: Hot ng din t mt HS: Xem sỏch giỏo khoa trỳc d liu v cỏc lnh ca tht toỏn thụng qua mt ngụn v phỏt biu khỏi nim ngụn ng lp trỡnh c th ng lp trỡnh c gi l lp mụ t d liu v din t cỏc trỡnh thao tỏc ca thut toỏn HS: Ta s c mt GV: Vy kt qu ca hot chng trỡnh ng lp trỡnh l gỡ ? HS: Ngụn ng mỏy, hp GV: Hóy k tờn cỏc loi ng v ngụn ng bc cao ngụn ng lp trỡnh m em Ngụn ng lp trỡnh l gỡ ? GIO N TIN HC 11 NM HC 2011-2012 bit ? HS: xem sỏch giỏo khoa Ngụn ng lp trỡnh l mt GV: Ngụn ng lp trỡnh l gỡ v tr li phn mm dựng din t ? thut toỏn thnh mt chng trỡnh giỳp cho mỏy tớnh hiu c thut toỏn ú Chng trỡnh dch ??? HS: S dng chng trỡnh Chng trỡnh dch l mt GV: Lm th no chuyn dch chng trỡnh c bit cú chc mt chng trỡnh c vit nng chuyn mt chng bng ngụn ng lp trỡnh bc trỡnh c vit bng ngụn ng cao thnh chng trỡnh chy lp trỡnh bc cao thnh c trờn mỏy tớnh ? chng trỡnh chy c trờn mỏy tớnh CT ngun CT dch CT GV: Ti khụng lp trỡnh HS: ngụn ng mỏy khú ớch trờn ngụn ng mỏy mụ t (0-1) phi mt cụng chuyn i ? GV: Nờu hai vớ d Thụng dch ??? sỏch giỏo khoa gii thiu HS: nghe, quan sỏt v ghi Thc hin bng cỏch lp li cỏc hai loi chng trỡnh dch l bi bc sau: thụng dch v biờn dch Kim tra tớnh ỳng n ca cõu lnh tip theo chng GV: gii thiu trng trỡnh ngun; mỡnh cho mt on khỏch du Chuyn i cõu lnh ú lch n t Campuchia ta s thnh ngụn ng mỏy; cú cỏch thc hin: Thc hin cõu lnh va c C1: Cn mt ngi bit ting chuyn i Campuchia dch tng cõu (C mi ln gp cõu lnh sai nú núi ca ta sang ting phi quay li dch t cõu lnh Campuchia cho on khỏch u tiờn) C2: Vit ton b ni dung Biờn dch ??? giy v nh ngi phiờn dch c thc hin qua bc: dch ton b ni dung ú Duyt ton b chng trỡnh sang ting Campuchia v ngun phỏt hin li, kim tra c cho on khỏch tớnh ỳng n ca cỏc cõu lnh; Dch ton b chng trỡnh ngun thnh mt chng trỡnh ớch cú th thc hin trờn mỏy v cú th lu tr li V CNG C Khỏi nim lp trỡnh, ngụn ng lp trỡnh, cỏc loi ngụn ng lp trỡnh Khỏi nim chng trỡnh dch GIO N TIN HC 11 NM HC 2011-2012 Cú hai loi chng trỡnh dch l thụng dch v biờn dch VI RT KINH NGHIM GIO N TIN HC 11 Ngy son:06/ 09/2010 Ngy dy: 09/ 09/2010 TPP: 02 Tun: 02 NM HC 2011-2012 Đ2 CC THNH PHN CA NGễN NG LP TRèNH I MC TIấU: Kin thc: Bit c mt s khỏi nim nh: tờn, tờn chun, tờn dnh riờng, tờn ngi dựng t, hng bin chỳ thớch K nng: Phõn bit c tờn chun vi tờn dnh riờng v tờn t t Nh cỏc qui nh v tờn hng bin Bit t tờn ỳng, nhn bit c tờn sai qui nh S dng ỳng chỳ thớch Thỏi : - Học sinh có thái độ học tập tích cực II CHUN B: Giỏo viờn: Mt chng trỡnh Pascal Hc sinh: SGK, cõu hi liờn quan n bi III PHNG PHP: Phỏt vn, din gii IV HOT NG DY HC: n nh t chc: Kim tra s s lp Kim tra bi c: Hot ng ca giỏo viờn Hot ng ca hc sinh H1: Hóy phõn bit chtrỡnh thụng dch v biờn Hs1: trỡnh by trờn bng dch? H2: NNLT cú nhng thnh phn no? Li cỳ Hs2: tr li trc lp phỏp v li ng ngha c phỏt hin bng Hs3: nhn xột cõu tr li ca Hs1 gỡ? Nhn xột, ỏnh giỏ cho im Hs Ging bi mi: Hot ng 1: (18 phỳt) Tỡm hiu khỏi nim tờn thnh phn ca ngụn ng lp trỡnh Hot ng ca giỏo viờn Hot ng ca hc sinh Ni dung ghi bng V: Mi i tng chtrỡnh Khỏi nim Tờn u phi c t tờn (Sgk) N/cu Sgk nờu qui tc t tờn N/cu sgk v tr li: Turbo Pascal? + Gm ch cỏi, ch s, du gch di + Khụng quỏ 127 kớ t, khụng bt u bng kớ t s Chn cỏc tờn ỳng bng Quan sỏt v tr li Vớ d: sau: A A _24 A_BC A_BC A BC _24 5ad A5d A5d GIO N TIN HC 11 C#BC Khng nh li cỏc tờn ỳng Y/cu Hs n/cu Sgk bit cỏc khỏi nim v tờn dnh riờng, tờn chun, tờn t t Chia lp thnh nhúm, mi nhúm tỡm hiu v trỡnh by v mt loi tờn v cho vớ d Treo tranh cha s tờn NNLT Pascal ó c chun b sn: Type Const Integer Dem Function Byte Inc Mang string HS xỏc nh tờn theo tng loi tờn? NM HC 2011-2012 N/cu sgk v tr li + Tờn dnh riờng + Tờn chun Tho lun theo nhúm v + Tờn ngi dựng t c ngi trỡnh by + Tờn dnh riờng + Tờn chun + Tờn ngi dựng t Quan sỏt v ghi lờn bng + T khúa: Type, Const, function + Tờn chun: Integer, byte, string, inc + Tờn t t: dem, mang Treo bng ca nhúm cho Quan sỏt kt qu cnhúm nhúm khỏc nhn xột, b sung khỏc, nhn xột v b sung Tng kt ny Hot ng 3: (15 phỳt) Tỡm hiu hng, bin, chỳ thớch Hot ng ca giỏo viờn Hot ng ca hc sinh Y/cu Hs cho s vớ d v hng Suy ngh v tr li s, hng xõu, hng logic + Hng s: 55 73.05 + Hng xõu: 211 AB + Hng logic: False True Trỡnh by k/nim v cỏc loi hng Xem k/nim hng Sgk Ghi bng: Xỏc nh hng s v Quan sỏt v tr li hng xõu: + Hng s: 56; -3785; 56 -3785 485 1.5E+2 THPT 1.5E+2 45,7 + Hng xõu: 485 THPT H: hng kớ t nhỏy n v hng kớ t nhỏy kộp c biu din nh th no? Tl: nhỏy n: Y/cu Hs n/cu Sgk v cho bit Nhỏy kộp: k/nim Bin Cho vớ d mt s bin N/cu Sgk v tr li Vớ d: Ni dung ghi bng Hng v bin a Hng + Hng s + Hng xõu + Hng logic b Bin K/nim: (Sgk) Vớ d: Tong, dtoan, Y/cu Hs n/cu Sgk v cho bit chc nng ca chỳ thớch c Chỳ thớch chtrỡnh Cỏ nhõn n/cu Sgk vỏ Vớ d: GIO N TIN HC 11 NM HC 2011-2012 tr li {thu tuc nhap du lieu} Chỳ thớch c t gia Cho s vớ d khỏc v chỳ thớch cp du { } v (* *) dựng gii thớch H: Tờn bin v tờn hng thuc loi chtrỡnh rừ rng d hiu tờn no? Tl: Tờn ngi lp H: Cỏc lnh c vit cp trỡnh t { } cú c TP thc hin ko? Vỡ sao? Tl: Khụng, vỡ ú l dũng chỳ thớch V CNG C : Ni dung ó hc Thnh phn ca NNLT: bng ch cỏi, cỳ phỏp, ng ngha Khỏi nim: tờn, t khúa, tờn chun, tờn t t, bin, hng, Cõu hi, bi v nh Lm bi 3, 4, trang 13 Sgk Xem bi c thờm: Ngụn ng Pascal Xem trc bi: Cu trỳc chtrỡnh Sgk Xem ni dung ph lc B, trang 128 Sgk: Mt s tờn dnh riờng VI RT KINH NGHIM: GIO N TIN HC 11 Ngy son:18/09/2010 Ngy dy: 23/09/2010 TPP: 03 Tun: 03 NM HC 2011-2012 BI TP I MC TIấU Kin thc - Bit cú lp ngụn ng lp trỡnh v cỏc mc ca ngụn ng lp trỡnh: ngụn ng mỏy, hp ng v ngụn ng bc cao - Bit vai trũ ca chng trỡnh dch - Bit khỏi nim biờn dch v thụng dch - Bit cỏc thnh phn c bn ca ngụn ng lp trỡnh: bng ch cỏi, cỳ phỏp v ng ngha - Bit cỏc thnh phn c s ca Pascal: bng ch cỏi, tờn, tờn chun, tờn riờng (t khúa), hng v bin K nng: Bit vit hng v tờn ỳng mt ngụn ng lp trỡnh c th Thỏi : - Nhn thc c quỏ trỡnh phỏt trin ca ngụn ng lp trỡnh gn lin vi quỏ trỡnh phỏt trin ca tin hc nhm gii cỏc bi toỏn thc tin ngy cng phc - Ham mun hc mt ngụn ng lp trỡnh c th cú kh nng gii cỏc bi toỏn bng mỏy tớnh in t II CHUN B Giỏo viờn: chun b ni dung gii bi cui chng v mt s cõu hi trc nghim ca chng Hc sinh: ễn li kin thc ca chng, chun b bi cui chng Phỏt vn, din gii III PHNG PHP: Phỏt vn, din gii IV HOT NG DY HC n nh t chc: Kim tra s s lp Kim tra bi c (5 phỳt) Hot ng ca giỏo viờn Hot ng ca hc sinh Phõn bit gia Hng v Bin? Cho mt s HS1: tr li bin ỳng? õu l t khúa cỏc tờn sau õy? Hs2: tr li (Begin v Do) Integer Begin Do int chan tong - Nhn xột, ỏnh giỏ cho im Ging bi mi Hot ng 1: Hot ng ca giỏo viờn Hot ng ca hc Ni dung ghi bng sinh V: Trc gii bi - c yờu cu ca cõu Cõu 1:Ngụn ng bc cao SGK, cỏc em t ụn li hi v bi cui + gn vi ngụn ng t nhiờn hn, mt s kin thc m chỳng ta chng trang 13 SGK + khụng ph thuc vo phn cng ó hc cỏc bi trc da - Suy ngh a mỏy tớnh v mt chng trỡnh cú trờn yờu cu ca cõu hi trang phng ỏn tr li th thc hin trờn nhiu mỏy tớnh 13 SGK khỏc nhau; GIO N TIN HC 11 NM HC 2011-2012 - Suy ngh, tr li cõu + d hiu, d hiu chnh v d t cõu hi s 1: Ti hi nõng cp; ngi ta phi xõy dng cỏc + cho phộp lm vic vi nhiu ngụn ng lp trỡnh bc cao? kiu d liu v cỏch t chc d - Nhn xột, ỏnh giỏ v b liu a dng, thun tin cho mụ t sung hng dn cho hc sinh thuc toỏn tr li cõu hi s 1: Cõu 2: Trỡnh biờn dch: duyt, kim tra, t cõu hi 2: Biờn dch v phỏt hin li, xỏc nh chng thụng dch khỏc nh th trỡnh ngun cú dch c khụng? no? - Suy ngh, tr li cõu dch ton b chng trỡnh ngun hi thnh mt chng trỡnh ớch cú Phõn tớch cõu tr li ca hc th thc hin trờn mỏy v cú th sinh lu tr li s dng v sau cn thit Trỡnh thụng dch ln lt dch tng cõu lnh ngụn ng mỏy ri thc hin cõu lnh va dch c hoc bỏo li nu khụng dch c Hot ng 2: Hot ng ca giỏo viờn Hot ng ca hc Ni dung ghi bng sinh t cõu hi 3: Hóy cho bit Cõu 3: Tờn dnh riờng khụng cỏc im khỏc gia tờn c dựng khỏc vi ý ngha ó dnh riờng v tờn chun? Vit xỏc nh, tờn chun cú th dựng tờn ỳng quy tctrong vi ý ngha khỏc Pascal? Suy ngh, tr li, gii VD: - Gi hs tr li v cho vớ d thớch Tờn dnh riờng Pascal: - Phõn tớch cõu tr li ca hc program, uses, const, type, var, sinh begin, end Hi: Nờu li quy tc t tờn Tr li Tờn chun: Pascal abs, Pascal? integer - Gi hc sinh lờn bng cho vớ d v tờn ngi lp trỡnh Lờn bng t *Nhn xột, sa cha, gúp ý Chỳ ý, ghi nh Hot ng 3: Hot ng ca giỏo viờn Hot ng ca hc Ni dung ghi bng sinh t cõu hi 4: Hóy cho bit Tr li gii thớch tng Cõu 4: nhng biu din no di õy cõu mt khụng phi l biu din hng Pascal v ch rừ tng trng hp: GIO N TIN HC 11 - Nhn xột, gii thớch NM HC 2011-2012 150.0 22 6,23 43 A20 1.06E-15 4+6 C TRUE hng s hng s K hng xõu K hng s b/thc hng K hng xõu V CNG C: (5phỳt) Cõu hi, bi v nh Xem trc Chng gm cỏc bi: Cu trỳc chng trỡnh v Mt s kiu d liu chun Xem trc ni dung ph lc B phn 3: Mt s kiu d liu chun (trang 129 Sgk) Bi kim tra trc nghim cui chng: (15 phỳt) Cõu 1:Chng trỡnh vit bng hp ng khụng cú c im no cỏc c im sau: A Ngn gn hn so vi chng trỡnh c vit bng ngụn ng bc cao B Tc thc hin nhanh hn so vi chng trỡnh c vit bng ngụn ng bc cao C Din t gn vi ngụn ng t nhiờn D S dng trn cỏc kh nng ca mỏy tớnh Cõu 2: Chng trỡnh vit bng ngụn ng bc cao khụng cú c im no cỏc c im sau: A Khụng ph thuc vo loi mỏy, chng trỡnh cú th thc hin trờn nhiu loi mỏy B Ngn gn, d hiu, d hiu chnh v nõng cp C Kiu d liu c cỏch t chc d liu a dng, thun tin cho mụ t thut toỏn D Mỏy tớnh cú th hiu v thc hin trc tip chng trỡnh ny Cõu 3: Chng trỡnh dch khụng cú kh nng no cỏc kh nng sau? A Phỏt hin c li ng ngha C Phỏt hin c li cỳ phỏp B Thụng bỏo li cỳ phỏp D To c chng trỡnh dch Cõu 4: Nhn bit ỳng/sai Pascal? STT Tờn bin ỳng()/Sai(S) 1hoten S Hoten Ho ten S Ho_ten Ho-ten1 S Hoten1 Cõu 5: Ghộp mi cõu ct vi mt cõu thớch hp ct bng sau: Ct Ct (1) Biờn dch (A) l cỏc i lng cú giỏ tr khụng i quỏ trỡnh thc hin chng trỡnh (2) Thụng dch (B) dch v thc hin tng cõu lnh, nu cũn cõu lnh tip theo thỡ quỏ trỡnh ny cũn tip tc (3) Chng trỡnh vit trờn (C) l nhng i lng c t tờn, dựng lu tr giỏ GIO N TIN HC 11 ngụn ng lp trỡnh bc cao (4) Bin (5) Hng NM HC 2011-2012 tr v giỏ tr cú th c thay i quỏ trỡnh thc hin chng trỡnh (d) dch ton b chng trỡnh ngun thnh mt chng trỡnh ớch cú th thc hin trờn mỏy v cú th lu tr s dng li cn thit (E) phi c chuyn i thnh chng trỡnh trờn ngụn ng mỏy mi cú th thc hin c VI RT KINH NGHIM: 10 GIO N TIN HC 11 NM HC 2011-2012 Ngy son: 20/04/2012 BI TP V THC HNH 6(T2) Ngy dy: 24/04/2012 TPP: 48 Tun: 34 I Mc tiờu: Kin thc: - Luyn cỏc thao tỏc x lý xõu, k nng to hiu ng, ch chy trờn mn hỡnh - Phõn bit c loi chng trỡnh l hm v th tc K nng: Nõng cao k nng vit s dng chng trỡnh Thỏi : Nghiờm tỳc gi thc hnh II Chun b: GV: - Mỏy tớnh,phn mm Turbo pascal HS: Chun b kin thc III Phng phỏp: Thuyt trỡnh, ỏp, tho lun nhúm IV Tin trỡnh bi dy: n nh t chc: Kim tra bi c: GV kim tra thc hnh Bi mi Hot ng ca giỏo viờn Hot ng ca hc sinh Ni dung H 1(5ph) Hng dn M v chy chng trỡnh chy GV: Hng dn hc sinh m ch: bi tp, nhc li nhng im - Thc hin theo hng Nhn phớm F3 nhp d: cn lu ý v chng trỡnh dn enter chn ton tin Gii thiu li cu trỳc ca nhn enter th tc Chy th chng trỡnh vi xõu + Bin cc b: stop v s1 Chuc mung nam moi, nhn xột + Khi gỏn bin stop v trớ xut hin dũng ch v phm kim tra iu kin lp vi ch chy Nghe v ghi chộp + Ghi xõu s mn hỡnh ri gi th tc catdan sau lm tr mt thi gian gỏn li cho s sau bin i + Cú th a vic bin i xõu s bng th tc cangiua vo th tc H 2(29ph) Vit th tc c Vit th tc chy ch: Tr li cõu hi chy ch Tờn chng trỡnh con: chaychu + Nu khai bỏo th tc chay Tham s hỡnh thc: s kiu xõu chu trc xõu catdan th (79 kớ t), dựng kiu s nguyờn my cỳ thc hin khng? Ti Kt qu: dũng ch s chy ngang sao? mn hỡnh ti dũng quy nh + Lnh gi th tc chy ch Tr li cõu hi t õu chng trỡnh (dũng < 25) kiu tham s giỏ tr chớnh? chng trỡnh chớnh Hng dn: cn thay ụi nh th no cho 120 GIO N TIN HC 11 NM HC 2011-2012 phự hp - Bỏm sỏt lp, hng dn tng mỏy, chnh sa v gii thớch li - Yờu cu hc sinh t vit chng trỡnh chớnh(theo dừi tớnh cu trỳc) - Chia nhúm theo t, hng dn chung cho cỏc nhúm vit th tc - Bao quỏt lp, nhc nh hc sinh v cỏc im chớnh sau: + D liu vo ca th tc + Kt qu sau thc hin th tc v cỏc iu kin c th Thc hin yờu cu - c v hiu chng trỡnh, kt hp chy chng trỡnh vi nhiu xõu mu phỏt hin nhng khỏc bit ca chng trỡnh - Ghi cõu lnh thc hin vic chy ch nhỏp (nhn xột v nhng tỏc ng ca cỏc th tc chng trỡnh) - Phỏt hin : cỏch khai bỏo tham s hỡnh thc ca th tc u khỏc nhau, nhng bin khỏc kiu cỏch bi du chm phy (;) - Nhn xột: th tc cangiua lm thay i xõu trc chy ch, vic cn gia giỳp xõu xut hin gia mn hớnh v bt u chy ch t v trớ ú - Tỡm cỏch gii quyt , nh li nhng tỏc dng ca th tc ú hc - Khai bỏo th tc sau th tc ú vit: Chaychu(s:str79;dong:integer); - Khai bỏo bin stop kiu logic, bin s1 kiu xõu (79 kớ t) l bin cc b Bt u th tc - Khi gỏn stop := False; - lp stop = false cỏc lnh sau: Bt u + chuyn tr n dũng: dong + ghi xõu s mn hỡnh; + Lm tr 200/1000 giõy + Gi th tc catdan(s, s1) + Gn li s:= s1; + Gỏn bin stop:= keypressed; Kt thỳc Kt thỳc th tc *) Sa th tc cangiua: Th tc cn gia thờm cho xõu mt s khong trng nhm mc ớch xut xõu thỡ thy xõu gia mn hỡnh Yờu cu: Sa th tc cn gia cho xut xõu thỡ kớ t cui xut hin ti v trớ cui mn hỡnh (ct 79) + gi ý: thm (79-length(s)) khong trng vo u xõu s PROCEDURE Cangiua(var s:str79); Var i, n:integer; Begin n:=79-length(s); for i:=1 to n s:=' '+s; End; - Tỡm hiu kt qu ca xõu sau chy th tc - t : chng trỡnh cangiua, sa i phự hp thc hin chy ch t gia cho th tc cangiua mn hỡnh n u mn hỡnh - Chộp th tc vo v hc (l trỏi) cú cỏch no giỳp ch - Vit thnh th tc 121 GIO N TIN HC 11 chy t cui n u mn hỡnh - Gi ý cho hc sinh t sa NM HC 2011-2012 Procedure chaychu(s:str79 dong:integer); Var stop:boolean; S1: str79; - Phỏt vn: th tc no lm Begin thay i v trớ xut hin ca stop:=False; xõu? Ti sao? while not(stop) begin - Bỏm sỏt lp, sa bi ca gotoxy(1,dong); hc sinh Write(s); delay(240); catdan(s,s1); s:=s1; Nghe v thc hin yờu stop:=keypressed; cu end; End; ; Cng c - Dn dũ: a Cng c: - th tc x lý xõu v chy ch - tỏc dng ca mi th tc - Cỏc ni dung khai bỏo bin ton cc, bin a phng, tham s hỡnh thc, tham s thc s (kiu tham s bin, tham s giỏ tr) - Cỏch to chng trỡnh - Cng c cỏch vit chng trỡnh - ễn li cỏc chng trỡnh ú to v nm tỏc dng ca nú sau ny s dng li b Dn dũ - Chun b trc cỏc bi ó hc - Vit cỏc th tc v hm - c trc ụn lý thuyt chng VI V Rỳt kinh nghim: 122 GIO N TIN HC 11 NM HC 2011-2012 123 GIO N TIN HC 11 NM HC 2011-2012 Ngy son: 30/04/2012 BI TP Ngy dy: 02/05/2012 TPP: 49 Tun: 35 I Mc tiờu: Kin thc: - Nm c ton b kin thc c hc t u nm hc K nng: - Vn dng c cỏc lnh v kiu d liu ó hc lp trỡnh gii cỏc bi toỏn mt cỏch trn II Phng phỏp dựng dy hc: - Phng phỏp: Thuyt trỡnh, ỏp, gi m, trc nghim - Phng tin: sgk, mỏy chiu, phũng mỏy tớnh III Hot ng dy hc: 1.n nh t chc: 2.Kim tra bi c: lng vo bi hc 3.Bi ụn tp: Ni dung Hot ng ca GV Bài tập 1:Nhập a,b,c hệ số hàm số bậc Sau ta nhập X liên tục, ứng với giá trị X, ta in giá trị Y tơng ứng Chơng trình kết thúc ta nhập Hớng dẫn Viết chơng trình tính Y tơng ứng X uses crt; var a,b,c,x:real;{a,b,c,x kiểu real} function y(x:real):real; begin y:=a*x*x+b*x+c;{Tính y theo x} end; begin clrscr;{Xoá hình} write('A, B, C = ');readln(a,b,c);{Nhập a,b,c} repeat write('X = ');readln(x);{Nhập X} if x0 then writeln('Y = ',y(x):0:2);{Nếu x0 in Y tơng ứng} until x=0; end Bài tập 2: { Nhập N Sau nhập N toạ độ A,B N đờng thẳng In hình đờng thẳng có độ dài lớn Hớng dẫn Viết hàm tính độ dài đoạn thẳng với tham số toạ độ} Hot ng ca HS HS suy nghĩ thực theo yêu cầu GV HS suy nghĩ thực HS suy thảo luận để xậy dựng chơng trình 124 GIO N TIN HC 11 uses crt; var max,xa,ya,xb,yb:real;{max,xa,ya,xb,yb kiểu real} i,n:integer;{i,n kiểu integer} function dodai(xa,ya,xb,yb:real):real; begin dodai:=sqrt(sqr(xa-xb)+sqr(ya-yb));{Gán dodai độ dài đoạn AB} end; begin clrscr;{Xoá hình} write('N = ');readln(n);{Nhập N} max:=0;{Gán max 0} for i:=1 to n do{Cho i chạy từ đến N} begin write('XA, YA, XB, YB = ');readln(xa,ya,xb,yb);{Đọc toạ độ A,B} if maxb then a:=a-b else b:=b-a;{Nếu a>b gán a=a-b ngợc lại gán b=b-a} ucln:=a;{Gán ucln a} end; function bcnn(a,b:integer):integer; begin bcnn:=a*b div ucln(a,b);{Tính bcnn} end; NM HC 2011-2012 HS theo dõi chay chơng trình máy chiếu HS suy nghĩ thực theo yêu cầu GV HS suy nghĩ thực HS suy thảo luận để xậy dựng chơng trình HS theo dõi chay chơng trình máy chiếu 125 GIO N TIN HC 11 begin clrscr;{Xoá hình} write('N = ');readln(n);{Đọc N} write('So thu : ');readln(a);{Đọc phần tử thứ vào a} u:=a;b:=a;{Gán u,b a} for i:=2 to n do{Cho i chạy từ đến n} begin write('So thu ',i,' : ');readln(a);{Nhập số thứ i vào a} u:=ucln(u,a);{Gán u UCLN u a} b:=bcnn(b,a);{Gán b BCNN u b} end; writeln('UCLN = ',u); writeln('BCNN = ',b); readln; end Bài tập 4: { Nhập N In hình số nguyên tố từ đến N Hớng dẫn Viết hàm NGUYENTO(N) trả giá trị TRUE N nguyên tố} uses crt; var i,n:integer;{i,n kiểu integer} function nt(n:integer):boolean; var i:integer;{Khai báo i kiểu integer} begin for i:=2 to trunc(sqrt(n))do{Cho i chạy từ đến trunc(sqrt(n))} if n mod i=0 then begin nt:=false;exit;end;{Nếu n chia hết cho i gán nt=false;thoát khỏi CT exit} nt:=true;{Gán nt TRUE} end; begin clrscr;{Xoá hình} write('N = ');readln(n);{Đọc N} for i:=2 to n do{Cho i chạy từ đến N} if nt(i)then write(i:5);{Nếu i ntố xuất I} readln; end Bài tập 5: { Nhập số N Sau nhập N phần tử In phần tử có số ớc lớn Hớng dẫn Viết hàm TINH(N) trả số ớc N Lu ý số có số ớc lớn tất số} NM HC 2011-2012 HS suy nghĩ thực theo yêu cầu GV HS suy nghĩ thực HS suy thảo luận để xậy dựng chơng trình HS theo dõi chay chơng trình máy chiếu 126 GIO N TIN HC 11 NM HC 2011-2012 uses crt; var i,n:integer;{i,n kiểu integer} a,max,luua:integer;{a,max,luua kiểu integer} function tinh(n:integer):integer; var i,souoc:integer;{Khai báo i,souoc kiểu integer} begin if n=0 then tinh:=maxint{Nếu N=0 thì} else{Ngợc lại} begin souoc:=0;{Gán souoc 0} for i:=1 to n do{Cho i chạy từ đến N} if n mod i=0 then inc(souoc);{Nếu n chia hết cho i tăng souoc} tinh:=souoc;{Gán tinh souoc} end; end; begin clrscr;{Xoá hình} write('N = ');readln(n);{Đọc N} max:=0;{Gán max 0} for i:=1 to n do{Cho i chạy từ đến N} begin write('So thu ',i,' : ');readln(a);{Nhập số thứ i vào a} if max = < Giỏ tr cui > DOWNTO < Giỏ tr u > DO < cụng vic >; B FOR < bin m> := < Giỏ tr cui > DOWN < Giỏ tr u > DO < cụng vic >; C FOR < bin m> := < Giỏ tr cui > DOWNTO < Giỏ tr u > < cụng vic >; D FOR < bin m> := < Giỏ tr cui > DOWNTO DO < cụng vic >; Cõu 15: Xột chng trỡnh sau: Var i, s: Integer; Begin s:=1; for i := to s:= s*i; writeln(s); end Kt qu ca chng trỡnh trờn l? A 1; B 5; C 120; D 100; Cõu 16: S lng phn t A Phi c khai bỏo trc B Khụng c ln hn 128 C Khụng c ln hn 255 D Khụng b gii hn m ch ph thuc vo dung lng a Cõu 17: Trong ngụn ng lp trỡnh Pascal, cõu lnh no sau õy ỳng A for i:=5 downto 1; s:=s+i; B for i:=1 to -5 downto s:=s*i; C for i=1 to s:=s+2; D for i:= to s= -i; Cõu 18: Chng trỡnh l: A Chng trỡnh c xõy dng t cỏc chng trỡnh khỏc B Mt dóy lnh mụ t mt s thao tỏc nht nh v tr v mt giỏ tr qua tờn ca nú C Mt dóy lnh mụ t mt s thao tỏc nht nh nhng khụng tr v mt giỏ tr qua tờn ca nú D Mt dóy lnh mụ t mt s thao tỏc nht nh v cú th c thc hin (c gi) t nhiu v trớ chng trỡnh Cõu 19: c d liu t bn ta cú th s dng th tc A Write(,); B Write(,); C Read(,); D Read(,); Cõu 20: Khi tin hnh m c m khụng tỡm thy thỡ: A s c to vi ni dung ton kớ t cỏch B s c to vi ni dung ton kớ t c bit C s c to vi ni dung rng D bỏo li vỡ khụng thc hin c Cõu 21: Cho on chng trỡnh sau: Var g:text; I:integer; Begin Assign(g, C:\DLA.txt) ; Rewrite(g); For i:=1 to 10 If i mod = then write(g, i); 133 GIO N TIN HC 11 NM HC 2011-2012 Close(g); Readln End Sau thc hin chng trỡnh trờn, ni dung ca DLA.txt gm nhng phn t no? A 1; 3; 5; B 4; 6; 8;10 C 2; 4; 6; 8;10 D 1; 3; 5;7; Cõu 22: Thao tỏc length(THPT Chu Vn An.) cho kt qu: A 17 B Bỏo li C 18 D 16 Cõu 23: Cho dóy s thc M gm (M