I. Mục đích, yêu cầu: 1. Kiến thức: Làm quen với việc tìm kiếm, thay thế và biến đổi xâu. Khắc sâu thêm phần kiến thức về lí thuyết kiểu xâu kí tự, đặc biệt là các hàm và thủ tục liên quan. Nắm được một số thuật toán cơ bản: tạo xâu mới, đếm số lần xuất hiện một kí tự trong xâu, cách thức thay thế cụm từ này bằng cụm từ khác… 2. Kỹ năng: Khai báo biến kiểu xâu. Nhập, xuất giá trị cho biến xâu. Duyệt qua tất cả các kí tự của xâu. Sử dụng được các hàm và thủ tục chuẩn. 3. Thái độ: Tích cực, chủ động trong thực hành.
Ngày soạn: 04/03/2019 Ngày giảng:07/03/2019 Tiết 33: BÀI TẬP VÀ THỰC HÀNH Người soạn: Nguyễn Thị Thu Dịu GVHD: Bùi Thị Thu Huyền I Mục đích, yêu cầu: Kiến thức: - Làm quen với việc tìm kiếm, thay biến đổi xâu - Khắc sâu thêm phần kiến thức lí thuyết kiểu xâu kí tự, đặc biệt hàm thủ tục liên quan - Nắm số thuật toán bản: tạo xâu mới, đếm số lần xuất kí tự xâu, cách thức thay cụm từ cụm từ khác… Kỹ năng: - Khai báo biến kiểu xâu - Nhập, xuất giá trị cho biến xâu - Duyệt qua tất kí tự xâu - Sử dụng hàm thủ tục chuẩn Thái độ: - Tích cực, chủ động thực hành II Đồ dùng dạy học Chuẩn bị giáo viên - Sách giáo khoa, chương trình chạy mơi trường Pascal để giải tốn đưa tiết thực hành - Tổ chức phòng máy để học sinh có kĩ làm việc với kiểu xâu Chuẩn bị học sinh - Sách giáo khoa, sách tập - Bài tập nhà III Hoạt động dạy học Hoạt động 1: Giải toán 1-Rèn luyện kỹ lập trình a Mục tiêu: - Học sinh biết phân tích u cầu tốn để viết chương trình hồn chỉnh - Rèn luyện cho học sinh khả tư kỹ lập trình ngơn ngữ lập trình Pascal b Nội dung: Bài tốn 1: Viết chương trình nhập từ bàn phím xâu kí tự S thơng báo hình số lần xuất chữ tiếng anh S (không phân biệt chữ hoa hay chữ thường) Chương trình: Program baitap2; Var st: string[20]; ch: char; i, dem: integer; Begin Write(‘Nhap xau ki tu’); Readln(st); For ch:= ‘A’ To ‘Z’ Do Begin Dem:= 0; For i:= To length(st) Do If upcase(st[i]) = ch Then dem:=dem + 1; If dem > Then write(‘so lan xuat hien ki tu ’,ch,’ la ’,dem) Else write(‘khong co chu cai tieng anh xau st’); End; Readln; End Hoạt động 2: Giải toán 2-Rèn luyện kỹ lập trình a Mục tiêu: - Học sinh biết phân tích u cầu tốn để viết chương trình hoàn chỉnh - Rèn luyện cho học sinh khả tư kỹ lập trình ngơn ngữ lập trình Pascal b Nội dung: Bài tốn 2: Nhập vào từ bàn phím xâu Thay tất cụm kí tự ‘anh’ cụm kí tự ‘em’ Chương trình: Program baitap3; Var s, s1, s2: string; i: integer; Begin Write(‘nhap mot xau ’); Readln(s) ; S1:= ‘anh’; S2:= ‘em’; While pos(s1, s) Do Begin I:= pos(s1, s); Delete(s, I, 3); Insert(s2, s, i); End; Write(‘xau sau thay the’,s); Readln; End Các bước tiến hành TG Nội dung ghi bảng Hoạt động Giáo viên Hoạt động Học sinh Hoạt động 1: Giải toán 1-Rèn luyện kỹ lập trình I Bài tốn Nêu nội dung đề Chú ý nghe giảng Xác định toán Hỏi: Dữ liệu vào, liệu Suy nghĩ trả lời câu toán? hỏi Input: Một xâu S Output: Dãy số ứng Ví dụ: S:= ‘cham chi’; với xuất loại kí tự xâu Kết xuất kí tự xâu S: a: c: h: i: m: Ý tưởng toán Hỏi: Em nêu ý tưởng Suy nghĩ trả lời: để giải tốn? Bắt đầu từ kí tự đầu đến kí tự cuối xâu, kiểm tra xem kí tự xuất lần Hỏi: Em nêu Thuật toán Suy nghĩ trả lời: bước thực hiện? B1: Nhập xâu S; B2: ch:= ‘A’; i:=1; dem:=0; B3: Nếu ch>‘Z’ kết thúc B4: Nếu S[i]= ‘ch’ dem := dem+1; B5: i:= i+1; B6: Nếu i