Giỏo ỏn Tin hc 11 Trng THPT Cỏt Ngn Ngy son: 2/12/2010 Tit PPCT: 17 ễN TP HC Kè I MC TIấU Kin thc - Hc sinh nm c ton b kin thc ó hc t u nm hc n K nng - Rốn luyn k nng nhn xột, phõn tớch mt bi toỏn II CHUN B CA GIO VIấN V HC SINH Chun b ca giỏo viờn - Nghiờn cu, h thng li kin thc, sỏch giỏo khoa Chun b ca hc sinh - Sỏch giỏo khoa, mt s chng trỡnh bi III HOT NG DY HC Hot ng 1: Nhc li kin thc c ó hc a Mc tiờu: - Hc sinh nh li c cỏc kin thc lớ thuyt ó hc b Ni dung: - Khỏi nim v lp trỡnh v ngụn ng lp trỡnh - Cú hai loi chng trỡnh dch: Biờn dch v thụng dch - Cỏc thnh phn ca ngụn ng lp trỡnh: Bng ch cỏi, cỳ phỏp v ng ngha - Cỏc khỏi nim: Tờn, hng v bin, chỳ thớch - Cu trỳc ca chng trỡnh Pascal: Phn khai bỏo v phn thõn - Cỏc kiu d liu chun: S nguyờn, s thc, kớ t, logic - Phộp toỏn, biu thc, lnh gỏn - T chc vo/ra - Cu trỳc r nhỏnh - Cu trỳc lp c Cỏc bc tin hnh: HNG DN CA GIO VIấN HOT NG CA HC SINH t cõu hi gi ý hc sinh t nhc li Chỳ ý, theo dừi tr li cỏc cõu hi kin thc ó hc - Em hiu nh th no v lp trỡnh v - Lp trỡnh l quỏ trỡnh din t thut ngụn ng lp trỡnh? toỏn bng mt ngụn ng lp trỡnh - Cỏc loi chng trỡnh dch? - Biờn dch v thụng dch - Cỏc thnh phn c bn ca ngụn ng - Bng ch cỏi, cỳ phỏp v ng ngha lp trỡnh? - Cỏc khỏi nim ngụn ng lp - Khỏi nim tờn, hng v bin, chỳ thớch trỡnh? - Cu trỳc chung ca chng trỡnh TP? - Gm hai phn: Phn khai bỏo v phn thõn - Nờu tờn cỏc kiu d liu chun? - S nguyờn, s thc, kớ t, logic - Nờu cỏc nhúm phộp toỏn ó hc? - Phộp toỏn s hc, phộp toỏn quan h, Trang -1 - Giỏo ỏn Tin hc 11 Trng THPT Cỏt Ngn - Cỏc loi biu thc? - Chc nng v s thc hin ca lnh gỏn? - Nờu tờn v chc nng ca mt s hm s hc? - T chc vo/ra - T chc r nhỏnh - T chc lp phộp toỏn logic - Biu thc s hc, biu thc quan h v biu thc logic - Dựng tớnh toỏn mt biu thc v gỏn giỏ tr cho mt bin - Hm bỡnh phng, hm cn bc hai, hm giỏ tr tuyt i, hm sin, hm cos - Lnh Read()/readln(); - Lnh write()/writeln(); - If then else ; For tin For lựi While Hoạt động 2: Rèn luyện kĩ a Mục tiêu: - Học sinh biết nhận xét, phân tích giải hoàn chỉnh toán b Nội dung: Viết chơng trình tính đa hình tổng số chia hết cho phạm vi từ đến N (với N nhập từ bàn phím) c Các bớc tiến hành: HNG DN CA GIO VIấN Xỏc nh bi toỏn - Chiu ni dung bi lờn bng - Chia lp thnh nhúm Nhúm 1: Nờu cõu hi phõn tớch Nhúm 2: Tr li cõu hi phõn tớch ca nhúm - Giỏo viờn gúp ý b sung cho c hai nhúm rốn luyn k nng lp trỡnh - Chia lp thnh hai nhúm - Yờu cu: Vit chng trỡnh hon thin lờn giy A0 Trang -2 - HOT NG CA HC SINH Quan sỏt, theo dừi bi v nh hng ca giỏo viờn xỏc nh bi toỏn - Nhúm 1: + D liu vo + D liu + Cỏc nhim v chớnh phi thc hin - Nhúm 2: + S N + iu kin cú s chia ht cho v + Nhp d liu tớnh tng theo iu kin a kt qu mn hỡnh Lm vic theo nhúm - Tho lun theo nhúm vit chng Giỏo ỏn Tin hc 11 Trng THPT Cỏt Ngn - Thu phiu hc tp, treo kt qu lờn trỡnh bng Gi hc sinh ca nhúm khỏc nhn - Bỏo cỏo kt qu xột ỏnh giỏ v b sung - Nhn xột, ỏnh giỏ v b sung nhng Chun húa kin thc bng chng thiu sút ca nhúm khỏc trỡnh mu ca giỏo viờn Thc hin chng Theo dừi v ghi nh trỡnh, nhp d liu hc sinh thy kt qu ca chng trỡnh Cng c Nhng ni dung ó hc - Giỏo viờn yờu cu hc sinh nhc li mt s ni dung chớnh ó c ụn tit hc Cõu hi v bỡa v nh - Chun b kin thc cho tit sau kim tra hc kỡ 1: Xem li ton b cỏc kin thc ó c ụn tp, c bit chỳ trng cu trỳc lp v r nhỏnh kiu mng Ngy son: 2/12/2010 Tit PPCT: 18 KIM TRA HC Kè 1 MC TIấU CN NH GI - Kim tra kt qu tip thu ca hc sinh t u nm hc n - ỏnh giỏ k nng phõn tớch mt bi toỏn v t lp trỡnh trờn giy - Cú thỏi t giỏc, tớch cc lm bi kim tra MC CH YấU CU CA - Kin thc: Hc sinh nm c cỏc kin thc v kiu d liu c bn, kiu d liu cú cu trỳc Cỏc hm chun thụng dng Cu trỳc vo/ra d liu, cu trỳc r nhỏnh v lp - K nng: Cú k nng phõn tớch bi toỏn, vit chng trỡnh CHUN B - Giỏo viờn chun b kim tra - Hc sinh chun b y kin thc ó c hc, ụn NI DUNG BI V P N - Cu trỳc : cõu kim tra hiu lớ thuyt, cõu lp trỡnh, thi gian lm bi 45 phỳt, hỡnh thc thi vit trờn giy - Ni dung : Cõu 1: Hóy phõn bit k thut biờn dch v thụng dch Cõu 2: So sỏnh s ging v khỏc ca cu trỳc For v While Cho chng trỡnh cú s dng cu trỳc For nh sau: var i:byte Begin For i:=1 to 30 write(i:4); Readln; Trang -3 - Giỏo ỏn Tin hc 11 Trng THPT Cỏt Ngn End Hóy vit li chng trỡnh bng cỏch thay cu trỳc For bng cu trỳc While Cõu 3: Vit chng trỡnh nhp mt mng s nguyờn dng N, m s phn t chia ht cho hoc dóy s t n N P N V BIU IM Cõu 1: (2 im) Biờn dch: Bc 1: Duyt, phỏt hin li, kim tra tớnh ỳng n ca lnh chng trỡnh ngun Bc 2: Dch ton b chng trỡnh ngun thnh mt chng trỡnh trờn ngụn ng mỏy (thun tin cho cỏc chng trỡnh n nh v cn thc hin nhiu ln) - thụng dch: Bc 1: Kim tra tớnh ỳng n ca lnh tip theo chng trỡnh ngun Bc 2: Chuyn lnh ú thnh ngụn ng mỏy Bc 3: thc hin cỏc cõu lnh va c chuyn i (phự hp vi mụt trng i thoi gia ngi v mỏy) Cõu 2: (4 im) - ging: For v While u cựng l cu trỳc lp - Khỏc : For l cu trỳc lp cú s ln ó bit trc, ngc li while ; cu trỳc lp cú s ln cha xỏc nh Var i:byte Begin i:=1; While i C X.i D X(i) (Thụng hiu) Trong ngụn ng lp trỡnh Pascal, in mt xõu kớ t mn hỡnh theo th t ngc li ca cỏc kớ t xõu (Vd: abcd thnh dcba), on chng trỡnh no sau õy thc hin vic ny? A For i:=1 to length(S) write(S[i]); B For i:=length(S) downto write(S[i]); C For i:=length(S) downto write(S]); D For i:=1 to length(S) div write(S[i]); (Vn dng) Di õy l mt phn ca chng trỡnh Pascal: Function vd(a,b,c:integer):integer; Begin If (a>=b) and(a>=c) then vd:=a; If (b>=a) and(b>=c) then vd:=b; If (c>=a) and(c>=b) then vd:=c; End Gi s nhp d liu sau: write(vd(6,5, 8)); Sau chy chng trỡnh ta thu c kt qu gỡ? A B C D 12 II Phn t lun: (Thụng hiu) Cho chng trỡnh sau: Program vidu; Var f:text; begin assign(f,vidu.inf); readln(f.n); n:=n+1; write(n= ,n); a Tỡm v sa li cỳ phỏp chng trỡnh trờn b Cho bit chng trỡnh trờn thc hin cụng vic gỡ? (Vn dng) Vit hm tỡm giỏ tr ln nht ca ba s nguyờn IV ỏp ỏn - Biu im: - Phn trc nghim: mi cõu tr li ỳng: 0,5im 1B 2B 3B 4C 5A 6B 7C - Phn t lun + Cõu 1a: im 1b: im - Phỏt hin c cỏc li thiu Begin v end im - bit chng trỡnh dựng tớnh v thụng bỏo mn hỡnh din tớch v chu vi hỡnh vuụng 1im + Cõu 2: 4.5 im Trang -85 - Giỏo ỏn Tin hc 11 Trng THPT Cỏt Ngn - Khai bỏo ỳng im - Vit c on tớnh v thụng bỏo mn hỡnh 2,5 im Mi li tr 0,2 im Trang -86 - [...]... {dem so chan, le} Sochan:=0;sole:=0; For i:=1 to n do If a[i] mod 2 =0 then sochan:=sochan+1 Else sole:=sole+1; Writeln(‘so chan:’,sochan:3,’so le:’,sole:3); {so nguyen to} J: =2; For i:=1 to n do While j sqrt(a[i]) then sonto:=sonto+1; Writeln(‘ so nguyen to:’, sonto:3); Readln End Bt2) bài tập 10 trang 80-SGK Chương trình: Var s: string [100 ]; dem,i:... trong mảng thoả mãn một điều kiện 2 Câu hỏi, bài tập về nhà - Cho 2 mảng A, B gồm n (n< =25 0) số nguyên Hãy viết chương trình xây dựng mảng C[1 n], trong đó C[i] là tổng của 2 phần tử thứ i thuộc mảng A và mảng B (tức là: C[i] = A[i] + B[i]) - Xem trước vídụ 2 và ví dụ 3/trang 57, 58 sgk Trang -13 - Giáo án Tin học 11 – Trường THPT Cát Ngạn Ngày soạn: 02/ 1 /20 11 PPCT: 23 §11 KIỂU MẢNG (Tiết 3) I Mục đích,... ’); readln(k); S := 0; {khoi tao S ban dau} {tinh tong} For i:=1 To n Do If A[i] mod k = 0 Then S := S + A[i]; Writeln(‘Tong can tinh la ’, S); End -Giá trị k và Biến S := 0 - Lên bảng trình bày Chạy thử chương trình * Chạy thử chương trình với 1 N = 8 A: 5, 6, -8, 13, 24 , 7, -4, - 12 và k =3 bộ giá trị: A 5 6 - 8 13 24 7 -4 i 1 A[i] mod 2 3 S 0 0 2 3 4 5 6 7 12 8 0 -2 1 0 1 -1 0 6 6 6 30 30 30 18 3 Hoạt... minh hoạ - Ra: Trang -27 - Giáo án Tin học 11 – Trường THPT Cát Ngạn A 4 1 5 2 1 3 2 4 3 5 7 6 3 Theo dõi ví dụ minh hoạ B 1 2 3 4 5 6 Ban đầu: mọi B[i] = 0 Hỏi: mỗi B[i] được tạo mới bằng bao nhiêu? Tóm lại: B[i] = A[1] + Tl: (2- 3hs) …+ A[i] Khai báo: + k/báo mảng + biến đơn Phần thân: B1: tạo mảng A B2: xd mảng B theo A B3: In mảng B i = ∑A[j ] j=1 GV minh hoạ một số phần tử: B[1], B [2] , B[3] Tl: -... thuết còn lại trong bài, bao gồm các thủ tục và hàm liên quan đến xâu, sách giáo khoa trang 70 - 72 Ngày soạn: 4 /2/ 2011 Bài 12: KIỂU XÂU(Tiết 2) PPCT: 31 I: Mục tiêu: 1 Kiến thức: - Hiểu được lợi ích của các hàm và thủ tục liên quan đến xâu tring ngôn ngữ lập trình Pascal - Nắm được cấu trúc ching và chức năng của một số hàm liên quan đến xâu 2 Kỹ năng: - Bước đầu sử dụng được một số hàm, thủ tục thông... array[1 100 ] of integer; Begin Write(‘Nhap n = ’); readln(n); {tao mang} For i:=1 To n Do begin write(‘phan tu thu ’,i,’ =’); readln(A[i]); end; am := 0; duong := 0; {dem} For i:=1 To n Do If A[i] >0 Then duong := duong +1 Else if A[i] ... bng thut toỏn hoỏn i (lp 10) ; -Khai bỏo c mng, tham chiu c cỏc phn t ca mng Trang -10 - Giỏo ỏn Tin hc 11 Trng THPT Cỏt Ngn Ngy son: 21 / 12/ 2 010 PPCT: 22 Đ11 KIU MNG (Tit 2) I Mc ớch, yờu cu Kin... d v b s Pitago: - Hi : kim tra b ba s a, b, c bt kỡ a2 = b2 + c2 cú phi l b Pitago, ta pah kim tra cỏc b2 = a2 + c2 ng thc no? c2 = a2 + b2 Chiu chng trỡnh mu lờn bng Son chng trỡnh vo mỏy theo... Hot ng 3: Cng c (2ph) Cu trỳc lnh: While v For V nh lm cỏc bi tip theo ************************* Trang -20 - Giỏo ỏn Tin hc 11 Trng THPT Cỏt Ngn PPCT: 26 -27 Ngy son: 10/ 1 /20 11 BI THC HNH