Giáo án tiết 32. Bài 12 - Kiểu xâu được biên soạn với các nội dung chính: Mục tiêu, chuẩn bị phương tiện dạy học, phương pháp dạy học, tiến trình tổ chức bài học. Mời các bạn cùng tham khảo tài liệu để hiểu hơn về nội dung bài giáo án.
Giáo án tiết 32 – lớp 11 Người soạn: Đào Thị Thêm Tiết 32 Bài 12: KIỂU XÂU (tiết 2) I Mục tiêu Kiến thức: - Hiểu áp dụng số thủ tục hàm thông dụng kiểu xâu - Có thể cài đặt số chương trình đơn giản có sử dụng kiểu xâu - Phần minh họa với Pascal, học sinh cần nắm được: o Cách khai báo kiểu xâu o Ý nghĩa phép so sánh, phép ghép xâu o Ý nghĩa hàm chuẩn: length(s), copy(s,vt,n), pos(s1,s2), upcase(ch) Và thủ tục chuẩn: delete(st,vt,n), insert(s1,s2,vt) Kĩ năng: - Khai báo kiểu xâu - So sánh hai xâu - Nhận biết bước đầu sử dụng hàm, thủ tục chuẩn với kiểu xâu - Hoạt động nhóm tích cực - Thuyết trình thơng qua việc trình bày sản phẩm chung nhóm Tư duy, thái độ: - Có tinh thần hợp tác, tích cực tham gia học - Rèn tư lập trình logic trình lập trình giải toán Pascal II Chuẩn bị phương tiện dạy học Học sinh: Ôn kiến thức kiểu xâu học tiết 31 Giáo viên: Phiếu học tập, chương trình Pascal mẫu để giải tập giao cho học sinh thực hiện, bảng phụ, máy chiếu III Phương pháp dạy học - Phương pháp dạy học nhóm - Phương pháp dạy học nêu vấn đề giải vấn đề Giáo án tiết 32 – lớp 11 Người soạn: Đào Thị Thêm IV Tiến trình tổ chức học Ổn định tổ chức lớp học Kiểm tra cũ thông qua hoạt động “trò chơi khởi động”: (5 phút) Giáo viên(GV) thực phát cho nhóm tờ giấy A3 màu trắng, tờ giấy A4 khác màu (mỗi nhóm màu khác nhau), bút GV viết lên bảng chủ đề: “KIỂU XÂU” Yêu cầu học sinh nhớ lại kiến thức kiểu xâu học tiết 31, thư kí nhóm viết vào giấy A3 màu trắng tất thông tin mà thành viên nhóm nhớ Sau 90 giây, GV yêu cầu nhóm báo cáo kết kĩ thuật XYZ: Lần lượt nhóm đọc thơng tin mà nhóm nhớ kiểu xâu, viết to vào giấy màu A4 dán lên bảng Các nhóm sau khơng nêu thơng tin trùng với nhóm trước Nhóm nêu thơng tin trùng sau giây không nêu thêm thông tin bị loại GV tổ chức cho nhóm báo cáo quay vịng để tìm nhóm chiến thắng Sau kết thúc trò chơi, lớp thu sơ đồ tư kiến thức liên quan tới kiểu xâu Dự kiến sơ đồ tư thu được: Giáo án tiết 32 – lớp 11 Người soạn: Đào Thị Thêm Cuối cùng, Giáo viên nhận xét đánh giá hoạt động nhóm cho điểm nhóm Giáo án tiết 32 – lớp 11 Người soạn: Đào Thị Thêm Bài mới: Mở bài: (1 phút) - GV sử dụng thơ “Kiểu Xâu” để mở bài: Array mảng, string xâu Khai báo học chưa lâu Cứ var mà viết chẳng sai đâu Cộng ghép thêm vào xâu hết ngắn Lớn nhỏ khác so Hàm thời sẵn có length pos Thêm copy, upcase hàm Delete thủ tục xóa, insert chèn Pascal đâu có khơ khan Nếu mà chăm code vài Tác giả: Đào Thêm - GV: Các em thấy “Pascal đâu có khơ khan!” Và để chứng minh điều đó, hơm Cơ trị tìm hiểu tiếp phần Một số ví dụ Giáo án tiết 32 – lớp 11 Người soạn: Đào Thị Thêm Hoạt động 1: Tìm hiểu số ví dụ kiểu xâu (20 phút) Hoạt động giáo viên Hoạt động học sinh -GV: Đầu tiên tìm hiểu ví dụ trang 71 sách giáo khoa (SGK), GV trình chiếu Turbo Pascal -GV nhấn mạnh: cách khai báo biến xâu, việc nhập giá trị cho biến xâu biển kiểu đơn giản, -Học sinh (HS) quan sát cách sử dụng hàm length(s) lắng nghe Nội dung học Một số ví dụ Ví dụ Chương trình nhập họ tên hai người vào hai biến xâu đưa hình xâu dài hơn, đưa xâu nhập sau var a,b:string; begin write('Nhap ho ten nguoi thu nhat: '); Readln(a); write('Nhap ho ten nguoi thu hai: '); readln(b); if length(a) > length(b) then write(a) else write(b); readln end Giáo án tiết 32 – lớp 11 Hoạt động giáo viên Người soạn: Đào Thị Thêm Hoạt động học sinh Nội dung học -HS quan sát, dự đoán kết - test + test1: ‘Bui Minh Phuong’ ‘Dao Nhu Phuong’ Kết quả: ‘Bui Minh Phuong’ + test2: ‘Nguyen Khanh Huyen’ -GV test chương trình test, lần test GV gọi HS dự đoán kết trước chương trình Pascal in kết hình ‘Nguyen Thanh Huyen’ Kết quả: ‘Nguyen Thanh Huyen’ + test1: ‘Bui Minh Phuong’ ‘Dao Nhu Phuong’ + test2: ‘Nguyen Khanh Huyen’ ‘Nguyen Thanh Huyen’ Ví dụ Chương trình nhập vào hai xâu từ bàn phím kiểm tra kí tự xâu thứ có trùng với kí tự cuối xâu thứ hai không Giáo án tiết 32 – lớp 11 Hoạt động giáo viên Người soạn: Đào Thị Thêm Hoạt động học sinh -HS quan sát Nội dung học var a,b:string; x: byte; begin write('Nhap xau thu nhat: '); readln(a); write('Nhap xau thu hai: '); readln(b); x:= length(b); if a[1] = b[x] then write('Trung nhau') else write('Khong trung'); readln end -GV: Qua ví dụ em thấy cách thao tác với biến xâu dễ dàng biến kiểu đơn giản mà em học Và tìm hiểu tiếp ví dụ số trang 71 SGK để thấy cách tham chiếu tới kí tự xâu -GV trình chiếu ví dụ Turbo Pascal - HS trả lời câu hỏi Giáo án tiết 32 – lớp 11 Hoạt động giáo viên Người soạn: Đào Thị Thêm Hoạt động học sinh Nội dung học -Bộ test: ‘Nguyen Khanh Huyen’ ‘Nguyen Thanh Huyen’ -HS quan sát, dự đoán -Kết quả: Khong trung kết -HS trả lời câu hỏi Giáo án tiết 32 – lớp 11 Hoạt động giáo viên Người soạn: Đào Thị Thêm Hoạt động học sinh -GV đưa câu hỏi: “Các em thấy cách tham chiếu tới kí tự xâu giống với cách tham chiếu kiểu liệu mà em học?” -GV nhận xét câu trả lời HS đưa đáp án: Cách tham chiếu kí tự xâu giống cách tham chiếu mảng chiều, kí tự thứ i xâu S viết: S[i] Nội dung học var a,b:string; begin write('Nhap xau thu nhat: '); readln(a); write('Nhap xau thu hai: '); readln(b); if a[1] = b[length(b)] then write('Trung nhau') else write('Khong trung'); readln end -Bộ test: -GV thực test chương trình với -HS quan sát, lắng nghe test: ‘Nguyen Khanh Huyen’ ‘Nguyen Thanh HuyeN’ Giáo án tiết 32 – lớp 11 Hoạt động giáo viên Người soạn: Đào Thị Thêm Hoạt động học sinh ‘Nguyen Khanh Huyen’ Nội dung học -Kết quả: Trung ‘Nguyen Thanh Huyen’ -GV yêu cầu HS đưa dự đoán kết trước chương trình thực in kết hình Ví dụ Chương trình sau nhập xâu từ bàn phím đưa hình xâu viết theo thứ tự ngược lại var a:string;i:byte; begin write('Nhap xau: '); -GV đưa câu hỏi: Nếu không sử dụng biến x mà viết trực tiếp b[length(b)] chương trình có thực khơng? -HS quan sát trả lời readln(a); for i:=length(a) downto write(a[i]); readln end -GV nhận xét câu trả lời HS -HS quan sát kết đưa chương trình Pascal kiểm 10 Giáo án tiết 32 – lớp 11 Hoạt động giáo viên Người soạn: Đào Thị Thêm Hoạt động học sinh Nội dung học var s1:string;i:byte; begin -GV nhận xét câu trả lời HS, Sửa lỗi chương trình, test với số: ‘a b c d e’ For i:=1 to length(a) if a[i] ' ' then b:=b+ a[i]; write('Nhap xau S1: ');readln(S1); for i:=1 to length(s1) -HS quan sát kết if (a[i] >= '0') and (a[i]