Giáo án môn Tin học khối 11 - Bài 14: Kiểu xâu (tiết 2)

-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â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 được một số hàm và thủ tục để gi[r]

SỞ GIÁO DỤC & ĐÀO TẠO LAI CHÂU – TRƯỜNG THPT TÂN UYÊN Tiết 30 i Ngày soạn Ngày giảng 11/12/09 /12/09 NĂM HỌC 2009-2010 Bài 14 KIỂU XÂU (TIẾT 2) Môc tiªu Kiến thức: -Biết lợi ích các hàm và thủ tục liên quan 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 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 Tư duy: - Logic các ki ểu đ ã học tạo ta khả lập trình với các chương trình phức tạp Thái độ: - Chú ý nhiệt tình, tư tốt lập trình Hăng hái xây dựng bài ii iii ChuÈn bÞ bµi gi¶ng Phương tiện: - GV: Giáo án, bài giảng điện tử - HS: Sách giáo khoa, ghi Xem trước bài học Phương pháp dạy học -Gợi mở vấn đáp -§µm tho¹i -Đặt vấn đề TiÕn tr×nh d¹y häc KiÓm tra bµi cò: - Khai báo biến: VAR tên_biến : STRING[độ dài lớn xâu]; - Nhập xuất giá trị cho biến xâu: read/readln(); write/writeln(); - Tham chiếu đến ký tự xâu: tên_biến[chỉ_số] - Phép ghép xâu: ký hiệu là +, sử dụng để ghép nhiều xâu thành xâu - Các phép so sánh: =, <>, >, <, <=, >=: thực việc so sánh hai xâu Néi dung bµi gi¶ng: Hoạt động Tìm hiểu số hàm và thủ tục chuẩn liên quan xâu ngôn ngữ lập trình Pascal Hoạt động giáo viên Giới thiệu cấu trúc chung hàm length(st) lên bảng - Hỏi: Ý nghĩa Length và st? Hoạt động cua học sinh Quan sát cấu trúc chung - Length: là tên hàm, có nghĩa là độ dài, st: là GV: Đỗ Tiến Vượng Trường THPT Tân Uyên – Tân Uyên_Lai Châu Lop11.com Trang SỞ GIÁO DỤC & ĐÀO TẠO LAI CHÂU – TRƯỜNG THPT TÂN UYÊN - Chiếu chương trình ví dụ: 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 - Hỏi: Chức hàm length() là gì? - Chiếu đề bài tập ứng dụng: Viết chương trình nhập xâu, in màn hình số ký tự ‘a’ có xâu Giới thiệu cấu trúc chung 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 - Hỏi: Chức hàm upcase()? - Chiếu bài tập ứng dụng: Viết chương trình nhập xâu, in màn hình xâu đó dạng in hoa NĂM HỌC 2009-2010 biểu thức xâu ký tự - Quan sát chương trình để dự tính kết - Kết 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 hàm Upcase - Quan sát chương trình để dự tính kết - Kết là: H - Quan sát kết chương trình - Cho giá trị là chữ cái in hoa ch Var st:string; Begin readln(st); For i:=1 to length(st) write(upcase(st[i])); End Hoạt động Hàm Pos Giới thiệu cấu trúc chung hàm Pos Hoạt động giáo viên Hoạt động cua học sinh GV: Đỗ Tiến Vượng Trường THPT Tân Uyên – Tân Uyên_Lai Châu Lop11.com Trang SỞ GIÁO DỤC & ĐÀO TẠO LAI CHÂU – TRƯỜNG THPT TÂN UYÊN Giới thiệu cấu trúc chung hàm Pos(s1,s2) - Chiếu chương trình ví dụ: Var vt:byte; Begin vt:=Pos(‘cd’, ‘abcdefcd’); Write(vt); 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 - Hỏi: Chức hàm pos? NĂM HỌC 2009-2010 Quan sát cấu trúc chung hàm Pos và các ví dụ để biết chức - Quan sát chương trình để dự tính kết - Kết là: - Quan sát kết chương trình - Hàm cho giá tri là số nguyên là vị trí xâu st2 xâu st2 - Bằng không - Thay tham số hàm Pos chương trình Pos(‘k’, ‘abc’) Hỏi kết hàm bao nhiêu? Var st:string; - Chiếu bài tập ứng dụng: Viết chương trình nhập vào xâu st Xét xem xâu có dấu - Có thể sử dụng For để tìm dấu cách cách hay không? xâu - Hỏi: Có cách giải nào khác? HOẠT ĐỘNG Hàm Copy, thủ tục Delete Hoạt động giáo viên Giới thiệu cấu trúc chung hàm copy(st,vt,n) - Chiếu chương trình ví dụ: Var st:string; Begin st:=copy(‘bai tap’,3,4); 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 Hoạt động cua học sinh Quan sát cấu trúc chug hàm copy và ví dụ để biết chức - Quan sát chương trình để dự tính kết - Kết là: ‘i ta’ - Quan sát kết chương trình - Hàm cho giá trị là xâu ký tự lấy GV: Đỗ Tiến Vượng Trường THPT Tân Uyên – Tân Uyên_Lai Châu Lop11.com Trang SỞ GIÁO DỤC & ĐÀO TẠO LAI CHÂU – TRƯỜNG THPT TÂN UYÊN - Hỏi: Chức hàm copy? NĂM HỌC 2009-2010 xâu st, gồm n ký tự bắt đầu vị trí vt - Thay các tham số hàm copy chương trình ví dụ trên sau và hỏi kết in màn hình: Copy(‘abc’,1,5) Copy(‘abc’,5,2) Copy(‘abc’,1,0) - Thực chương trình để học sinh thấy kết Giới thiệu cấu trúc chung thủ tục delete(st,vt,n); - Chiếu chương trình ví dụ: Var st:string; 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 - Hỏi chức thủ tục delete(); Cho giá trị là: ‘abc’ Cho giá trị là xâu rỗng Cho giá trị là xâu rỗng - Quan sát kết chương trình để kiểm nghiệm suy luận Quan sát cấu trúc chung thủ tục Insert và các ví dụ - Quan sát chương trình để dự tính kết st=’Hai’ - Quan sát kết chương trình - Thủ tục thực việc xóa biến xâu st gồm n ký tự, vị trí vt st:= ‘’; xâu rỗng st:= ‘abc’; - Thay lệnh gán st:= ‘HaNoi’; và thủ tục xóa st:= ‘abc’; các lệnh sau và hỏi kết in màn hình st:=’abc’; Delete(st,1,5); st:=’abc’; Delete(st,5,2); Var st:string; st:=’abc’; Delete(st,1,0); begin - Chiếu bài tập ứng dụng: Viết chương trình readln(st); nhập xâu và xoá các dấu cách thừa while st[1]= ‘ ’ delete(st,1,1); đầu xâu writeln(st); readln; end HOẠT ĐỘNG Giới thiệu cấu trúc chung thủ tục Insert Hoạt động giáo viên Hoạt động cua học sinh GV: Đỗ Tiến Vượng Trường THPT Tân Uyên – Tân Uyên_Lai Châu Lop11.com Trang SỞ GIÁO DỤC & ĐÀO TẠO LAI CHÂU – TRƯỜNG THPT TÂN UYÊN Giới thiệu cấu trúc chung thủ tục Insert(st1,st2,vt); - Chiếu chương trình ví dụ: Var st1,st2:string; 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? - Thực chương trình để học sinh thấy kết - Hỏi chức thủ tục insert(); NĂM HỌC 2009-2010 Quan sát cấu trúc chung thủ tục Insert - Quan sát chương trình để dự tính kết - Kết st2=’Ha Noi’ - Quan sát kết chương trình - Thủ tục thực việc chèn xâu st1 vào biến xâu st2 bắt đầu vị trí vt st2= ‘efabc’; - Thay lệnh gán st2:=‘HaNoi’; và thủ tục chèn st2= ‘abcef’; các lệnh sau và hỏi kết quả: st2:=‘ef’; Insert(‘abc’,st2, 5); st2:=‘ef’; Insert(‘abc’,st2, 0); HOẠT ĐỘNG Rèn luyện kĩ vận dụng hàm và thủ tục 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 cua học sinh Quan sát, suy nghĩ để trả lời - Hỏi: Trong bài này, ta cần sử dụ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 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 hóa lại cho học sinh Thảo luận theo nhóm để viết chương trình - Thông báo kếtquả - Nhận xét và bổ sung thiếu sót nhóm khác Quan sát và ghi nhớ - Vào: Một xâu ký tự - Ra: Một xâu có ký trắng hai từ - Xoá dấu cách thừa đầu xâu và cuối xâu - Hỏi: Các nhiệm vụ chính giải bài - Xoá các dấu cách thừa hai từ toán này? - Hàm Pos(), thủ tục delete(); GV: Đỗ Tiến Vượng Trường THPT Tân Uyên – Tân Uyên_Lai Châu Lop11.com Trang SỞ GIÁO DỤC & ĐÀO TẠO LAI CHÂU – TRƯỜNG THPT TÂN UYÊN NĂM HỌC 2009-2010 Giáo viên soạn sẵn các ví dụ này để tiện cho học sinh theo dõi trên màn hình việc chạy thử và không làm thời gian ngồi viết chương trình Với ví dụ, giáo viên sâu vào câu lệnh trực tiếp đáp ứng yêu cầu ví dụ, các em tiếp thu nhanh Một số ví dụ : VD : Ví dụ : Nhập xâu, viết màn hình xâu dài Program vd1 ; Uses crt ; Var s1,s2 : String ; Begin Clrscr ; Write('Nhap xau thu : ') ; Readln(s1) ; Write('Nhap xau thu : ') ; Readln(s2) ; If length(s1) > Length(s2) then Write(s1) else Write(s2); Readln ; End Ví dụ : Nhập xâu, kiểm tra xem ký tự đầu tiên VD : xâu S1 có trùng với ký tự cuối cùng xâu S2 Program vd2 ; hay không ? Uses crt ; Var s1,s2 : String ; x : Byte ; Begin Clrscr ; Write('Nhap xau thu : '); GV: Đỗ Tiến Vượng Trường THPT Tân Uyên – Tân Uyên_Lai Châu Lop11.com Trang SỞ GIÁO DỤC & ĐÀO TẠO LAI CHÂU – TRƯỜNG THPT TÂN UYÊN NĂM HỌC 2009-2010 Readln(s1) ; Write('Nhap xau thu : '); Readln(s2) ; x := length(s2) ; If s1[1] = s2[x] then Write('Trung nha') else Write('Khac nhau'); Readln ; End VD : Ví dụ : Nhập xâu, viết màn hình xâu đó theo Program vd3 ; thứ tự ngược lại các ký tự xâu Uses crt ; Var i,k : Byte ; a : String ; Begin Clrscr ; Write('Nhap xau : ') ; Readln(a) ; k := length(a) ; For i := k downto Write(a[i]) ; Readln ; End VD : Ví dụ : Nhập xâu, viết màn hình xâu đó Program vd4 ; đã bỏ tất các ký tự là dấu cách Uses crt ; Var i,k : Byte ; GV: Đỗ Tiến Vượng Trường THPT Tân Uyên – Tân Uyên_Lai Châu Lop11.com Trang SỞ GIÁO DỤC & ĐÀO TẠO LAI CHÂU – TRƯỜNG THPT TÂN UYÊN NĂM HỌC 2009-2010 a,b : String ; Begin Clrscr ; Write('Nhap xau : ') ; Readln(a) ; k := length(a) ; b :='' ; For i := to k if a[i] <> '' then b := b+a[i] ; Write(b) ; Readln ; End VD : Ví dụ : Nhập xâu, viết màn hình xâu gồm Program Xulixau ; các ký tự số xâu đó Uses crt ; Var s1,s2 : String ; i : Byte ; Begin Clrscr ; Write('Nhap xau s1 : ') ; Readln(s1) ; s2 := '' ; For i := to length(s1) If ('0'<s1[i]) and (s1[i]<='9') then s2 := s2 + s1[i] ; Write(s2); Readln ; GV: Đỗ Tiến Vượng Trường THPT Tân Uyên – Tân Uyên_Lai Châu Lop11.com Trang SỞ GIÁO DỤC & ĐÀO TẠO LAI CHÂU – TRƯỜNG THPT TÂN UYÊN NĂM HỌC 2009-2010 End Cñng cè: 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,st2) - Hàm UpCase(ch) DÆn dß: - Giải bài tập số 10 trang 80 iv NhËn xÐt  Phương pháp:  HiÖu qu¶ sö dông:  HiÖu qu¶ SD TBDH:  ND cÇn ®iÓu chØnh:  Nhận xét giáo viên hướng dẫn: GV: Đỗ Tiến Vượng Trường THPT Tân Uyên – Tân Uyên_Lai Châu Lop11.com Trang