Giáo án chi tiết lớp 11 Bài 12: Kiểu xâu. Tiết theo PPCT: 28. Ngời soạn: GV Phạm Anh Tùng. Ngày soạn: 16 tháng 11 năm 2009. I. Mục đích, yêu cầu: 1. Mục đích: - Giúp học sinh 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âu của ngôn ngữ lập trình Pascal. 2. Yêu cầu: Giáo viên: - Soạn giáo án trớc khi lên lớp. Học sinh: - Đọc trớc sách giáo khoa ở nhà. - Làm bài tập trớc khi đến lớp. - Sách giáo khoa và vở ghi chép bài. Thiết bị dạy học: - Máy chiếu đa năng, phiếu học tập, sách giáo khoa, và các tài liệu học tập, II. Tiến trình lên lớp: A. ổn định lớp: - Sĩ số: - Số học sinh có mặt: B. Kiểm tra bài cũ: Câu hỏi: Kiểu xâu có mấy cách khai báo? mỗi cách khai báo hãy viết cú pháp và lấy ví dụ cụ thể. Đáp án: Kiểu xâu có 1 cách khai báo: khai báo trực tiếp. VAR <tên_biên_xâu> : STRING[độ_dài_tối_đa_cua_xâu]; VD: VAR a,b : string[15]; C. Nội dung bài học: Hoạt động 1: Tìm hiểu về một số hàm và thủ tục chuẩn liên quan đến xâu trong ngôn ngữ lập trình Pascal. a. Mục tiêu: - Học sinh biết đợc một số hàm và thủ tục liên quan đến xâu. Nắm đợc 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 xóa đi trong 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 của xâu st2. - Hàm copy(st,vt,n): Cho giá trị là một xâu kí tự đợc lấy trong 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 length(st): Cho giá trị số lợng độ dài 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 trong xâu st2. - Hàm upcase(ch): Cho giá trị là kí tự hoa tng ứng với kí tự ch. c. Các bớc tiến hành: Hoạt động của Giáo viên Hoạt động của Học sinh 1. Giới thiệu cấu trúc chung của hàm length(st) lên bảng. - Hỏi: ý nghĩa của length và của st? - Chiếu chơng trình ví dụ: 1. Quan sát cấu trúc chung. - Length: là tên hàm, có ý nghĩa là độ dài, st: là một biểu thức xâu kí tự. 1/28 VAR st: string; BEGIN st:= Ha Noi; write(length(st)); readln; END. - Hỏi: Kết quả của chơng trình in ra màn hình? - Thực hiện 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 tơng ứng: Viết chơng trình nhập một xâu, in ra màn hình số kí tự a có trong xâu. 2. 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 quả của chơng trình ra màn hình? - Thực hiện 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 ra màn hình xâu đó dạng in hoa. 3. Giới thiệu cấu trúc chung của hàm pos(s1,s2). - Chiếu chơng trình ví du: VAR vt: byte; BEGIN vt:= pos(cd , abcdefcd); write(vt); readln; END. - Hỏi: Kết quả của chơng trình in ra màn hình? - Thực hiện 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 trong chơng trình bằng 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 trong xâu có dấu cách hay không? - Quan sát chơng trình để dự tính kết quả. - Kết quả là: 6. - Quan sát kết quả của chơng trình. - Hàm cho số lợng kí tự của xâu st1. 2. 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 quả của 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) do write(upcase(st[i])); readln; END. 3. Quan sát cấu trúc chung của hàm pos và các ví dụ để biết chức năng. - Quan sát chơng trình để dự tính kết quả. - Kết quả là: 3. - Quan sát kết quả của chơng trình. - hàm cho gía trị là một số nguyên là vị trí của xâu st2 trong xâu st2. - Bằng không 0. VAR st : string; BEGIN readln(st); If pos( ,st) < > 0 then write(Co) Else write(khong); 2/28 - Hỏi: có cách giải nào khác? 4. Giới thiệu cấu trúc chung của 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 quả của chơng trình in ra màn hình? - Thực hiện chơng trình để học sinh thấy kết quả. - Hỏi: Chức năng của hàm copy? - Thay các tham số của hàm copy trong ch- ơng trình ví dụ trên nh sau và hỏi kết quả in ra màn hình: Copy(abc,1,5); Copy(abc,5,2); Copy(abc,1,0); - Thực hiện chơng trình để học sinh thấy kết quả. 5. Giới thiệu cấu trúc chung của 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 quả của chơng trình in ra màn hình? - Thực hiện 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:= Ha Noi và thủ tục xóa bởi các lệnh sau và hỏi kết quả in ra 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à xóa đi các dấu cách thừa ở đầu xâu. 6. Giới thiệu cấu trúc chung của thủ tục Insert(st1,st2,vt). - Chiếu chơng trình ví dụ: VAR st1, st2: string; END. - Có thể sử dụng For để tìm dấu cách trong xâu. 4. Quan sát cấu trúc chung của hàm copy và ví dụ để biết chức năng. - Quan sát chơng trình để dự tính kết quả. - Kết quả là: i ta; - Quan sát kết quả của chơng trình. - Hàm cho giá trị là một xâu kí tự đợc lấy trong xâu st, gồm n kí tự bắt đầu tại vị trí vt. 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 quả của chơng trình để kiểm nghiệm suy luận. 5. Quan sát cấu trúc chung của thủ tục và các ví dụ. - Quan sát chơng trình để dự tính kết quả. - st = Hai - Quan sát kết quả của chơng trình. - Thủ tục thực hiện việc xóa đi trong 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 : string; BEGIN readln(st); while st[1] = do delete(st,1,1); writeln(st); readln; END. 6. Quan sát cấu trúc chung của thủ tục Insert. - Quan sát chơng trình để dự tính kết quả. 3/28 BEGIN st2:= HaNoi; st1:= ; insert(st1,st2,3); write(st); readln; END. - Hỏi: Kết quả của chơng trình in ra màn hình? - Thực hiện chơng trình để học sinh thấy kết quả. - Hỏi: Chức năng của thủ tục Insert()? - Thay lệnh gán st2:= Ha Noi; và thủ tục chèn bởi các lệnh nh sau và hỏi kết quả: st2:= ef; insert(abc,st2,5); st2:= ef; insert(abc,st2,0); - Kết quả: st2 = Ha Noi - Quan sát kết quả của chơng trình. - Thủ tục thực hiện việc chèn xâu st1 vào trong biến xâu st2 bắt đầu tại vị trí vt. st2 = efabc; st1 = abcef Hoạt động 2: Rèn luyện kĩ năng 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 quyết một bài toán đơn giản. Linh hoạt trong 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 một xâu và xóa đi các dấu cách thừa có trong xâu, chỉ để lại một dấu cách giữa hai từ. c: Các bớc tiến hành: Hoạt động của Giáo viên Hoạt động của Học sinh 1. Xác định bài toán. - Chiếu nội dung đề bài lên bảng. - Xác định dữ liệu vào, dữ liệu ra. - Hỏi: các nhiệm vụ chính khi giải quyết bài toán này? - Hỏi: Trong bài này, ta cần sử dụng những hàm và thủ tục nào? 2. Chia lớp làm 3 nhóm. Yêu cầu viết ch- ơng trình lên bìa trong. - 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. 3. 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. 1. Quan sát, suy nghĩ để trả lời. - Vào: một xâu kí tự bất kì. - Ra: Một xâu chỉ có 1 kí tự trắng giữa hai từ. - Xóa mọi dấu cách thừa đầu và cuối xâu. - Xóa các dấu cách thừa giữa hai từ. - Hàm pos(), thủ tục delete(); 2. 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. 3. Quan sát và ghi nhớ. D. Củng cố bài học: - 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); E. Bài tập về nhà: - Xem lại bài học. - Giải bài tập 10 trang 80. - Viết chơng trình nhập vào một xâu. In ra màn hình số từ có trong xâu. F. Đúc rút kinh nghiệm: 4/28 ………………………………………………………………………………………………………………………… ………………………………………………………………………………………………………………………… ………………………… 5/28 . Giáo án chi tiết lớp 11 Bài 12: Kiểu xâu. Tiết theo PPCT: 28. Ngời soạn: GV Phạm Anh Tùng. Ngày soạn: 16 tháng 11 năm 2009. I. Mục đích, yêu cầu: 1. Mục. có trong xâu. F. Đúc rút kinh nghiệm: 4 /28 ………………………………………………………………………………………………………………………… ………………………………………………………………………………………………………………………… ………………………… 5 /28 . st : string; BEGIN readln(st); If pos( ,st) < > 0 then write(Co) Else write(khong); 2 /28 - Hỏi: có cách giải nào khác? 4. Giới thiệu cấu trúc chung của hàm copy(st,vt,n). - chiếu chơng