- Củng cố cho học sinh những hiểu biết về kiểu xõu.
2. Kiểm tra bài cũ: Kết hợp kiểm tra trong quỏ trỡnh thực hành.
3. Nội dung thực hành
Hoạt động của GV Hoạt động của HS
Hoạt động 1: Tỡm hiểu bài toỏn 1
GV: Giới thiệu nội dung đề bài.
- Diễn giải: một xõu được gọi là Palidrom nếu ta đọc cỏc kớ tự từ phải sang trỏi sẽ giống khi đọc từ trỏi sang phải.
- Yờu cầu học sinh cho 2 vớ dụ về xõu Palidrom và 1 vớ dụ khụng phải là Palidrom. HS: Đọc kĩ đề bài. Phải: 12321 abccba Khụng phải: abcdea GV: Gợi ý Bài 1: a. Chạy chương trỡnh: uses crt; var i,x:byte; a,p: string; Begin clrscr; write('Nhap vao xau:');readln(a); x:=length(a); p:='';
for i:=x downto 1 do p:=p+a[i];
if a=p then
write('Xau la palindrome') else
- Chiếu chương trỡnh lờn bảng
- Hỏi: chương trỡnh sau đõy cú chức năng làm gỡ? Kết quả in ra màn hỡnh như thế nào?
HS: Quan sỏt chương trỡnh, suy nghĩ phõn tớch để hiểu chương trỡnh
- Kiểm tra 1 xõu cú phải Palidrom hay khụng?
- In ra: ‘xau la Palidrom’ ‘Xau khong la Palidrom’
GV: Thực hiện chương trỡnh để học sinh kiểm nghiệm suy luận của mỡnh.
HS: Quan sỏt giỏo viờn thực hiện chương trỡnh, nhập dữ liệu và kết quả của chương trỡnh
GV: Cải tiến chương trỡnh
- Nờu yờu cầu mới: viết lại chương trỡnh mà khụng sử dụng biến trung gian P - Yờu cầu: nhận xột về cỏc cặp ở vị trớ đối xứng nhau trong 1 xõu Palidrom?
- Hỏi: kớ tự thứ I đối xứng với kớ tự vị trớ nào?
- Hỏi: cần phải so sỏnh bao nhiờu cặp kớ tự trong xõu để biết được xõu đú là Palidrom?
- Hỏi: dựng cấu trỳc lặp nào để so sỏnh? - Yờu cầu học sinh viết chương trỡnh hoàn chỉnh
- Yờu cầu học sinh nhập dữ liệu cho sẵn của giỏo viờn và thụng bỏo kết quả
- Xỏc nhận những bài làm cú kết quả đỳng
HS: Chỳ ý theo dừi yờu cầu của giỏo viờn, trả lời 1 số cõu hỏi dẫn dắt
- Kớ tự thứ I đối xứng với kớ tự thứ length()-i+1
- So sỏnh tối đa length() div 2 - Cú thể dựng For hoặc While
- Thực hiện soạn thảo chương trỡnh vào mỏy theo yờu cầu cải tiến của giỏo viờn - Nhập dữ liệu vào và thụng bỏo kết quả
write('Xau khong la palindrome'); readln;
End.
b. Sửa lại chương trỡnh khụng dựngbiến p