- Hỏi: Ký tự thứ i đối xứng với ký tự vị trí - Thực hiện soạn thảo chương trình vào máy theo yêu nào?. càu cải tiến của giáo viên..[r]
(1)SỞ GIÁO DỤC & ĐÀO TẠO LAI CHÂU – TRƯỜNG THPT TÂN UYÊN _NĂM HỌC 2009-2010 Ngày soạn Ngày giảng I MỤC TIÊU Kiến thức: Tiết: 31 04/01/10 08/01/10 Bài 14.BÀI THỰC HÀNH (T1) - Củng cố cho học sinh kiến thức xâu ký tự, đặc biệt là các hàm và thủ tục liên quan - Nắm số thuật toán : tạo xâu mới, đếm số lần xuất ký tự… 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 ký tự xâu - Sử dụng các hàm và thủ tục chuẩn Tư duy: - Các kiểu có cấu trúc là tiền đề cho lập trình logic, tạo chương trình ứng dụng và đồ hoạ Thái độ: - Tự giác, tích cực, chủ động thực hành II CHUẨN BỊ BÀI GIẢNG Phương tiện: - GV: phòng máy có cài Pascal - Tổ chức phòng máy để HS có kỹ làm việc với kiểu xâu - HS: Sách giáo khoa, ghi Xem trước bài học Phương pháp dạy học - Gợi mở vấn đáp - Đàm thoại - Đặt vấn đề III TIẾN TRÌNH DẠY HỌC Kiểm tra bài cũ: - Kết hợp thực hành Nội dung bài giảng: HOẠT ĐỘNG Palidrom HOẠT ĐỘNG CỦA GIÁO VIÊN Tìm hiểu đề bài HOẠT ĐỘNG CỦA HỌC SINH Quan sát, đọc kỹ đề - Giới thiệu nội dung đề bài lên bảng - Diễn giải: Một xâu gọi là Palidrom GV: Đỗ Tiến Vượng Trường THPT Tân Uyên – Tân Uyên_Lai Châu Lop11.com Trang (2) SỞ GIÁO DỤC & ĐÀO TẠO LAI CHÂU – TRƯỜNG THPT TÂN UYÊN _NĂM HỌC 2009-2010 ta đọc các ký tự từ phải sang trái giồng đọc từ trái sang phải Phải: 12321 abccba - Yêu cầu học sinh cho hai ví dụ xâu Không phải: abcdea palidrom và ví dụ không phải là palidrom Quan sát chương trình, suy nghĩ phân tích để hiểu chương trình Tìm hiểu chương trình gợi ý - Kiểm tra xâu có phải Palidrom hay không? - Chiếu chương trình lên bảng - Hỏi: Chương trình sau đây có chức - In ra: ‘xau la palidrom’ làm gì? Kết in màn hình nào? ‘Xau khong la palidrom’ - Thực chương trình để học sinh - Quan sát giáo viên thực chương trình, kiểm nghiệm suy luận mình nhập liệu và kết chương trình Chúng ta co thể sử dụng câu lệnh For to While program palindrome ; var i, x: byte ; a, p: string ; begin write ('nhap vao xau :'); readln (a); X:= length (a) ; p:= '' ; for i:= x downto p:= p+a[i]; 3.Chú ý theo dõi yêu cầu giáo viên, trả lời if a= p then số câu hỏi dẫn dắt write ('xau la palindrome') else write ('xau khong phai la palindrome'); - Các ký tự vị trí này giống readln end 3.Cải tiến chương trình - Ký tự thứ i đối xứng với ký tự thứ length()- Nêu yêu cầu mới: Viết lại chương trình i+1 mà không sử dụng biến trung gian p - So sánh tối đa length() div - Yêu cầu: Nhận xét các cặp vị trí đối xứng xâu palidrom? - Có thể dùng For While - Hỏi: Ký tự thứ i đối xứng với ký tự vị trí - Thực soạn thảo chương trình vào máy theo yêu nào? càu cải tiến giáo viên - Hỏi: Cần phải so sánh bao nhiêu cặp ký program palindrome ; GV: Đỗ Tiến Vượng Trường THPT Tân Uyên – Tân Uyên_Lai Châu Lop11.com Trang (3) SỞ GIÁO DỤC & ĐÀO TẠO LAI CHÂU – TRƯỜNG THPT TÂN UYÊN _NĂM HỌC 2009-2010 tự xâu để biết xâu đó là var i, x: byte ; a, p: string ; palidrom? begin write ('nhap vao xau :'); - Hỏi: Dùng cấu trúc lặp nào để so sánh? readln (a); - Yêu cầu học sinh viết chương trình hoàn X:= length (a) ; i:= 1; chỉnh while (i<=(x div 2)) and - Yêu cầu học sinh nhập liệu cho sẵn (a[i]=a[x-i+1]) i:= i+1; if i>( x div 2) then writeln giáo viên và thông báo kết ('xau la palindrome') - Xác nhận bài làm có kết else writeln ('xau khong phai đúng la xau palindrome'); readln end - Nhập liệu vào và thông báo kết Củng cố: Nắm số thuật toán đơn giản liên quan đến xâu ký tự : - Kiểm tra xâu đối xứng - Tìm tần suất xuất các ký tự có xâu Dặn dò: - Về nhà hs nào có máy thì tiếp tục thực hành và xem tiếp phần thực hành sau Các em nghỉ IV NHẬN XÉT Phương pháp: Hiệu sử dụng: Hiệu SD TBDH: ND cần điểu chỉnh: Nhận xét giáo viên hướng dẫn: GV: Đỗ Tiến Vượng Trường THPT Tân Uyên – Tân Uyên_Lai Châu Lop11.com Trang (4)