Ví dụ 3 : Nhập 1 xâu, viết ra màn - Gọi học sinh đọc đề bài và phân hình xâu đó theo thứ tự ngược lại của tích nội dung yêu cầu của đề.. - Đọc đề bài và xác định yêu cầu của bài toán..[r]
(1)Trường thực tập: Trường THPT Nguyễn Trung Trực Họ và tên giáo viên hướng dẫn : Trần Văn Kỹ Họ và tên sinh viên thực tập: Phạm Văn Dũng Năm học:2009-2010 Ngày soạn: 23/02/2010 Tiết PPCT: 30 Ngày dạy: 26/02/2010 Tuần: 25 MSSV:K31103309 Bài 12: KIỂU XÂU (tiết 2) I.Mục đích, yêu cầu : Kiến thức : - Ý nghĩa các hàm copy(S,vt,N), length(s), pos(s1,s2), upcase(ch) - Tìm hiểu số ví dụ để biết cách sử dụng hàm và thủ tục Kĩ : - Hiểu và sử dụng hàm, thủ tục để giải bài toán đơn giản Thái độ : - Giúp học sinh cảm thấy hiểu rõ lập chương trình giải các bài toán cần sử dụng kiểu liệu xâu II.Chuẩn bị: Giáo viên: giáo án, sách giáo khoa, slide Học sinh: sách giáo khoa, tập ghi chép III.Phương pháp, phương tiện: - Phương pháp : thuyết trình , vấn đáp - Phương tiện : bảng, phấn, máy chiếu, máy tính IV.Các bước tiến hành Ổn định lớp Đặt vấn đề: Tiết trước các em đã học cách khai báo và làm quen với phép ghép xâu, so sánh, và hai thủ tục delete(st, vt, n) và insert(s1, s2, vt) Tiết này các em làm quen với liên quan đến xử lý xâu Bài 12: Kiểu Xâu(tt) Bài giảng: Nội dung bài giảng Hoạt động GV Hoạt động trò Bài 12: Kiểu xâu (tiếp theo) 2) Các thao tác xử lí xâu: - Hãy cho biết ý nghĩa hàm - Tạo xâu gồm N kí tự c) hàm copy(S, vt, N) copy liên tiếp vị trí Ý nghĩa: Tạo xâu gồm N kí tự liên - Đọc lại ý nghĩa hàm copy vt xâu S tiếp vị trí vt xâu S Ví dụ 1: S1: = ‘De Thuong’ S2: = copy(S1, 4, 6); - Cho ví dụ hàm copy S2 = ‘Thuong’; Ví dụ 2: S1:= ‘Gia Dinh’ - Cho biết kết xâu S2 S2:= copy(S1,1,3); Lop11.com (2) S2= ‘Gia’; - Xâu S2= ‘Gia’ d) Hàm length(S) Ý nghĩa: Cho giá trị độ dài xâu S Ví dụ 1: S: = ‘11C5’; length(S) = 4; Ví dụ 2: S:= ‘Chu Van An’; length(S)=10; e) Hàm pos(s1, s2) Ý nghĩa: Cho vị trí xuất đầu tiên xâu s1 xâu s2 Ví dụ 1: s1: =‘me’; s2: = ‘ba me’; pos(s1, s2) = 4; Ví dụ 2: s1:=’em’; s2:=’ba me’; pos(s1, s2) = 0; f) Hàm upcase(ch): Giới thiệu ý nghĩa hàm upcase và cách sử dụng Ví dụ 1: ch: = ‘d’; upcase(ch) = ‘D’; Ví dụ 2: ch: = ‘E’; upcase(ch) = ‘E’; Một số ví dụ Ví dụ : Nhập vào họ tên hai người vào hai xâu, đưa màn hình xâu nào dài hơn, hai xâu thì xuất xâu thứ hai - Đoạn chương trình: Var a,b : String ; Begin Write('Nhap ho ten thu : ') ; Readln(a) ; Write('Nhap ho ten thu : ') ; Readln(b) ; If length(a) > length(b) - Hãy cho biết ý nghĩa hàm length - Cho ví dụ hàm length - Cho giá trị độ dài xâu S - Cho biết kết hàm - Cho giá trị là 10 - Hãy cho biết ý nghĩa hàm pos - Cho vị trí xuất đầu tiên xâu s1 xâu s2 - Cho ví dụ hàm pos - Vậy kết ví dụ là bao nhiêu? - Giá trị - Hãy cho biết ý nghĩa hàm upcase - Lắng nghe ghi bài - Cho ví dụ hàm upcase - Phân tích yêu cầu bài toán( Nhập xâu, xuất xâu dài thì xuất xâu thứ 2) - Viết lên bảng ví dụ cụ thể để mô - Cho học sinh xem đoạn chương trình và phân tích ý nghĩa dòng lệnh - Nhớ tham khảo sách các hàm vừa học Ứng dụng đúng hàm tính độ dài xâu để so sánh( hàm length) - Chú ý lắng nghe và ghi chép lại then Lop11.com (3) Write(a) else Write(b); Readln ; End Ví dụ : Nhập xâu, kiểm tra xem ký tự đầu tiên xâu thứ có trùng với ký tự cuối cùng xâu thứ hai hay không ? - Gọi học sinh đọc đề bài và phân tích yêu cầu đề bài và hướng giải bài toán - Chú ý truy xuất đến phần tử thứ i thì phải xác định tên biến xâu tiếp đến là i viết dấu ngoặc đóng [ ] Rồi liên hệ qua hàm length để tính chiều dài xâu( ứng với kí tự cuối cùng xâu) - Đọc đề bài và nhớ cách truy xuất phần tử xâu - Suy luận cách tính phần tử cuối cùng xâu thứ hai - Đoạn chương trình: Var a,b : String ; x : Byte ; Begin Write('Nhap xau thu : '); Readln(a) ; Write('Nhap xau thu : '); Readln(b) ; x := length(b) ; If a[1] = b[x] then Write('Trung nhau') else Write('Khac nhau'); Readln ; End - Cho học sinh xem đoạn chương trình và giải thích ý nghĩa dòng lệnh - Lắng nghe và ghi chép lại Ví dụ : Nhập xâu, viết màn - Gọi học sinh đọc đề bài và phân hình xâu đó theo thứ tự ngược lại tích nội dung yêu cầu đề các ký tự xâu - Giải thích mà cho i chạy từ đến n là for i:=1 to n do, còn cho i chạy ngược lại từ n thì dùng for i:=n downto Nhưng chú ý n đây là hàm length - Đọc đề bài và xác định yêu cầu bài toán - Đoạn chương trình: Var i,k : Byte ; a : String ; - Chú ý lắng nghe và ghi chép lại - Cho học sinh xem đoạn chương trình và giải thích ý nghĩa dòng lệnh - Hiểu ý nghĩa vòng lặp for…downto…do và dùng hàm length Lop11.com (4) Begin Write('Nhap xau : ') ; Readln(a) ; k := length(a) ; For i := k downto Write(a[i]) ; Readln ; End Ví dụ : Nhập xâu, viết màn hình xâu đó đã loại bỏ các dấu cách có - Gọi học sinh đọc đề bài và phân tích nội dung yêu cầu đề - Giải thích nên dùng xâu rỗng để chứa kí tự khác với dấu cách - Đoạn chương trình: Var i,k : Byte ; a,b : String ; Begin 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 - Cho hoc sinh xem đoạn chương trình và giải thích ý nghĩa dòng lệnh Ví dụ : Nhập xâu kí tự s1, tạo xâu s2 gồm các chữ số có xâu s1, xuất kết màn hình - Gọi học sinh đọc đề bài và phân tích nội dung yêu cầu đề - Giải thích khởi tạo xâu s2 rỗng để lưu trữ kí tự là số xâu s1 Phải có điều kiện để xác định số xâu s1 - Đoạn chương trình Program Xulixau ; Var s1,s2 : String ; i : Byte ; - Cho hoc sinh xem đoạn chương trình và giải thích ý nghĩa dòng lệnh - Đọc đề bài và xác định yêu cầu bài toán - Hiểu dùng xâu rỗng để lưu trữ kí tự khác dấu cách - Chú ý lắng nghe và ghi chép lại - Đọc đề bài và xác định yêu cầu bài toán - Hiểu dùng xâu rỗng và điều kiện để xác định số xâu s1 - Chú ý lắng nghe và ghi chép lại Begin Write('Nhap xau s1 : ') ; Lop11.com (5) Readln(s1) ; s2 := '' ; For i := to length(s1) If ('0'<=s1[i]) and (s1[i]<='9') then s2 := s2 + s1[i] ; Write(s2); Readln ; End Củng Cố: - Nhắc lại các hàm vừa học( copy, length, pos, upcase) - Chú ý xem lại các ví dụ SGK Dặn dò: - Về nhà xem lại bài và làm lại các ví dụ trên SGK - Xem và đọc trước bài tập thực hành số V Rút kinh nghiệm – Bổ sung: Giáo viên hướng dẫn phê duyệt Rạch giá ngày 23 tháng 02 năm 2010 Sinh viên thực tập Trần Văn Kỹ Phạm Văn Dũng Lop11.com (6)