bài 12 Kiểu Xâu tiết 2

Trường thực tập: Trường THPT Nguyễn Trung Trực Năm học:2009-2010
Họ và tên giáo viên hướng dẫn : Trần Văn Kỹ
Họ và tên sinh viên thực tập: Phạm Văn Dũng MSSV:K31103309
Ngày soạn: 23/02/2010 Ngày dạy: 26/02/2010
Tiết PPCT: 30 Tuần: 25
Bài 12: KIỂU XÂU
(tiết 2)
I.Mục đích, yêu cầu :
 Kiến thức :
- Ý nghĩa của các hàm copy(S,vt,N), length(s), pos(s1,s2), upcase(ch).
- Tìm hiểu một số ví dụ để biết cách sử dụng hàm và thủ tục.
 Kĩ năng :
- Hiểu và sử dụng được hàm, thủ tục để giải quyết những bài toán đơn giản.
 Thái độ :
- Giúp học sinh cảm thấy hiểu rõ hơn khi lập chương trình giải các bài toán cần sử dụng
kiểu dữ liệu xâu.
II.Chuẩn bị:
 Giáo viên: giáo án, sách giáo khoa, slide.
 Học sinh: sách giáo khoa, tập ghi chép.
III.Phương pháp, phương tiện:
- Phương pháp : thuyết trình , vấn đáp
- Phương tiện : bảng, phấn, máy chiếu, máy tính.
IV.Các bước tiến hành
1. Ổn định lớp.
2. Đặt vấn đề: Tiết trước các em đã được học cách khai báo và làm quen với phép ghép xâu, so
sánh, và hai thủ tục delete(st, vt, n) và insert(s1, s2, vt). Tiết này các em sẽ được làm quen với
liên quan đến xử lý xâu. Bài 12: Kiểu Xâu(tt).
3. Bài giảng:
Nội dung bài giảng Hoạt động của GV Hoạt động của trò
Bài 12: Kiểu xâu (tiếp theo)
2) Các thao tác xử lí xâu:

c) hàm copy(S, vt, N)
Ý nghĩa: Tạo xâu gồm N kí tự liên
tiếp bắt đầu từ vị trí vt của xâu S.
Ví dụ 1: S1: = ‘De Thuong’
S2: = copy(S1, 4, 6);
S2 = ‘Thuong’;
Ví dụ 2: S1:= ‘Gia Dinh’
S2:= copy(S1,1,3);
- Hãy cho biết ý nghĩa của hàm
copy.
- Đọc lại ý nghĩa của hàm copy.
- Cho ví dụ về hàm copy.
- Cho biết kết quả của xâu S2.
- Tạo xâu gồm N kí tự
liên tiếp bắt đầu từ vị trí
vt của xâu S.
1
S2= ‘Gia’;
d) Hàm length(S)
Ý nghĩa: Cho giá trị độ dài xâu S.
Ví dụ 1: S: = ‘11C5’;
length(S) = 4;
Ví dụ 2: S:= ‘Chu Van An’;
length(S)=10;
e) Hàm pos(s1, s2)
Ý nghĩa: Cho vị trí xuất hiện đầu tiên
của xâu s1 trong xâu s2.
Ví dụ 1: s1: =‘me’;
s2: = ‘ba me’;
pos(s1, s2) = 4;

Ví dụ 2: s1:=’em’;
s2:=’ba me’;
pos(s1, s2) = 0;
f) Hàm upcase(ch):
Giới thiệu ý nghĩa của hàm upcase và
cách sử dụng.
Ví dụ 1: ch: = ‘d’;
upcase(ch) = ‘D’;
Ví dụ 2: ch: = ‘E’;
upcase(ch) = ‘E’;
3. Một số ví dụ
Ví dụ 1 : Nhập vào họ tên của hai
người vào hai xâu, đưa ra màn hình
xâu nào dài hơn, nếu hai xâu bằng
nhau thì xuất ra xâu thứ hai
- Đoạn chương trình:
Var a,b : String ;
Begin
Write('Nhap ho ten thu 1 : ') ;
Readln(a) ;
Write('Nhap ho ten thu 2 : ') ;
Readln(b) ;

If length(a) > length(b) then
- Hãy cho biết ý nghĩa của hàm
length.
- Cho ví dụ về hàm length.
- Cho biết kết quả của hàm.
- Hãy cho biết ý nghĩa của hàm
pos.

- Cho ví dụ về hàm pos.
- Vậy kết quả của ví dụ 2 là bao
nhiêu?
- Hãy cho biết ý nghĩa của hàm
upcase.
- Cho ví dụ về hàm upcase.
- Phân tích yêu cầu của bài
toán( Nhập 2 xâu, xuất ra xâu dài
hơn nếu bằng nhau thì xuất ra xâu
thứ 2).
- Viết lên bảng ví dụ cụ thể để mô
phỏng.
- Cho học sinh xem đoạn chương
trình và phân tích ý nghĩa của
từng dòng lệnh.
- Xâu S2= ‘Gia’.
- Cho giá trị độ dài xâu
S.
- Cho giá trị là 10.
- Cho vị trí xuất hiện
đầu tiên của xâu s1
trong xâu s2.
- Giá trị bằng 0.
- Lắng nghe ghi bài.
- Nhớ hoặc tham khảo
sách về các hàm vừa
được học. Ứng dụng
đúng về hàm tính độ dài
của xâu để so sánh( hàm
length).

- Chú ý lắng nghe và
ghi chép lại.
2
Write(a)
else
Write(b);
Readln ;
End .
Ví dụ 2 : Nhập 2 xâu, kiểm tra xem ký
tự đầu tiên của xâu thứ nhất có trùng
với ký tự cuối cùng của xâu thứ hai
hay không ?
- Đoạn chương trình:
Var a,b : String ;
x : Byte ;
Begin
Write('Nhap xau thu 1 : ');
Readln(a) ;
Write('Nhap xau thu 2 : ');
Readln(b) ;
x := length(b) ;
If a[1] = b[x] then
Write('Trung nhau')
else
Write('Khac nhau');
Readln ;
End .
Ví dụ 3 : Nhập 1 xâu, viết ra màn
hình xâu đó theo thứ tự ngược lại
của các ký tự trong xâu

- Đoạn chương trình:
Var i,k : Byte ;
a : String ;
- Gọi học sinh đọc đề bài và phân
tích yêu cầu đề bài và hướng giải
quyết bài toán.
- Chú ý khi truy xuất đến phần tử
thứ i thì phải được xác định bởi
tên biến xâu tiếp đến là i viết
trong dấu ngoặc đóng [ ]. Rồi
liên hệ qua hàm length để tính
chiều dài của xâu( ứng với kí tự
cuối cùng của xâu).
- Cho học sinh xem đoạn chương
trình và giải thích ý nghĩa từng
dòng lệnh.
- Gọi học sinh đọc đề bài và phân
tích nội dung yêu cầu của đề.
- Giải thích nếu mà cho i chạy từ
1 đến n là for i:=1 to n do, còn
nếu cho i chạy ngược lại từ n về 1
thì dùng for i:=n downto 1 do.
Nhưng chú ý n ở đây là hàm
length.
- Cho học sinh xem đoạn chương
trình và giải thích ý nghĩa từng
dòng lệnh.
- Đọc đề bài và nhớ về
cách truy xuất phần tử
của xâu.

- Suy luận ra được cách
tính được phần tử cuối
cùng của xâu thứ hai.
- Lắng nghe và ghi chép
lại.
- Đọc đề bài và xác định
yêu cầu của bài toán.
- Hiểu được ý nghĩa của
vòng lặp for…
downto…do và tại sao
dùng hàm length.
- Chú ý lắng nghe và
ghi chép lại.
3
Begin
Write('Nhap xau : ') ;
Readln(a) ;
k := length(a) ;
For i := k downto 1 do
Write(a[i]) ;
Readln ;
End .
Ví dụ 4 : Nhập 1 xâu, viết ra màn
hình xâu đó nhưng đã được loại bỏ
các dấu cách nếu có .
- Đoạn chương trình:
Var i,k : Byte ;
a,b : String ;
Begin
Write('Nhap xau : ') ;

Readln(a) ;
k := length(a) ;
b :='' ;
For i := 1 to k do
if a[i] <> '' then
b := b+a[i] ;
Write(b) ;
Readln ;
End .
Ví dụ 5 : Nhập 1 xâu kí tự s1, tạo xâu
s2 gồm các chữ số có trong xâu s1,
xuất kết quả ra màn hình.
- Đoạn chương trình
Program Xulixau ;
Var s1,s2 : String ;
i : Byte ;
Begin
Write('Nhap xau s1 : ') ;
- Gọi học sinh đọc đề bài và phân
tích nội dung yêu cầu của đề.
- Giải thích nên dùng 1 xâu rỗng
để chứa những kí tự khác với dấu
cách.
- Cho hoc sinh xem đoạn chương
trình và giải thích ý nghĩa từng
dòng lệnh.
- Gọi học sinh đọc đề bài và phân
tích nội dung yêu cầu của đề.
- Giải thích khởi tạo xâu s2 rỗng
để lưu trữ những kí tự là số trong

xâu s1. Phải có điều kiện để xác
định số trong xâu s1.
- Cho hoc sinh xem đoạn chương
trình và giải thích ý nghĩa từng
dòng lệnh.
- Đọc đề bài và xác định
được yêu cầu của bài
toán.
- Hiểu được tại sao
dùng xâu rỗng để lưu
trữ những kí tự khác
dấu cách
- Chú ý lắng nghe và
ghi chép lại.
- Đọc đề bài và xác định
được yêu cầu của bài
toán.
- Hiểu được tại sao
dùng xâu rỗng và điều
kiện để xác định số
trong xâu s1.
- Chú ý lắng nghe và
ghi chép lại.
4
Readln(s1) ;
s2 := '' ;
For i := 1 to length(s1) do
If ('0'<=s1[i]) and (s1[i]<='9')
then
s2 := s2 + s1[i] ;

Write(s2);
Readln ;
End .
4. Củng Cố:
- Nhắc lại các hàm vừa được học( copy, length, pos, upcase).
- Chú ý xem lại các ví dụ trong SGK
5. Dặn dò:
- Về nhà xem lại bài và làm lại các ví dụ trên SGK.
- Xem và đọc trước bài tập thực hành số 5.
V. Rút kinh nghiệm – Bổ sung:
Giáo viên hướng dẫn phê duyệt Rạch giá ngày 23 tháng 02 năm 2010
Sinh viên thực tập
Trần Văn Kỹ Phạm Văn Dũng
5