Giáo án Tin Học lớp 11: BÀI TẬP THỰC HÀNH KIỂU XÂU docx

BÀI TẬP THỰC HÀNH KIỂU XÂU
I. Mục đích yêu cầu:
1. Kiến thức:
Biết xâu là một dãy kí tự.
Biết khai báo xâu, truycập phần tử của xâu
Biết sử dụng thông thạo một số hàm, thủ tục thông thạo về xâu.
2. Kỹ năng:
Biết Khai báo kiểu xâu.So sánh xâu và nhận biết một số hàm và thủ
tục chuẩn về xâu.
3. Thái độ:Tích cực ham học hỏi
II Chuẩn bị của giáo viên và học sinh:
1. Chuẩn bị của giáo viên:SGK, SGV, giáo án
2. Chuẩn bị của học sinh:Xem kỹ SGK, soạn trước bài học.
III. Nội dung bài giảng
1.Ổn định tổ chức:1 phút
2.Kiểm tra bài cũ: 7 phút
Câu1:Viết đoạn chương trình nhập vào một dãy số có 10 số
Câu 2: Viết đoạn chương trình in ra một dãy số có 10 số
3.Nội dung bài mới
Hoạt động thầy Hoạt động trò
Hoạt động 1:Yêu cầu học sinh
viết chưưong trình nhập vào hai
xâu và in ra xâu có độ dài ngắn
hơn hoặc nếu không thì in ra xâu
nhập sau.
GV: Theo dõi, hướng dẫn và gọi
một học sinh thực hiện trên máy
chiếu để các học sinh khác theo
dõi, đánh giá
Hoạt động 2: Nhập vào một xâu
thay thế các cụm kí tự ‘anh’ thành

‘em’
GV: ý tưởng giải thuật:
Khai báo
Begin



HS: Thực hiện trên máy.


Nhận xét, đánh giá, rút kinh
nghiệm
Program bai2;
Uses crt;
Var vt: byte; S:string;
BEGIN
Clrscr;
Write(‘nhap vao mot xau:’);
Readln(s);
Nhập xâu S
Chừng nào còn tìm thấy xâu con
‘anh’ thì còn làm:
-Tìm vị trí bắt đầu của xâu
‘anh’
-Xoá xâu ‘anh’
-Chèn xâu ‘em’
In ra kết quả
While pos(‘anh’,s)<>0 do
Begin
Vt:=pos(;anh’,s);

DELETE(s,vt,3);
INSERT(‘em’,s,vt);
End;
Write(s);
Readln;
END.
4. Củng cố:
Nhắc lại các thao tác trên Xâu.
5.Dặn dò, bổ sung:
Xem kĩ các bài tập đã thực hành