Bài 12. Kiểu xâu

2. Kiểu dữ liệu xâu
3. Kiểu bản ghi
i. kh¸i niÖm x©u vµ khai b¸o x©u
ii. các thao tác xử lí xâu
iii. một số ví dụ về xâu
KiỂM TRA BÀI CŨ
Câu 1: Hãy nêu khái niệm xâu kí tự? cho ví dụ:
Câu 2: Hãy nêu cách khai báo kiểu xâu?
Hãy khai báo xâu kí tự có độ dài tối đa 200 kí tự.
ii. Các thao tác xử lí xâu
3. Một số thủ tục làm việc với xâu









Ví dụ
st := `Song Hong`;
Delete(st,1,5);
s1:=`1`; s2:=`Hinh .2`;
Insert(s1,s2,6);
Xoá n kí tự
của xâu st
bắt đầu từ vị trí vt.
Chèn xâu s1 vào xâu s2 bắt đầu từ vị trí vt.
Thủ tục
a.
Delete(st,vt,n)
b. Insert(s1,s2,vt)
? st = `Hong`
? s2 = `Hinh 1.2`
I. K.NIỆM VÀ K.BÁO
1. Khái niệm xâu
Ví dụ:
2. Khai báo xâu
3. Nhập, xuất…
II.CÁC THAO TÁC …
1. Phép ghép xâu
2. Các phép so …
Ví dụ:
3. Một số thủ tục …
ii. Các thao tác xử lí xâu
4. Một số hàm làm việc với xâu
4. Một số hàm …
 ‘Duy’
 10
 5
 D
I. K.NIỆM VÀ K.BÁO
1. Khái niệm xâu
Ví dụ:
2. Khai báo xâu
3. Nhập, xuất…
II.CÁC THAO TÁC …
1. Phép ghép xâu
2. Các phép so …
Ví dụ:
3. Một số thủ tục …
iiI. Một số ví dụ
4. Một số hàm …
I. K.NIỆM VÀ K.BÁO
1. Khái niệm xâu
Ví dụ:
2. Khai báo xâu
3. Nhập, xuất…
II.CÁC THAO TÁC …
1. Phép ghép xâu
2. Các phép so …
Ví dụ:
3. Một số thủ tục …
III.MỘT SỐ VÍ DỤ
Ví dụ 1: Viết chương trình nhập một xâu từ bàn phím và đưa ra màn hình xâu thu được từ nó sau khi loại bỏ các dấu cách nếu có.
Xác định bài toán:
- input: xâu st
- Output: xâu st không có dấu cách
Ý tưởng:
- Dùng xâu ST1:= ‘’
- Length(st) lấy độ dài của xâu st
- Sử dụng vòng lặp từ i:=1  length(st) Nếu st[i] <> ‘ ’ thì st1:=st1+st[i]
- ST1 là xâu cần tìm
iiI. Một số ví dụ
4. Một số hàm …
I. K.NIỆM VÀ K.BÁO
1. Khái niệm xâu
Ví dụ:
2. Khai báo xâu
3. Nhập, xuất…
II.CÁC THAO TÁC …
1. Phép ghép xâu
2. Các phép so …
Ví dụ:
3. Một số thủ tục …
III.MỘT SỐ VÍ DỤ
Ví dụ 1: Viết chương trình nhập một xâu từ bàn phím và đưa ra màn hình xâu thu được từ nó sau khi loại bỏ các dấu cách nếu có.
Chương trình:
Var st, st1:string; i:integer;
BEGIN
Write(‘ nhap xau ST = ’ ); readln(st);
ST1:= ‘’ ;
For i:=1 to length(st) do
if st[i] <> ‘ ’ then st1:=st1+st[i];
Writeln(st);
writeln(st1);
Readln
END.
Cũng cố
Các thao tác xử lí xâu
Var
:String[độ dài];
Hoặc
Var : String;
Phép ghép xâu: +
Các phép so sánh: =,<>,<, >, <=, >=
Một số thủ tục làm việc với xâu:
a) delete(st,vt,n);
b) Insert(s1,s2,vt);
4. Một số thủ tục làm việc với xâu:
Copy(S,vt,N)
Length(s)
Pos(s1,s2)
Upcase(ch)