Cho biết chương trình sau làm gì? Cho biết chương trình sau làm gì? Chạy thử một ví dụ minh hoạ? Chạy thử một ví dụ minh hoạ? Var A: array[1 100] of char; Var A: array[1 100] of char; n,i: integer; n,i: integer; Begin Begin n:= 1; n:= 1; Writeln('Nhap ho ten(tung chu cai)'); Writeln('Nhap ho ten(tung chu cai)'); Write('Nhap chu cai thu ',n,' (nhap dau * de ket Write('Nhap chu cai thu ',n,' (nhap dau * de ket thuc)'); Readln(A[n]); thuc)'); Readln(A[n]); While a[n] <> '*' do While a[n] <> '*' do Begin Begin inc(n); inc(n); Write('Nhap chu cai thu ',n,' (nhap dau * de ket Write('Nhap chu cai thu ',n,' (nhap dau * de ket thuc)'); Readln(A[n]); thuc)'); Readln(A[n]); End; End; dec(n); dec(n); Writeln('Ten nguoi do la:'); Writeln('Ten nguoi do la:'); For i:= 1 to n do Write(a[i]); For i:= 1 to n do Write(a[i]); Writeln; Writeln; Writeln('Ten do co do dai ',n,' ki tu'); Writeln('Ten do co do dai ',n,' ki tu'); Readln; Readln; End.0 End.0 § 12. KIỂU XÂU. § 12. KIỂU XÂU. - Xâu: dãy ký tự trong bộ mã ASCII, mỗi ký tự được - Xâu: dãy ký tự trong bộ mã ASCII, mỗi ký tự được gọi là một phần tử. gọi là một phần tử. - Độ dài xâu: Số ký tự trong xâu. - Độ dài xâu: Số ký tự trong xâu. - Xâu rỗng: Có độ dài bằng 0. - Xâu rỗng: Có độ dài bằng 0. - Có thể xem xâu là một mảng 1 chiều mà mỗi phần - Có thể xem xâu là một mảng 1 chiều mà mỗi phần tử là một ký tự. tử là một ký tự. 1. Khai báo. 1. Khai báo. Trực tiếp: Trực tiếp: Var <Tên biến>: String[Độ dài lớn nhất]; Var <Tên biến>: String[Độ dài lớn nhất]; Ví dụ 1: Var st: String[10]; Ví dụ 1: Var st: String[10]; Ví dụ 2: Var hoten: String[20]; Ví dụ 2: Var hoten: String[20]; Gián tiếp: Gián tiếp: Type <Tênkiểuxâu> = String[Độ dài lớn nhất]; Type <Tênkiểuxâu> = String[Độ dài lớn nhất]; Var <Tên biến>:<Tênkiểuxâu>; Var <Tên biến>:<Tênkiểuxâu>; Ví dụ 1: Ví dụ 1: Type xauST = String[10]; Type xauST = String[10]; Var st: xauST; Var st: xauST; Ví dụ 2: Ví dụ 2: Type xauhoten= String[20]; Type xauhoten= String[20]; Var hoten: xauhoten; Var hoten: xauhoten; *. *. Có thể bỏ qua phần khai báo độ dài Có thể bỏ qua phần khai báo độ dài . . Ví dụ: ghichu: String; Ví dụ: ghichu: String; độ dài lớn nhất ngầm định là 255 độ dài lớn nhất ngầm định là 255 2. Các thao tác xử lý xâu. 2. Các thao tác xử lý xâu. a. a. Nhập/xuất Nhập/xuất Nhập: Nhập: Read(<Biến xâu>); Read(<Biến xâu>); hay: hay: Readln(<Biến xâu>); Readln(<Biến xâu>); Xuất: Xuất: Write(<Biến xâu>); Write(<Biến xâu>); hay: hay: Writeln(<Biến xâu>); Writeln(<Biến xâu>); * Để tham chiếu tới một phần tử của xâu ta sử dụng cú pháp: * Để tham chiếu tới một phần tử của xâu ta sử dụng cú pháp: <Tên biến xâu>[Vị trí tham chiếu] <Tên biến xâu>[Vị trí tham chiếu] Ví dụ: St[5]; hoten[7]; … Ví dụ: St[5]; hoten[7]; … b. b. Ghép xâu Ghép xâu . . Ký hiệu: Ký hiệu: + + Ví dụ: Ví dụ: ‘ ‘ Ha’ + ‘Noi’ = ‘HaNoi’ Ha’ + ‘Noi’ = ‘HaNoi’ ‘ ‘ Viet’ + ‘ ’ + ‘Nam’ = ‘Viet Nam’ Viet’ + ‘ ’ + ‘Nam’ = ‘Viet Nam’ c. c. So sánh. So sánh. Quy tắc: SGK. Quy tắc: SGK. Ví dụ: ‘Truong THPT’<‘Truong THPT NQ’ Ví dụ: ‘Truong THPT’<‘Truong THPT NQ’ ‘ ‘ Doan ket’ = ‘Doan ket’ Doan ket’ = ‘Doan ket’ d. d. Thủ tục xoá Thủ tục xoá . . Cú pháp: Cú pháp: delete(st,vt,n) delete(st,vt,n) . . Chức năng: Xoá Chức năng: Xoá n n ký tự của biến xâu ký tự của biến xâu st st bắt đầu từ vị trí bắt đầu từ vị trí vt vt . . Ví dụ: St = ‘Truong THPT NQ’; Ví dụ: St = ‘Truong THPT NQ’; delete(st,8,5); delete(st,8,5); ⇒ ⇒ St = ‘Truong NQ’; St = ‘Truong NQ’; e. e. Thủ tục chèn Thủ tục chèn . . Cú pháp: Cú pháp: insert(st1,st2,vt) insert(st1,st2,vt) . . Chức năng: Chèn xâu Chức năng: Chèn xâu st1 st1 vào xâu vào xâu st2 st2 bắt đầu ở vị trí bắt đầu ở vị trí vt vt . . Ví dụ: St1 = ‘Thu tuc insert’; St2 = ‘chen ’; Ví dụ: St1 = ‘Thu tuc insert’; St2 = ‘chen ’; Insert(St2,St1,8); Insert(St2,St1,8); ⇒ ⇒ St1 = ‘Thu tuc chen insert’ St1 = ‘Thu tuc chen insert’ 2. Các thao tác xử lý xâu. 2. Các thao tác xử lý xâu. f. f. Hàm sao chép. Hàm sao chép. Cú pháp: Cú pháp: copy(S,vt,n) copy(S,vt,n) . . Chức năng: Tạo xâu gồm Chức năng: Tạo xâu gồm n n ký tự liên tiếp bắt đầu từ vị trí ký tự liên tiếp bắt đầu từ vị trí vt vt của xâu của xâu S S . . Ví dụ: Ví dụ: S = ‘Nguyen van A’; S = ‘Nguyen van A’; copy(S,1,6); copy(S,1,6); ‘ ‘ Nguyen’ Nguyen’ g. g. Hàm cho độ dài. Hàm cho độ dài. Cú pháp: Cú pháp: length(s). length(s). Chức năng: Trả về độ dài của xâu Chức năng: Trả về độ dài của xâu s s . . Ví dụ: Ví dụ: S = ‘Nguyen van A’; S = ‘Nguyen van A’; length(s) = 12. length(s) = 12. 2. Các thao tác xử lý xâu. 2. Các thao tác xử lý xâu. h. h. Hàm pos Hàm pos . . Cú pháp: Cú pháp: pos(s1,s2); pos(s1,s2); Chức năng: Trả về vị trí xuất hiện đầu tiên của xâu Chức năng: Trả về vị trí xuất hiện đầu tiên của xâu s1 s1 trong xâu trong xâu s2 s2 . . Ví dụ: Ví dụ: s1 = ‘THPT’; s1 = ‘THPT’; s2 = ‘Truong THPT NQ’; s2 = ‘Truong THPT NQ’; pos(s1,s2) = 8. pos(s1,s2) = 8. i. i. Hàm đổi thành chữ in hoa. Hàm đổi thành chữ in hoa. Cú pháp: Cú pháp: upcase(ch); upcase(ch); Chức năng: Cho chữ cái in hoa tương ứng với chữ cái trong Chức năng: Cho chữ cái in hoa tương ứng với chữ cái trong ch ch . . Ví dụ: Ví dụ: upcase(‘a’)= ‘A’; upcase(‘a’)= ‘A’; upcase(‘T’)= ‘T’; upcase(‘T’)= ‘T’; 2. Các thao tác xử lý xâu. 2. Các thao tác xử lý xâu. Như vậy chúng ta đã tìm hiểu về Như vậy chúng ta đã tìm hiểu về các khái niệm liên quan đến kiểu dữ liệu các khái niệm liên quan đến kiểu dữ liệu xâu. Trong bài học này chúng ta cần chú xâu. Trong bài học này chúng ta cần chú ý đến các cách khai báo biến kiểu xâu và ý đến các cách khai báo biến kiểu xâu và các cú pháp của hàm và thủ tục để xử lý các cú pháp của hàm và thủ tục để xử lý xâu. xâu. Bài học của chúng ta kết thúc tại đây. Bài học của chúng ta kết thúc tại đây. Chúc thầy cô Chúc thầy cô và các em học sinh sức khoẻ. và các em học sinh sức khoẻ. Xin Cám Ơn! Xin Cám Ơn! . Ví dụ 1: Type xauST = String[10]; Type xauST = String[10]; Var st: xauST; Var st: xauST; Ví dụ 2: Ví dụ 2: Type xauhoten= String[20]; Type xauhoten= String[20];. Type xauhoten= String[20]; Type xauhoten= String[20]; Var hoten: xauhoten; Var hoten: xauhoten; *. *. Có thể bỏ qua phần khai báo độ dài Có thể bỏ qua