Tuần: 20 Ngày Soạn: …….………….……… Tiết: 39 40 Ngày dạy :………..….…….……… BÀI TẬP I. MỤC TIÊU: 1. Kiến thức: Sử dụng các kiến thức đã học để làm một số bài tập 2. Kĩ năng: Rèn luyện kĩ năng sử dụng các câu lệnh trong Pascal 3. Thái độ: Thái độ học tập nghiêm túc, yêu thích môn học. II. CHUẨN BỊ: Sách giáo khoa, máy tính điện tử. III. PHƯƠNG PHÁP Giải đáp, hướng dẫn. IV. HOẠT ĐỘNG DẠY HỌC HOẠT ĐỘNG CỦA THẦY HOẠT ĐỘNG CỦATRÒ NỘI DUNG Hoạt động 1: Bài tập 1. Tính tam giác: Nụâp vào ba số a,b,c bất kì. Kiểm tra xem nó có thể là độ dài ba cạnh hay không, nếu không thì in ra màn hình ` Khong la ba canh cua mot tam giac`. Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình.
Giỏo ỏn Tin Hc Tun: 20 Tit: 39 - 40 Hc kỡ Ngy Son: ././ Ngy dy : ././ BI TP I MC TIấU: Kin thc: - S dng cỏc kin thc ó hc lm mt s bi K nng: - Rốn luyn k nng s dng cỏc cõu lnh Pascal Thỏi : - Thỏi hc nghiờm tỳc, yờu thớch mụn hc II CHUN B: Sỏch giỏo khoa, mỏy tớnh in t III PHNG PHP - Gii ỏp, hng dn IV HOT NG DY HC HOT NG CA THY HOT NG CATRề Hot ng 1: Bi 1 Bi Tớnh tam giỏc: Nõp vo ba s a,b,c bt kỡ Kim tra xem nú cú th l di ba cnh hay khụng, nu khụng thỡ in mn hỡnh ' Khong la ba canh cua mot tam giac' Ngc li, thỡ in din tớch, chu vi ca tam giỏc mn hỡnh NI DUNG Program TAMGIAC; Uses crt; + HS thc hin theo Var a,b,c,s,p : real; Begin Clrscr; Writeln( nhp cnh :); Readln(a,b,c); If (a+b)>c and (a+c)>b and (b+c)>a then Begin p:= abc; s:=sqrt(p*(p-a)*(p-b)*(p-c)); end else writeln(a;b;c khụng l ba cnh ca tam giỏc); readln end Hot ng 2: Bi 2 Bi n Tớnh x (Vi n l s nguyờn + Hc sinh c bi Program TINH_X_LUY_THUA_N; khụng õm) => suy ngh v tr li Uses crt; ỳng yờu cu Var i,n,x:integer; lt:real; begin writeln(tớnh luy tha xmux n:); writeln(nhp x:); readln(x); writeln(nhp n:); readln(n); lt:= 1; for i:=1 to n lt:=lt*i writeln( x^n :,lt); readln end V DN Dề - V nh hc bi kt hp sỏch giỏo khoa RT KINH NGHIM Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc Tun: 21 Tit: 41 - 42 Hc kỡ Ngy Son: ././ Ngy dy : ././ Bi thc hnh s S DNG LNH LP FOR DO I MC TIấU: Kin thc: - Bit vit chng trỡnh Pascal cú cõu lnh lp For K nng: - Rốn luyn k nng c hiu chng trỡnh Thỏi : - Thỏi hc nghiờm tỳc, yờu thớch vit chng trỡnh thc hin mt s cụng vic II CHUN B: - Gv: Ni dung bi thc hnh, mỏy tớnh in t - Hs: ễn li lý thuyt ,c trc bi thc hnh III PHNG PHP - Gii ỏp, hng dn, thc hnh trờn mỏy tớnh IV HOT NG DY HC: HOT NG CA HOT NG CA TRề NI DUNG THY Hot ng 1: ễn li cõu lnh lp For ? Hóy nờu cỳ phỏp v chc nng - Cỳ phỏp: For := ễn li cõu lnh lp For do: ca cõu lnh lp For to ; + Cỳ phỏp: + Hot ng ca vũng lp: + Hot ng - B1: bin m nhn giỏ tr u - B2: Chng trỡnh kim tra biu thc iu kin, nu biu thc iu kin ỳng thỡ thc hin cõu lnh - B3: Bin m t ng tng lờn n v v quay li B2 - B4: Nu biu thc iu kin nhn giỏ tr sai thỡ thoỏt vũng lp Hot ng 2: Vit chng trỡnh in mn hỡnh bng nhõn ca mt s t n 9, s nhp c t bn phớm v dng mn hỡnh cú th quan sỏt kt qu Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc - Gừ chng trỡnh sau õy: Hc kỡ + Hc sinh c k v phõn tớch Vit chng trỡnh in mn yờu cu ca bi toỏn hỡnh bng nhõn ca mt s t n 9, s nhp c t bn phớm v dng mn hỡnh cú th quan sỏt kt qu uses crt; var N,i:integer; begin clrscr; write('Nhap so N='); readln(N); Program bang_cuu_chuong writeln; uses crt; writeln('Bang nhan ',N); var N,i:integer; writeln; + Gừ chng trỡnh vo mỏy theo begin for i:=1 to 10 writeln(N,' x yờu cu ca giỏo viờn clrscr; ',i:2,' = ',N*i:3); write('Nhap so N='); readln(N); readln writeln; end writeln('Bang nhan ',N); - Tỡm hiu ý ngha ca cỏc cõu writeln; lnh chng trỡnh, dch for i:=1 to 10 writeln(N,' x chng trỡnh v sa li ',i:2,' = ',N*i:3); readln - Chy chng trỡnh vi cỏc giỏ + Tỡm hiu ý ngha ca cỏc cõu end tr nhp vo ln lc l 1, 2, lnh theo s hng dn ca giỏo 10 Quan sỏt kt qu nhn c viờn trờn mn hỡnh + Nhn phớm F9 sa li (nu cú) + Nhn Ctrl + F9 chy chng trỡnh v nhp cỏc giỏ tr vo, quan sỏt kt qu trờn mn hỡnh theo s hng dn ca giỏo viờn V DN Dề: - Tit sau thc hnh: Bi thc hnh s (tt) RT KINH NGHIM Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc Tun: 22 Tit: 43 Hc kỡ Ngy Son: ././ Ngy dy : ././ Bi thc hnh s S DNG LNH LP FOR DO (tt) I MC TIấU: Kin thc: - Bit vit chng trỡnh Pascal cú cõu lnh lp For K nng: - Rốn luyn k nng c hiu chng trỡnh Thỏi : - Thỏi hc nghiờm tỳc, yờu thớch vit chng trỡnh thc hin mt s cụng vic II CHUN B: - Gv: Ni dung bi thc hnh, mỏy tớnh in t - Hs: ễn li lý thuyt ,c trc bi thc hnh III PHNG PHP - Gii ỏp, hng dn, thc hnh trờn mỏy tớnh IV HOT NG DY HC: HOT NG CA THY HOT NG CA TRề Hot ng 1: Bi NI DUNG - Chnh sa chng trỡnh lm p kt qu trờn mn hỡnh Chnh sa chng trỡnh ? Kt qu ch chng trỡnh nhn lm p kt qu trờn mn c bi cú nhng nhc + Cú hai nhc im sau õy: hỡnh im no - Cỏc hng kt qu quỏ sỏt nờn khú c - Cỏc hng kt qu khụng c cõn i vi hng tiờu + Nờn sa li bng cỏch chốn ? Nờn sa li bng cỏch no thờm mt hng trng gia cỏc hng kt qu v y cỏc hng ny sang phi mt khong cỏch no ú - Chnh sa cõu lnh lp ca chng trỡnh sau: for i:=1 to 10 + Hc sinh chnh sa theo s begin hng dn ca giỏo viờn GotoXY(5,WhereY); writeln(N,' x ',i:2,' = ',N*i:3); writeln ; end; - Dch v chy chng trỡnh vi cỏc giỏ tr gừ vo t bn phớm Quan sỏt kt qu nhn c trờn + Hc sinh thc hin theo yờu cu mn hỡnh ca giỏo viờn Hot ng 2: Tỡm hiu chng trỡnh sau: Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc Program tao_bang; + Tỡm hiu chng trinh theo s Uses crt; hng dn ca giỏo viờn Var i,j: byte; Begin Clrscr; For i:= to Begin For j:= to Write(10*i + j:4); Writeln; End; Readln; + Hc sinh c lp gừ chng End trỡnh - Gừ v chy chng trỡnh, quan + Nhn F9 dch v sa li sỏt kt qu trờn mn hỡnh chng trỡnh + Nhn Ctrl + F9 chy chng trỡnh v kim tra kt qu Hc kỡ 2 Tỡm hiu chng trỡnh sau: Program tao_bang; Uses crt; Var i,j: byte; Begin Clrscr; For i:= to Begin For j:= to Write(10*i + j:4); Writeln; End; Readln; End V DN Dề: - V nh xem trc bi RT KINH NGHIM Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc Tun: 22 Tit: 44 Hc kỡ Ngy Son: ././ Ngy dy : ././ HC V HèNH VI PHN MM GEOGEBRA I MC TIấU: Kin thc: - Tỡm hiu phn mm Geogebra - Bit cỏch ng v bit c mn hỡnh lm vic ca phn mm K nng: - Rốn luyn k nng s dng phn mm Geogebra Thỏi : - Thỏi hc nghiờm tỳc, yờu thớch mụn hc II CHUN B: GV: Sỏch giỏo khoa, mỏy tớnh in t, phn mm Geogebra HS: Sỏch, v ,c bi nh III PHNG PHP - Gii ỏp, hng dn IV HOT NG DY HC: HOT NG CA HOT NG CA TRề THY Hot ng 1: Tỡm hiu phn mm Geogebra NI DUNG ? Hóy nờu mc ớch ca phn Em ó bit gỡ v Geogebra? mm + Phn mm Geogebra dựng v cỏc hỡnh hc n gin nh im, on thng, ng thng Phn mm cú kh nng to s gn kt gia cỏc i tng hỡnh hc, c gi l quan h nh + Hc sinh chỳ ý lng nghe thuc, vuụng gúc, song song Hot ng 2: Tỡm hiu cỏch ng phn mm ? Hóy nờu cỏch ng Lm quen vi phn mm phn mm ng phn mờm ta nhỏy Geogebra ting Vit: ỳp vo biu tng trờn Hoc vo menu Start \ All mn hỡnh nn Programs\ GeoGebra \ + Hc sinh chỳ ý lng nghe => GeoGebra ghi nh kin thc - Gi hc sinh lờn thc hnh + Hc sinh ng phn mm ng phn mm trờn mỏy trờn mỏy tớnh theo yờu cu ca tớnh giỏo viờn Hot ng 3: Tỡm hiu mn hỡnh lm vic ca Geogebra ting Vit Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc Hc kỡ ? Mn hỡnh lm vic ca Geogebra gm nhng thnh + Mn hỡnh lm vic ca phn no Geogebra gm: - Bng chn: l h thng cỏc lnh chớnh ca phn mm - Thanh cụng c: Cha cỏc cụng c lm vic chớnh l cụng c dựng v, iu chnh v lm vic vi cỏc i tng - Khu vc th hin cỏc i - Chỳ ý: Cỏc lnh trờn bng chn tng khụng dựng v cỏc i tng hỡnh - Mi cụng c u cú mt biu tng riờng tng ng Biu + Hc sinh chỳ ý lng nghe => tng cho bit cụng dng ca ghi nh kin thc cụng c ú V DN Dề: - V nh hc bi, kt hp SGK, tit sau thc hnh RT KINH NGHIM Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc Tun: 23 Tit: 45 Hc kỡ Ngy Son: ././ Ngy dy : ././ HC V HèNH VI PHN MM GEOGEBRA (tt) I MC TIấU: Kin thc: - Bit c cỏc cụng c lm vic chớnh ca phn mm: cụng c di chuyn, cỏc cụng c liờn quan n i tng im K nng: - Rốn luyn k nng s dng cỏc cụng c lm vic chớnh ca phn mm Thỏi : - Thỏi hc nghiờm tỳc, yờu thớch mụn hc II CHUN B: GV: Sỏch giỏo khoa, mỏy tớnh in t, phn mm Geogebra HS: Sỏch, v ,c bi nh III PHNG PHP - Gii ỏp, hng dn IV HOT NG DY HC: HOT NG CA THY HOT NG CA TRề NI DUNG Hot ng : Tỡm hiu cỏc cụng c lm vic chớnh ca phn mm * Cụng c di chuyn: c) Gii thiu cỏc cụng c lm vic chớnh ? Cụng c di chuyn cú ý + Cụng c di chuyn cú ý ngha ngha nh th no? c bit l khụng dựng v hoc * Cỏc cụng c liờn quan n i to hỡnh m dựng di tng im chuyn hỡnh Yờu cu hc sinh nghiờn cu SGK v cho bit ý ngha ca cỏc cụng c - Cụng c : dựng to mt - Cụng c ? im mi - Cụng c ? - Cụng c : dựng to im l giao ca hai i tng ó cú trờn mt phng - Cụng c ? * Cỏc cụng c liờn quan n on, ng thng - Cụng c : dựng to trung im ca on thng Cỏc cụng c , , Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc Hc kỡ - dựng to ng, on, tia i qua hai im cho trc ? Hóy nờu thao tỏc thc hin + Hc sinh chỳ ý lng nghe => ghi nh kin thc * Cỏc cụng c to mi quan h hỡnh hc - Cụng c dựng to ng thng i qua mt im v vuụng gúc vi mt ng hoc on Thao tỏc: chn cụng c, sau ú nhỏy chut chn ln lt hai im thng cho trc trờn mn hỡnh Cụng c s to mt ng thng song song vi mt ng (on) cho trc v i qua + Thao tỏc: chn cụng c, sau mt im cho trc ú ln lt chn im, ng (on, tia) hoc ngc li chn Cụng c dựng v ng (on, tia) v chn im ng trung trc ca mt on thng hoc hai im cho trc + Thao tỏc: chn cụng c, sau Cụng c dựng to ú ln lt chn im, ng ng phõn giỏc ca mt gúc cho (on, tia) hoc ngc li chn * Cỏc cụng c to mi quan trc Gúc ny xỏc nh bi ba ng (on, tia) v chn im h hỡnh hc im trờn mt phng + Thao tỏc: chn cụng c, sau ú chn mt on thng hoc chn hai im cho trc trờn mt phng + Thao tỏc: chn cụng c v sau ú ln lt chn ba im trờn mt phng im chn th hai chớnh l nh ca gúc ny V DN Dề: - V nh hc bi, kt hp SGK RT KINH NGHIM Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc Tun: 23 Tit: 46 Hc kỡ Ngy Son: ././ Ngy dy : ././ HC V HèNH VI PHN MM GEOGEBRA (tt) I MC TIấU: Kin thc: - Bit c cỏc cụng c lm vic chớnh ca phn mm: cụng c di chuyn, cỏc cụng c liờn quan n i tng im K nng: - Rốn luyn k nng s dng cỏc cụng c lm vic chớnh ca phn mm Thỏi : - Thỏi hc nghiờm tỳc, yờu thớch mụn hc II CHUN B: GV: Sỏch giỏo khoa, mỏy tớnh in t, phn mm Geogebra HS: Sỏch, v ,c bi nh III PHNG PHP - Gii ỏp, hng dn IV HOT NG DY HC: HOT NG CA THY HOT NG CA TRề NI DUNG Hot ng 1: Tỡm hiu cỏc cụng c lm vic chớnh ca phn mm * Cụng c liờn quan n hỡnh - Thao tỏc: chn cụng c, chn tõm c) Gii thiu cỏc cụng c trũn hỡnh trũn v im th hai nm trờn lm vic chớnh hỡnh trũn * Cụng c liờn quan n - Cụng c to hỡnh trũn hỡnh trũn bng cỏch xỏc nh tõm v mt im trờn hỡnh trũn Thao tỏc: chn cụng c, chn tõm hỡnh trũn, sau ú nhp giỏ tr bỏn kớnh Cụng c dựng to hỡnh hp thoi trũn bng cỏch xỏc nh tõm v - Thao tỏc: chn cụng c, sau ú ln bỏn kớnh lt chn ba im Thao tỏc: chn cụng c, chn ln - Cụng c dựng v hỡnh lt hai im Na hỡnh trũn c trũn i qua ba im cho trc to s l phn hỡnh trũn theo chiu ngc kim ng h t im th nht - Cụng c dựng to mt na hỡnh trũn i qua hai im i xng tõm Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc Tun: 33 Tit: 65 Hc kỡ Ngy Son: ././ Ngy dy : ././ QUAN ST HèNH KHễNG GIAN VI PHN MM YENKA (tt) I MC TIấU: Kin thc: - Hc sinh nm c ý ngha ca mt s lnh c bn, khỏm phỏ v iu khin c cỏc hỡnh khụng gian K nng: - Cú k nng to hỡnh nh vo cỏc lnh v iu khin c cỏc hỡnh hc khụng gian n gin m hc sinh v Thỏi : - Thỏi hc nghiờm tỳc, yờu thớch mụn hc II CHUN B: GV:Sỏch giỏo khoa, giỏo ỏn HS: c bi trc nh III PHNG PHP - Hng dn,ging gii IV HOT NG DY HC: HOT NG CA THY HOT NG CA TRề Hot ng 1: Tỡm hiu cỏch to hỡnh khụng gian (tt) - Giỏo viờn gii thiu Menu File NI DUNG To hỡnh khụng gian: b) Cỏc lnh to mi, lu, m mụ hỡnh + Hc sinh chỳ ý lng nghe v quan sỏt => Nờu cỏch to mi, lu v m mụ hỡnh + to mi ta chn Menu File => New + lu ta chn Menu File => Save (Save as) + m mụ hỡnh ta chn Menu File => Open Hot ng : Tỡm hiu cỏch iu khin cỏc hỡnh khụng gian Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc - thay i hoc di chuyn c mt i tng hỡnh hc ta lm nh th no? ? Nờu cỏc cỏch thay i kớch thc Hc kỡ Khỏm phỏ, iu khin - Mun di chuyn mt hỡnh khụng cỏc hỡnh khụng gian: gian, ta kộo th i tng ú - thay i kớch thc ca mt a) Thay i, di chuyn i tng trc tiờn cn chn hỡnh Khi ú s xut hin cỏc b) Thay i kớch thc ng vin v cỏc nỳt nh trờn i tng, cho phộp tng tỏc thay i kớch thc Tu vo tng i tng m cỏc nỳt, ng vin cú dng khỏc - Giỏo viờn gii thiu cỏch thay i mu cho cỏc hỡnh Mun tụ mu, thay i mu cho cỏc c) Thay i mu cho cỏch hỡnh hỡnh, em dựng cụng c Khi nhỏy chut vo cụng c ny em s thy mt danh sỏch cỏc mu nh sau: Cỏc bc thc hin tụ mu: Kộo th mt mu mụ hỡnh Khi Hc sinh chỳ ý lng nghe => ghi ú trờn cỏc hỡnh xut hin cỏc chm nh kin thc en cho bit hỡnh ú cú th thay i mu Kộo th mu vo cỏc chm en tụ mu Vớ d, ta cú th tụ mu cỏc mt ca hỡnh lng tr tam giỏc vi cỏc mu khỏc V DN Dề - V nh hc bi, kt hp SGK RT KINH NGHIM Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc Tun: 33 Tit: 66 Hc kỡ Ngy Son: ././ Ngy dy : ././ QUAN ST HèNH KHễNG GIAN VI PHN MM YENKA (tt) I MC TIấU: Kin thc: - Hc sinh nm c ý ngha ca mt s lnh c bn, khỏm phỏ v iu khin c cỏc hỡnh khụng gian K nng: - Cú k nng to hỡnh nh vo cỏc lnh v iu khin c cỏc hỡnh hc khụng gian n gin m hc sinh v Thỏi : - Thỏi hc nghiờm tỳc, yờu thớch mụn hc II CHUN B: GV:Sỏch giỏo khoa, giỏo ỏn HS: c bi trc nh III PHNG PHP - Hng dn,ging gii IV HOT NG DY HC: Kim tra bi c: ? Mn hỡnh lm vic chớnh ca phn mm gm nhng thnh phn no? HOT NG CA THY HOT NG CA TRề NI DUNG Hot ng : Tỡm hiu cỏch iu khin cỏc hỡnh khụng gian GV ngoi chc nng tụ mu HS quan sỏt lng nghe thay i, di chuyn phn mm cũn cung cp cho chỳng ta mt nng khỏc ú l thay i tớnh HS nhỏy ỳp chut lờn hỡnh cn thay i v thc hin cỏc lnh thớch ca hỡnh hp GV mun thay i tớnh ca mt hỡnh hc em thao tỏc nh th HS ghi bi no? Khỏm phỏ, iu khin cỏc hỡnh khụng gian: d) Thay i tớnh cht ca hỡnh - thay i tớnh cht ca cỏc i tng nhỏy ỳp chut lờn i tng, hp thoi mụ t cỏc thụng tin xut hin s dng cỏc lnh hp thoi thay i GV nhn xột cõu tr li ca hc sinh v tng kt li Hc sinh chỳ ý lng nghe => ghi e) Gp giy thnh hỡnh khụng gian nh kin thc V DN Dề - V nh hc bi, kt hp SGK RT KINH NGHIM Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc Tun: 34 Tit: 67 Hc kỡ Ngy Son: ././ Ngy dy : ././ Thc hnh: QUAN ST HèNH KHễNG GIAN VI PHN MM YENKA (tt) I MC TIấU: Kin thc: - Vn dng kin thc ca tit lý thuyt ỏp dng vo tit thc hnh K nng: - Cú k nng to hỡnh nh vo cỏc lnh v iu khin c cỏc hỡnh hc khụng gian n gin m hc sinh v Thỏi : - Thỏi hc nghiờm tỳc, yờu thớch mụn hc II CHUN B: GV:Sỏch giỏo khoa, giỏo ỏn HS: Hc bi nh III PHNG PHP - Hng dn,ging gii IV HOT NG DY HC: HOT NG CA THY HOT NG CA TRề NI DUNG Hot ng: THC HNH GV em hóy thc hin thao tỏc HS thc hin thao tỏc dng - Nhỏy ỳp chut vo biu tng ng phn mm yenka phn mm yenka Yenka trờn mn hỡnh nn GV quan sỏt hng dn cỏc em thao tỏc cha ỳng GV vo mn hỡnh lm vic chớnh HS thc hnh nhỏy nỳt Try Basic - Nhỏy nỳt Try Basic Version vo mn hỡnh lm vic chớnh ca ca phn mm thc hin thao tỏc gỡ? Version phn mm GV to cỏc mụ hỡnh khụng gian HS s dng hp thoi Objects - Hp thoi: em s dng hp thoi gỡ? GV em hóy s dng cỏc cụng c HS thc hnh to cỏc mụ hỡnh khụng hp thoi Objects to cỏc gian mụ hỡnh khụng gian sau Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc HS thc hin thao tỏc thoỏt GV quan sỏt hng dn cỏc em thc phn mm hin cha ỳng GV thoỏt phn mm em thc hin nh th no? Hc kỡ - Nhỏy vo nỳt close trờn cụng c V DN Dề - V nh hc bi, kt hp SGK RT KINH NGHIM Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc Tun: 34 - 35 Tit: 68 - 69 Hc kỡ Ngy Son: ././ Ngy dy : ././ BI TP I MC TIấU: Kin thc: - Vit chng trỡnh Pascal s dng bin mng K nng: - Rốn luyn kh nng c chng trỡnh, tỡm hiu tỏc dng v kt hp cỏc cõu lnh Thỏi : - Thỏi hc nghiờm tỳc, yờu thớch mụn hc II CHUN B: GV: Sỏch giỏo khoa, mỏy tớnh in t HS: Sỏch, v ,c bi nh III PHNG PHP - Gii ỏp, hng dn IV HOT NG DY HC: HOT NG CA THY HOT NG CA TRề Hot ng 1: ễn lớ thuyt NI DUNG GV: yờu cu hc sinh nh li kin thc - HS Suy ngh v tr li cõu v tr li cỏc cõu hi hi a) Nờu li cỳ phỏp khai bỏo bin mng b) Nờu li ớch ca vic s dng bin mng Hot ng 2: Bi ? Vit chng trỡnh nhp vo mt dóy s nguyờn cú n phn t In mn hỡnh phn t nh nht, phn t ln nht v giỏ tr trung bỡnh ca danh sỏch mn hỡnh Program MAX_MIN _AVG; Uses crt; - Yờu cu hs suy ngh v vit chng - Hs Suy ngh v vit Var a:array[1 20]of integer;i,n,max,min,sum:integer; trỡnh chng trỡnh Begin Program Clrscr; MAX_MIN_AVG; Writeln('TIM MAX, MIN, Uses crt; AVERAGE CUA MOT DAY Var a:array[1 20]of SO'); Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc integer;i,n,max,min,sum:integer; Begin Clrscr; Writeln('TIM MAX, MIN, AVERAGE CUA MOT DAY SO'); Writeln(' -'); Write('Nhap so phan tu cua day n='); readln(n); For i:=1 to n Begin Write('Nhap a[',i,']=');readln(a[i]); End; Min:=a[1]; Max:=a[1]; Sum:=0; For i:=1 to n Begin If (Min > a[i]) then Min:=a[i]; If (Max < a[i]) then Max:=a[i]; Sum:=sum+a[i]; End Writeln('Day so vua nhap la: '); Writeln(' -'); For i:=1 to n Write(a[i]:4); Writeln; Writeln('Gia tri lon nhat la:',Max); Writeln('gia tri nho nhat la:',Min); Writeln('gia tri trung binh la:',Sum/n:6:2); Readln; End; Hc kỡ Writeln(' '); Write('Nhap so phan tu cua day n='); readln(n); For i:=1 to n Begin Write('Nhap a[',i,']=');readln(a[i]); End; Min:=a[1]; Max:=a[1]; Sum:=0; For i:=1 to n Begin If (Min > a[i]) then Min:=a[i] ; If (Max < a[i]) then Max:=a[i]; Sum:=su m+a[i]; End Writeln('Day so vua nhap la: '); Writeln(' '); F or i:=1 to n Write(a[i]:4); Writeln; Writeln('Gia tri lon nhat la:',Max); Writeln('gia tri nho nhat la:',Min); Writeln('gia tri trung binh la:',Sum/n:6:2); Readln; End; V DN Dề: - Chun b bi thc hnh RT KINH NGHIM Gv: Ngụ Dng Khụi Trng THCS Lng Tõm Giỏo ỏn Tin Hc Tun: 35 Tit: 70 Hc kỡ Ngy Son: ././ Ngy dy : ././ KIM TRA TIT ( TH) I MC TIấU: - Hc sinh thc hin kim tra thc hnh trờn mỏy tớnh - Kim thc ch yu thuc bi hc cui cựng - H thng li mt s kin thc ó hc - Bit s dng vũng lp xỏc nh vit chng trỡnh II CHUN B - GV: bi - HS: Hc bi nh III PHNG PHP - Hot ng nhúm trờn mỏy IV BI Mc Ni dung Bi Bi Ma trn Bit Cõu Cõu Vn dng Cõu Cõu Cõu 1: Lp trỡnh tớnh tng: A= 1+2+3+ +n õy n l s t nhiờn c nhp t bn phớm (vit bng lnh while do) Cõu : Bn hóy tớnh tng (vit bng lnh for do) (Lu ý : Mi cõu c ghi li thnh File Mydocmens cú tờn l LOP8A1_1.PAS V LOP8A1_2.PAS) P N + THANG IM V HNG DN CHM Cõu : Cõu Ni dung Lm ỳng cho im Program B1 ; Uses CRT; Var i, n: integer; tong: real; Begin Clrscr; Gv: Ngụ Dng Khụi im 1,5 Trng THCS Lng Tõm Giỏo ỏn Tin Hc Hc kỡ write('cho so tu nhien n: '); Readln(n); tong:=0; i:=1; while i[...]... chưa xác định trước, trước Gv: Ngô Dương Khôi Trường THCS Lương Tâm Giáo án Tin Học 8 Học kì 2 Hoạt động 2: Bài tập ? Hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể hiện các thuật toán đó a) Thuật toán 1 Bước 1 S ← 10, x ← 0.5 Bước 2 Nếu S ≤ 5.2, chuyển tới bước... Writeln(‘nhap cac so can tinh n Tb:= tb + x; =’); End; Readln(n); Tb:=tb/n; Gv: Ngô Dương Khôi Trường THCS Lương Tâm Giáo án Tin Học 8 While dem < n do Begin Dem:= dem + 1; Writeln(‘nha so thu’, dem,’=’); Readln(x); Tb:= tb + x; End; Tb:=tb/n; Witeln(‘Trung binh của’,n,’so là =’, tb:10:3); Readln; End + Học sinh lưu chương trình theo - Lưu chương trình với tên yêu cầu của giáo viên tinh_tb + Học sinh thực... lại bước 2 Bước 5 Ghi kết quả A và kết thúc thuật toán V DẶN DÒ: - Về nhà học bài kết hợp sách giáo khoa, tiết sau học bài làm bài tập (tt) RÚT KINH NGHIỆM …………………………………………………………………………………………………………………… …………………………………………………………………………………………………………………… …………………………………………………………………………………………………………… Gv: Ngô Dương Khôi Trường THCS Lương Tâm Giáo án Tin Học 8 Tuần: 28 Tiết: 55 Học kì 2 Ngày Soạn: …….……/……./……… Ngày... …………………………………………………………………………………………………………… Gv: Ngô Dương Khôi Trường THCS Lương Tâm Giáo án Tin Học 8 Tuần: 28 Tiết: 56 Học kì 2 Ngày Soạn: …….……/……./……… Ngày dạy : …….……/……./……… LÀM VIỆC VỚI DÃY SỐ I MỤC TIÊU: 1 Kiến thức: - Làm quen với việc khai báo và sử dụng các biến mảng - Tìm hiểu một số ví dụ về biến mảng 2 Kĩ năng: - Việc gán giá trị, nhập giá trị và tính toán với các giá trị của một phần tử trong biến mảng được thực... THCS Lương Tâm Giáo án Tin Học 8 Học kì 2 ? Tìm hiểu các bước của thuật + Đọc kĩ đề bài toán trong ví dụ này - Ta có sơ đồ khối + Kí hiệu S là tổng cần tìm và ta có thuật toán như sau: - Bước 1 S ← 0, n ← 0 - Bước 2 Nếu S ≤ 1000, n ← n + 1; ngược lại chuyển tới bước 4 -Bước 3 S ← S + n và quay lại bước 2 - Bước 4 In kết quả : S và n là số tự nhiên nhỏ nhất sao cho S > 1000 Kết thúc thuật toán Nhận xét?... được thực hiện lần nào Đ nếu ngay từ đầu điều kiện điều khiển vòng lặp có giá trị “sai” Gv: Ngô Dương Khôi Trường THCS Lương Tâm Giáo án Tin Học 8 Mọi câu lệnh lặp For…do đều có thể thay thế một cách thích hợp bởi câu lệnh While do Trả lời trắc nghiệm Câu 1 2 3 4 5 6 7 8 9 10 Đ .Án A A D B B D D C A C Học kì 2 S 11 A 12 A 13 A V DẶN DÒ: - Về nhà chuẩn bị bài số 9 RÚT KINH NGHIỆM ……………………………………………………………………………………………………………………... theo sự hướng việc của phần mềm của phần mềm ở trên máy tính dẫn của giáo viên V DẶN DÒ: - Xem trước các bài tập RÚT KINH NGHIỆM …………………………………………………………………………………………………………………… …………………………………………………………………………………………………………………… …………………………………………………………………………………………………… Gv: Ngô Dương Khôi Trường THCS Lương Tâm Giáo án Tin Học 8 Tuần: 24 Tiết: 48 Học kì 2 Ngày Soạn: ……./……./……… Ngày dạy : …….……/……./……… Thực hành:... sau: var Chieucao: array[1 50] of real; var Tuoi: array[21 80 ] of integer; V DẶN DÒ - Về nhà học bài, kết hợp SGK RÚT KINH NGHIỆM …………………………………………………………………………………………………………………… …………………………………………………………………………………………………………………… …………………………………………………………………………………………………………… Gv: Ngô Dương Khôi Trường THCS Lương Tâm Giáo án Tin Học 8 Tuần: 29 Tiết: 57 - 58 Học kì 2 Ngày Soạn: …….……/……./……… Ngày dạy : …….……/……./………... …………………………………………………………………………………………………… Gv: Ngô Dương Khôi Trường THCS Lương Tâm Giáo án Tin Học 8 Tuần: 26 Tiết: 51 Học kì 2 Ngày Soạn: …….……/……./……… Ngày dạy : …….……/……./……… Bài 8: LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC (tt) I MỤC TIÊU: 1 Kiến thức: - Biết được cú pháp và hoạt động của câu lệnh lặp với số lần không biết trước - Biết được một số lỗi lập trình cần tránh 2 Kĩ năng: - Rèn luyện kĩ năng sử dụng các câu lệnh lặp không... Thông báo S và kết thúc thuật toán b) Thuật toán 2 Bước 1 S ← 10, n ← 0 Bước 2 Nếu S ≥ 10, chuyển tới bước 4 Bước 3 n ← n + 3, S ← S − n quay lại bước 2 Bước 4 Thông báo S và kết thúc thuật toán a) Thuật toán 1: 10 vòng lặp được thực hiện Khi kết thúc thuật toán S = 5.0 Đoạn chương trình Pascal tương ứng: S:=10; x:=0.5; while S>5.2 do S:=S-x; writeln(S); b) Thuật toán 2: Không vòng lặp nào được thực ... Dương Khôi Trường THCS Lương Tâm Giáo án Tin Học Học kì ? Tìm hiểu bước thuật + Đọc kĩ đề toán ví dụ - Ta có sơ đồ khối + Kí hiệu S tổng cần tìm ta có thuật toán sau: - Bước S ← 0, n ← - Bước... chương trình sau: Gv: Ngô Dương Khôi Trường THCS Lương Tâm Giáo án Tin Học Program tao_bang; + Tìm hiểu chương trinh theo Uses crt; hướng dẫn giáo viên Var i,j: byte; Begin Clrscr; For i:= to Begin... phần mềm máy máy tính theo yêu cầu tính giáo viên Hoạt động 3: Tìm hiểu hình làm việc Geogebra tiếng Việt Gv: Ngô Dương Khôi Trường THCS Lương Tâm Giáo án Tin Học Học kì ? Màn hình làm việc Geogebra