Bài 12. Kiểu xâu

Bài 12
Tiết 27 +Tiết 28
Nhập vào họ tên của hai học sinh, in ra màn hình họ tên dài hơn?
A
B
Họ tên của học sinh thuộc kiểu dữ liệu nào?
Bài toán :
Họ tên của h?c sinh thuộc kiểu dữ liệu xâu
Xâu là dãy các kí tự trong bộ mã ASCII.
A
1 2 3 4 5 6 7
Trong đó:
Khi tham chiếu đến kí tự thứ i của xâu ta viết A[i].
Ví dụ: A[5]=`H`.
? Tên xâu: A;
? Mỗi kí tự gọi là một phần tử của xâu;
Ví dụ:
? Độ dài của xâu (là số kí tự trong xâu):
H
1. Khái niệm
7
2. Khai báo kiểu dữ liệu xâu (trong Pascal)
Var : String[độ dài lớn nhất];
Ví dụ1: Var hoten: String[26];
Ví dụ2: Var Tenfile :String;
Tenfile sẽ có độ dài lớn nhất là bao nhiêu?
? Khi khai báo xâu có thể bỏ qua phần khai báo [độ dài lớn nhất], khi đó độ dài của xâu sẽ nhận giá trị 255 - là độ dài cực đại của một xâu.
3. Các thao tác xử lí xâu
Ví dụ: ` Tin` + ` hoc` ? `Tinhoc`
a. Phép ghép xâu: kí hiệu "+" dùng để ghép nhiều xâu thành một xâu
b. Phép so sánh: =,<>, <,<=,>,>=
`Ha Noi` > `Ha Nam`


`Tin` < `Tinhoc`

* Quy ước:
- Xâu A = B nếu chúng giống hệt nhau.
- Xâu A > B nếu:
+ Kí tự đầu tiên khác nhau giữa chúng kể từ trái sang ở xâu A có mã ASCII lớn hơn ở xâu B.
+ Xâu B là đoạn đầu của xâu A.
- Xâu rỗng là xâu ``
`Tin hoc` = `Tin hoc`
Ví dụ
c. Các thủ tục và hàm chuẩn xử lí xâu
S1=`1` S2=`Hinh .2`
Insert(s1,s2,6)
? `Hinh 1.2`
Chèn xâu S1 vào xâu S2 bắt đầu từ vị trí vt.
2. Insert(S1,S2,vt)
S = `Chaoban`
Delete(S,5,3)
? `Chao`
Xoá n kí tự của xâu S bắt đầu từ vị trí vt.
1. Delete(S,vt,n)
Ví dụ
ý nghĩa
Thủ tục
Ch=`a`
UPCase(ch) = `A`
Chuyển kí tự ch thành chữ hoa
4. UPCase(ch)
S1=`1` S2=`Hinh 1.2`
Pos(S1,S2) = 6
Cho vị trí xuất hiện đầu tiên của xâu S1 trong xâu S2
3. Pos(S1,S2)
S = `Xin chao`
Length(S) = 8
Cho giá trị là độ dài của xâu S
2. Length(S)
Ví dụ
ý nghĩa
Hàm
S = `Tin hoc`
Copy(S,5,3)= `hoc`
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. Copy(S,vt,n)
4. Một số ví dụ
Nhập vào họ tên của hai học sinh, in ra màn hình họ tên dài hơn?
1
Các bước:
1. Khai báo xâu
2. Nhập xâu
3. Xử lí xâu
VAR a,b: string;
BEGIN
Write(` Nhap xau ho ten thu nhat :`); Readln(a);
Write(`Nhap xau ho ten thu hai :`); Readln(b);
IF length(a)> length(b) THEN write(a)
ELSE write(b);
Readln;
END.
Điều gì sảy ra khi 2 xâu a và b bằng nhau?
Nhập vào hai xâu từ bàn phím, 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 không?
2
Các bước:
1. Khai báo xâu : A,B
2. Nhập xâu
3. Xử lí xâu, trong đó:
Kí tự đầu tiên của xâu A:
A[1]
Kí tự cuối cùng của xâu B:
B[L] trong đó L là độ dài của xâu B
Dựa vào các bước bên, hãy hoàn thiện chương trình?
Nhập vào một xâu từ bàn phím, đưa ra màn hình xâu thu được bằng cách loại bỏ các dấu cách từ xâu đã cho?
3
Hãy nêu thuật toán để giải bài toán trên?
Ví dụ:
- Xâu ban đầu : `Mon Tin hoc`
- Kết quả ra màn hình : `MonTinhoc`
Thuật toán
B1. Khởi tạo xâu rỗng;
B2. Lần lượt duyệt qua tất cả các phần tử của xâu vừa nhập,
nếu phần tử được duyệt khác dấu cách thì bổ sung vào xâu rỗng.
Hãy viết chương trình dựa theo thuật toán bên.
A. Xoá xâu S.
B. Tạo xâu S.
C. Tính độ dài của xâu S
D. Chuyển kí tự trong chuỗi S thành chữ hoa
Hàm Length(S) dùng để:

?
A. Copy(S,vt,n)
B. Delete(S,vt,n)
C. Insert(S,vt,n)
D. Pos(S1,S2)

Để xoá n kí tự của xâu S bắt đầu từ vị trí vt. Ta dùng lệnh nào sau đây?
?
Củng cố
? Xâu là dãy các kí tự trong bảng mã ASCII.
? Khai báo: tên xâu, độ dài lớn nhất của xâu.
? Truy nhập vào phần tử của xâu: Tên xâu[chỉ số]
? Các thao tác xử lí thường dùng:
+ Phép ghép xâu, so sánh xâu;
+ Các thủ tục và hàm chuẩn.
`Xin chao cac ban!`
Var S : string[30];
S[1] = `X`