III. TIẾN TRÌNH TIẾT DẠY 1 Kiểm tra bài cũ:
4. Bài tập về nhà: Xem lại các bài tốn đã giải để chuẩn bị cho tiết bài tập sau.
Ngày soạn: 15-02-2017 Tiết PPCT: 33
BÀI TẬP VÀ THỰC HÀNH 5I. MỤC TIÊU I. MỤC TIÊU
1. Kiến thức
- Sử dụng các phép xử lí xâu để viết các chương trình giải các bài tốn liên quan đến xâu.
2. Kỹ năng
- Sử dụng các phép xử lí xâu để viết các chương trình giải các bài tốn liên quan đến xâu.
- Rèn luyện kĩ năng viết chương trình trên máy.
3. Thái độ
- Ham thích mơn học, cĩ tính kỷ luật cao.
II. PHƯƠNG TIỆN
- Giáo viên: Giáo án, sách giáo khoa, bảng, phấn, tài liệu,... - Học sinh: Vở ghi, sách giáo khoa tin học 11, bút, ...
III. TIẾN TRÌNH TIẾT DẠY
1. Kiểm tra bài cũ: Kết hợp trong bài mới.2. Kết nối 2. Kết nối
HOẠT ĐỘNG CỦA GV VÀ HS NỘI DUNG
GV: Soạn và chạy thử chương trình ở
bài tập 1a-SGK.
HS: Soạn NỘI DUNG và chạy thử
chương trịnh.
GV: Quan sát lớp và hướng dẫn học
sinh thực hành.
GV: Soạn và chạy thử chương trình ở
bài tập 1b-SGK.
HS: Soạn NỘI DUNG và chạy thử
chương trịnh.
GV: Quan sát lớp và hướng dẫn học
sinh thực hành.
NỘI DUNG thực hành 1: Soạn và chạy
thử chương trình sau:(nhập vào một xâu, in ra xâu đảo ngược).
Var i,x:byte; a,p:string;
BEGIN
write('Nhap vao xau:');readln(a); x:=length(a);
p:='';
for i:=length(a) Downto 1 do p:=p+a[i];
if a=p then write('xau doi xung') else write('xau khong doi xung'); readln;
end.
NỘI DUNG thực hành 2: Soạn và chạy
thử chương trình sau: (nhập vào một xâu, kiểm tra xâu đĩ cĩ phải là xâu đối xứng khơng).
GV: Soạn và chạy thử chương trình ở
bài tập 2-SGK.
HS: Soạn NỘI DUNG và chạy thử
chương trịnh.
GV: Quan sát lớp và hướng dẫn học
sinh thực hành.
GV: Soạn và chạy thử chương trình ở
bài tập 3-SGK.
HS: Soạn NỘI DUNG và chạy thử
chương trịnh. GV: Quan sát lớp và hướng dẫn học sinh thực hành. Var i,x,n:byte; a,p:string; BEGIN
write('Nhap vao xau:');readln(a); x:=length(a) div 2;
n:=length(a); for i:=1 to x do
if a[i]<>a[length(a)-i+1] then begin
write('Xau khong doi xung'); readln;
exit; end;
write('xau doi xung'); readln;
end.
NỘI DUNG thực hành 3: Soạn và chạy
thử chương trình sau: Program bai2; var s:string; kt:char; i,j,n,slxh:byte; BEGIN
write('Nhap vao mot xau:'); readln(s); while length(s)<>0 do
Begin slxh:=0;
for j:=1 to length(s) do
if upcase(s[1]) = upcase(s[j]) then slxh:=slxh+1;
writeln('So lan xuat hien cua ', s[1],' la:',slxh);
kt:=s[1]; i:=pos(s[1],s);
while i<>0 do Begin delete(s,i,1); i:=pos(kt,s); end; end; readln; END.
NỘI DUNG thực hành 4: Soạn và chạy
thử chương trình sau: program vd;
var s:string; i:byte;
BEGIN
WRITE('Nhap vao mot xau: '); readln(s); i:=pos('anh',s); while i<>0 do Begin delete(s,i,3); insert('em',s,i); i:=pos('anh',s); end;
write('Xau sau khi da thay the: ',s); readln;
END.
3. Củng cố: Phải nắm vững các thủ tục và hàm biến đổi xâu để giải quyết các bài
tốn về xâu.