Củng cố Nắm được thuật toán đơn giản liên quan đến xâu: đếm số lần xuất hiện các kí tự xuất hiện trong xâu, phép toán thay thế xử lí trên xâu.. Dặn dò Cài đặt lại chương trình trên m[r]
(1)BÀI SOẠN GIÁO ÁN Người soạn: Đặng Thị Hảo Ngày soạn: 03/03/2010 Tổ : Tin học Ngày dạy : 05/03/2010 Tiết : 31 Lớp dạy : 11TN26 Tên bài dạy: Bài tập và thực hành( tiết 2) I MỤC TIÊU Kiến thức Luyện tập thêm kiến thức kiểu xâu Nắm số thuật toán Kỹ Khai báo biến Nhập xuất giá trị cho biến xâu Sử dụng hàm và thủ tục liên quan II CHUẨN BỊ Giáo sinh Sách giáo khoa, giáo án, sách giáo viên Phương pháp: Diễn giải thuyết trình, vấn đáp Học sinh Tập ghi chép, sách giáo khoa, tài liệu tham khảo Đồ dùng dạy học Bảng phấn III TIẾN TRÌNH DẠY- HỌC Ổn định lớp Kiểm tra sĩ số lớp, ổn định chỗ ngồi Kiểm tra bài cũ GS: Nhập vào xâu bất kì Đếm các kí tự là các chữ cái in hoa có xâu Ví dụ: st:= ’Da Nang’ => kết quả: HS: Program VD5; Var a: string; i, d: byte; Begin Write(‘nhap vao xau: ’); readln(a); Trang: Lop11.com (2) For i:= to length(a) If (‘A’<= a[i]) and (a[i]<= ’Z’) Then d:= d+1; Writeln(‘ so luong cac ki tu la chu cai in hoa: ’, d); Readln End Bài Hoạt động GS Hoạt động HS Nội dung ghi bảng - Giới thiệu bài toán Bài 2: ( sgk) - Yêu cầu HS xác - HS trả lời: Cài đặt: định input và output Input: nhập vào xâu Program VD2; Output: số lần xuất Var bài toán? các chữ cái tiếng Anh Dem: array['A' 'Z'] Of Byte; - Trong bảng chữ cái - HS trả lời: có 26 chữ S: string; tiếng Anh có bao i: Byte; cái nhiêu chữ cái? ch: char; - Viết lệnh khởi tạo - Dùng vòng lặp for chạy Begin các biến các chữ từ ‘A’ tới ‘Z’ Write(' Nhap xau S= '); cái thì cho vòng lặp Readln(S); for nào? For ch:= 'A' To 'Z' Do - Nêu ý tưởng để - Đi từ trái qua phải: giải Dem[ch]:= 0; đoạn Dùng hàm upcase() để in chương trình đếm số hoa kí tự S[i] lần xuất các Nếu chữ cái tiếng Anh? kí tự For i:= to Length(S) Do Begin S[i] in [‘A’ ’Z’] thì tăng biến S[i]:= upcase(S[i]); If S[i] in ['A' 'Z'] Then đếm lên đơn vị cho kí tự đọc - Gọi HS lên bảng - Lên cài đặt chương trình Dem[S[i]]:= Dem[s[i]]+ 1; End; bảng cài đặt chương trình For ch:= 'A' to 'Z' Do If Dem[ch]<> Then - GS nhận xét và cho Writeln(' so lan xuat hien ', ch, ' điểm la', Dem[ch] ); Readln Trang: Lop11.com (3) End Bài 3: ( sgk) - Lấy ví dụ minh họa Cài đặt: Ví dụ: ‘anh oi anh Program vd3; dau roi’ Var vt: byte; s: string; => ‘em oi em dau Begin roi’ Write(‘moi nhap xau’); - Hỏi: để thay - Trả lời: vận dụng hàm Readln(s); ‘anh’ ‘em’ cần Pos(), thủ tục Delete(), While pos(‘anh’, s)<>0 có hàm và thủ tục Insert() Begin nào? Trả lời: - tìm vị trí bắt vt:= pos(‘anh’, s); Nêu ý tưởng để giải đầu xâu ‘anh’ delete(s, vt, 3); bài toán? - Xóa xâu ‘anh’ vừa tìm thấy insert(‘em’, s, vt); End; - Chèn xâu ‘em’ vào Writeln(‘ xau sau da thay the: xâu đã cho vị trí trước ’, s); đây xuất xâu ‘anh’ - Hỏi: HS lên bảng - HS lên bảng trình bày Readln End viết chương trình cài đặt - GS nhận xét và cho điểm IV CỦNG CỐ VÀ DẶN DÒ Củng cố Nắm thuật toán đơn giản liên quan đến xâu: đếm số lần xuất các kí tự xuất xâu, phép toán thay xử lí trên xâu Dặn dò Cài đặt lại chương trình trên máy Xem trước bài kiểu ghi Trang: Lop11.com (4) V NHẬN XÉT, ĐÁNH GIÁ CỦA GIÁO VIÊN HƯỚNG DẪN ………………………………………………………………………………………… ………………………………………………………………………………………… ………………………………………………………………………………………… Đà Nẵng, / /2010 Đà Nẵng, ngày tháng năm 2010 Kí duyệt BGH Giáo viên hướng dẫn Kí tên Hà Thị Minh Châu Trang: Lop11.com (5)