KiÕn thøc - Biết được lợi ích của các hàm và thủ tục liên quan đến xâu trong ngôn ngữ lập trình Pascal.. - Nắm được cấu trúc chung và chức năng của một số hàm và thủ tục liên quan đến x©[r]
(1) Gi¸o ¸n gi¶ng d¹y Bé m«n: Tin häc 11 Bµi 12: KIỂU XÂU (tiÕp) (TiÕt PPCT: 28) Ngµy so¹n: …………………………… Ngµy ®¨ng ký gi¸o ¸n: Người duyệt giáo án (TTCM duyệt, BGH duyệt): I Môc tiªu: KiÕn thøc - Biết lợi ích các hàm và thủ tục liên quan đến xâu ngôn ngữ lập trình Pascal - Nắm cấu trúc chung và chức số hàm và thủ tục liên quan đến x©u cña ng«n ng÷ lËp tr×nh Pascal KÜ n¨ng - Nhận biết và bước đầu sử dụng số hàm và thủ tục để giải số bài tập đơn giản liên quan II ChuÈn bÞ: Gi¸o viªn: Gi¸o ¸n gi¶ng d¹y, m¸y chiÕu ®a n¨ng Häc sinh: Sách giáo khoa, sách bài tập Tin học 10, ghi III hoạt động dạy và học Hoạt động 1: Tìm hiểu số hàm và thủ tục liên quan đến xâu ngôn ngữ lËp tr×nh Pascal a Môc tiªu - Học sinh biết số hàm và thủ tục liên quan đến xâu Nắm cấu trúc chung, hiÓu ®îc c¸c tham sè cña hµm vµ thñ tôc - BiÕt ®îc chøc n¨ng cña c¸c hµm vµ thñ tôc chuÈn b Néi dung - Thñ tôc Delete(st,vt,n) thùc hiÖn viÖc xo¸ ®i x©u st gåm n kÝ tù, b¾t ®Çu tõ vÞ trÝ vt - Thñ tôc Insert(st1,st2,vt) thùc hiÖn viÖc chÌn x©u st1 vµo x©u st2 b¾t ®Çu tõ vÞ trÝ vt - Hµm Copy(st,vt,n) cho gi¸ trÞ lµ mét x©u kÝ tù ®îc lÊy x©u st, gåm n kÝ tù liªn tiÕp b¾t ®Çu tõ vÞ trÝ vt cña x©u st - Hµm Post(st1,st2) cho gi¸ trÞ lµ vÞ trÝ xuÊt hiÖn ®Çu tiªn cña x©u st1 x©u st2 - Hàm UpCase(ch) cho giá trị là kí tự hoa tương ứng với kí tự ch c Các bước tiến hành Hoạt động giáo viên Hoạt động học sinh Giíi thiÖu cÊu tróc chung cña hµm Quan s¸t cÊu tróc chung length(st) lªn b¶ng - Length: là tên hàm, có nghĩa là độ dài, - Hái: ý nghÜa cña Length vµ cña st? st: lµ mét biÓu thøc x©u kÝ tù - Chiếu chương trình ví dụ: GV: §ç ThÞ Thu HiÒn Lop11.com (2) Gi¸o ¸n gi¶ng d¹y Bé m«n: Tin häc 11 Var st:string; Begin st:= ‘Ha Noi’; Write(length(st)); readln; End - Hỏi: Kết chương trình in màn h×nh? - Thực chương trình để học sinh thấy kÕt qu¶ - Hái: Chøc n¨ng cña hµm length() lµ g×? - Chiếu đề bài tập ứng dụng: Viết chương tr×nh nhËp mét x©u, in mµn h×nh sè kÝ tù ‘a’ cã x©u Giíi thiÖu cÊu tróc chung cña hµm Upcase(ch) - Chiếu chương trình ví dụ: Var ch:char; Begin ch:= ‘h’; Write(upcase(ch)); readln; End - Hỏi: Kết chương trình in màn h×nh? - Thực chương trình để học sinh thấy kÕt qu¶ - Hái: Chøc n¨ng cña hµm upcase()? - Chiếu bài tập ứng dụng: Viết chương tr×nh nhËp mét x©u, in mµn h×nh x©u đó dạng in hoa - Quan sát chương trình để dự tính kết qu¶ - KÕt qu¶ lµ: - Quan sát kết chương trình - Hàm cho số lượng kí tự xâu st Quan s¸t cÊu tróc chung cña hµm Upcase - Quan sát chương trình để dự tính kết qu¶ - KÕt qu¶ lµ: H - Quan sát kết chương trình - Cho gi¸ trÞ lµ ch÷ c¸i in hoa cña ch Var st:string; Begin readln(st); For i:=1 to length(st) write(upcase(st[i])); Giíi thiÖu cÊu tróc chung cña hµm Quan s¸t cÊu tróc chung cña hµm Pos(s1,s2) Post và các ví dụ để biết chức - Chiếu chương trình ví dụ: Var vt:byte; Begin - Quan sát chương trình để dự tính kết ch:= ‘h’; qu¶ vt:=Pos(‘cd’, ‘abcdefcd’); Write(vt); readln; End - Hỏi: Kết chương trình in màn h×nh? - KÕt qu¶ lµ: GV: §ç ThÞ Thu HiÒn Lop11.com (3) Gi¸o ¸n gi¶ng d¹y Bé m«n: Tin häc 11 - Thực chương trình để học sinh thấy kÕt qu¶ - Hái: Chøc n¨ng cña hµm pos? - Thay tham sè cña hµm Pos chương trình Pos(‘k’, ‘abc’) Hỏi kÕt qu¶ cña hµm b»ng bao nhiªu? - Chiếu bài tập ứng dụng: Viết chương tr×nh nhËp vµo mét x©u st XÐt xem x©u cã dÊu c¸ch hay kh«ng? - Quan sát kết chương trình - Hµm cho gi¸ trÞ lµ mét sè nguyªn lµ vÞ trÝ cña x©u st2 x©u st2 - B»ng kh«ng Var st:string; Begin readln(st); if post(‘ ’,st)<>0then write(‘Co’) else write(‘Khong’); End - Hái: Cã c¸ch gi¶i nµo kh¸c? - Có thể sử dụng For để tìm dấu cách x©u Giíi thiÖu cÊu tróc chung cña hµm Quan s¸t cÊu tróc chung cña hµm copy(st,vt,n) copy và ví dụ để biết chức - Chiếu chương trình ví dụ: - Quan sát chương trình để dự tính kết qu¶ Var st:tring; Begin st:=copy(‘bai tap’,3,4); Write(st); readln; End - Hỏi: Kết chương trình in màn h×nh? - KÕt qu¶ lµ: ‘i ta’ - Thực chương trình để học sinh thấy kÕt qu¶ - Quan sát kết chương trình - Hái: Chøc n¨ng cña hµm copy? - Hµm cho gi¸ trÞ lµ mét x©u kÝ tù ®îc - Thay c¸c tham sè cña hµm copy l©y x©u st, gåm n kÝ tù b¾t ®Çu t¹i vÞ chương trình ví dụ trên sau và hỏi kết trí vt qu¶ in mµn h×nh: Copy(‘abc’,1,5) Copy(‘abc’,5,2) Cho gi¸ trÞ lµ: ‘abc’ Copy(‘abc’,1,0) Cho gi¸ trÞ lµ x©u rçng - Thực chương trình để học sinh thấy Cho giá trị là xâu rỗng kÕt qu¶ - Quan sát kết chương trình để kiÓm nghiÖm suy luËn Giíi thiÖu cÊu tróc chung cña thñ Quan s¸t cÊu tróc chung cña thñ tôc tôc delete(st,vt,n); delete vµ c¸c vÝ dô - Chiếu chương trình ví dụ: GV: §ç ThÞ Thu HiÒn Lop11.com (4) Gi¸o ¸n gi¶ng d¹y Bé m«n: Tin häc 11 Var st:tring; Begin st:= ‘HaNoi’; delete(st,3,2); Write(st); readln; End - Hỏi: Kết chương trình in màn h×nh? - Thực chương trình để học sinh thấy kÕt qu¶ - Hái chøc n¨ng cña thñ tôc delete(); - Thay lÖnh g¸n st:= ‘HaNoi’; vµ thñ tôc xo¸ bëi c¸c lÖnh sau vµ hái kÕt qu¶ in mµn h×nh st:=‘abc’; Delete(st,1,5); st:=‘abc’; Delete(st,5,2); st:=‘abc’; Delete(st,1,0); - Chiếu bài tập ứng dụng: Viết chương tr×nh nhËp mét x©u vµ xo¸ ®i c¸c dÊu c¸ch thõa ë ®Çu x©u - Quan sát chương trình để dự tính kết qu¶ st= ‘Hai’ - Quan sát kết chương trình - Thñ tôc thùc hiÖn viÖc xo¸ ®i biÕn x©u st gåm n kÝ tù, b¾t ®Çu tõ vÞ trÝ vt st:=‘’; x©u rçng st:=‘abc’; st:=‘abc’; Var st:tring; begin readln(st); while st[1]= ‘ ’ delete(st,1,1); writeln(st); readln; end Giíi thiÖu cÊu tróc chung cña thñ Quan s¸t cÊu tróc chung cña thñ tôc tôc Insert(st1,st2,vt); Inser - Chiếu chương trình ví dụ: - Quan sát chương trình để dự tính kết Var st1,st2:tring; qu¶ Begin st2:= ‘HaNoi’; st1:= ‘ ’; Insert(st1,st2,3); Write(st); readln; End - Hỏi: Kết chương trình in màn h×nh? - KÕt qu¶ st2=‘Ha Noi’ - Thực chương trình để học sinh thấy kÕt qu¶ - Quan sát kết chương trình - Hái chøc n¨ng cña thñ tôc insert(); - Thay lÖnh g¸n st2:=‘HaNoi’; vµ thñ tôc - Thñ tôc thùc hiÖn viÖc chÌn x©u st1 vµo chÌn bëi c¸c lÖnh nh sau vµ hái kÕt qu¶: GV: §ç ThÞ Thu HiÒn Lop11.com (5) Gi¸o ¸n gi¶ng d¹y Bé m«n: Tin häc 11 st2:= ‘ef’; Insert(‘abc’,st2,5); st2:= ‘ef’; Insert(‘abc’,st2,0); biÕn x©u st2 b¾t ®Çu t¹i vÞ trÝ vt st2= ‘efabc’; st2= ‘abcef’; Hoạt động 2: Rèn luyện kĩ vận dụng hàm và thủ tục a Môc tiªu: - Học sinh biết sử dụng hàm và thủ tục để giải số bài toán đơn giản Linh ho¹t viÖc lùa chän hµm hoÆc thñ tôc b Néi dung - Viết chương trình nhập vào xâu và xóa các dấu cách thừa có xâu, để lại dấu cách hai từ c Các bước tiến hành Hoạt động giáo viên Xác định bài toán - Chiếu nội dung đề bài lên bảng - Xác định liệu vào, liệu Hoạt động học sinh Quan sát, suy nghĩ để trả lời - Hái: Trong bµi nµy, ta cÇn sö dông nh÷ng hµm vµ thñ tôc nµo? Chia líp lµm nhãm Yªu cÇu viÕt chương trình lên bìa - Thu phiÕu tr¶ lêi ChiÕu kÕt qu¶ lªn b¶ng Gäi häc sinh nhãm kh¸c nhËn xÐt, đánh giá và bổ sung Chiếu chương trình mẫu giáo viên đã viết để chính xác hoá lại cho học sinh - Hµm Pos(), thñ tôc delete(); - Vµo: Mét x©u kÝ tù bÊt k× - Ra: Mét x©u chØ cã kÝ tr¾ng gi÷a tõ - Hái: C¸c nhiÖm vô chÝnh gi¶i quyÕt - Xo¸ mäi dÊu c¸ch thõa ®Çu x©u vµ cuèi bµi to¸n nµy? x©u - Xo¸ c¸c dÊu c¸ch thõa gi÷a hai tõ Thảo luận theo nhóm để viết chương tr×nh - Th«ng b¸o kÕt qu¶ - NhËn xÐt vµ bæ sung nh÷ng thiÕu sãt cña nhãm kh¸c Quan s¸t vµ ghi nhí IV §¸nh gi¸ cuèi bµi Những hàm và thủ tục liên quan đến xâu Thñ tôc Delete(st,vt,n) ; Thñ tôc Insert(st1,st2,vt); Hµm Copy(st,vt,n); Hµm Length(st), Hµm Pos(st1,st); Hµm UpCase(ch) C©u hái vµ bµi tËp vÒ nhµ - Gi¶i bµi tËp sè 10 trang 80 - Viết chương trình nhập xâu In màn hình số từ có xâu - Xem phÇn néi dung cña bµi thùc hµnh sè 5, s¸ch gi¸o khoa 73 - Chuẩn bị số bài tập để thực hành GV: §ç ThÞ Thu HiÒn Lop11.com (6)