Kiểu Xâu tới kiểu tệp

GIÁO ÁN GIẢNG DẠY SỐ 3
BÀI THỤC HÀNH SỐ 5
MỤC TIÊU
Kiến thức
- 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.
- Vận dụng kiểu dữ liệu để giải một bài toán
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.
- Sử dụng các kiểu dữ liệu có cấu trúc đã học để giải quyết một số bài toán thực tế.
ĐỒ DÙNG DẠY HỌC.
Chuẩn bị của giáo viên( GV).
Sách giáo khoa, giáo án, sách giáo viên.
Chuẩn bị của học sinh( HS).
Sách giáo khoa, vở ghi, sách bài tập.
HOẠT ĐỘNG DẠY HỌC
1. Ổn định lớp (1 phút)
2. Kiểm tra bài cũ (4 phút)
Câu hỏi: Em hãy lên bảng viết cú pháp và ý nghĩa của thủ tục Insert, hàm Pos? Cho ví dụ?
Trả lời:
Insert(s1, s2, vt) ( Chèn xâu s1 vào xâu s2 bắt đầu từ vị trí vt. Ví dụ:
Pos(s1, s2) ( Cho vị trí xuất hiện đầu tiên của xâu s1 trong xâu s2. Ví dụ:
3. Bài mới (37 phút)
Thời gian
Nội dung
Hoạt động của giáo viên và học sinh

1 phút


1 phút








5 phút














1 phút




4 phút














10 phút





1 phút




1 phút







3 phút








10 phút
 Bài tập và thực hành 5

Bài 1/73 – SGK:

a) Chương trình
program palindrome;
var i, x: byte;
a, p: string;
begin
write (‘Nhap vao xau:’);
readln(a);
x:=length(s);
p:=‘ ’;
for i:=x downto 1 do p:=p+a[i];
if a=p then
write(‘Xau la palindrome’)
else
write(‘Xau khong la palindrome’);
readln;
end.









b)
program bai1b;
var a: string;
x, i, n: byte;
begin
write (‘Nhap vao xau: ‘);
readln(a);
x:=length(a);
for i:=1 to x div 2 do
if (a[i]=a[x-i+1]) then;
writeln (‘Xau la paindrome’)
else
writeln (‘Xau khong la palindrome’);
readln;
end.







Bài 3/73 – SGK:
program bai3;
var s: string;
vt: byte;
begin
write (‘Nhap vao xau:’);
readln(s);
while pos(‘anh’, s) <>0 do
begin
vt:=pos(’anh’, s);
delete(s,vt,3);
insert(‘em’,s,vt);
end;
write (‘Xau moi la:’, s);
readln;
end.
















GV: Giới thiệu nội dung đề bài 1-SGK trang 73.
HS: Quan sát, đọc kỹ đề bài.
GV: Một xâu được gọi là Palindrome 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.
GV: Yêu cầu HS cho hai ví dụ về xâu Palindrome và một ví dụ không phải là Palindrome.
HS: Phải: 12321 ; abccba
Không phải: abcdea
GV: Yêu cầu HS nhập chương trình ở câu a trong SGK và chạy thử chương trình.
HS: Quan sát chương trình, suy nghĩ phân tích để hiểu chương trình.
GV: Độ dài của xâu a bằng bao nhiêu?
HS: Bằng x
GV: Biến xâu p dùng để làm gì?
HS: Chứa xâu đảo ngược của xâu a.
GV: Thực hiện xong vòng For ta được kết quả gì?
HS: Tạo được xâu p là xâu đảo ngược của xâu a.
GV: Xâu là Palindrome khi nào?
HS: Khi xâu p bằng xâu a.

GV: Nêu yêu cầu mới (cải tiến