tin11

Tiết 25+26 Tiết 25+26 Kiểu xâu Kiểu xâu 1 1 )Khai báo )Khai báo Để khai báo kiểu dữ liệu xâu ta dung từ dành riêng Để khai báo kiểu dữ liệu xâu ta dung từ dành riêng string string tiếp theo đó là độ dài lớn nhất của xâu (Không tiếp theo đó là độ dài lớn nhất của xâu (Không quá 255kí tự ) đựơc ghi trong cặp ngoặc [ và ] quá 255kí tự ) đựơc ghi trong cặp ngoặc [ và ] Var Var <tên biến >:string [độ dài lớn nhất cuả xâu ]; <tên biến >:string [độ dài lớn nhất cuả xâu ]; Ví dụ Ví dụ : var Hoten :string [27]; : var Hoten :string [27]; Chú ý có thể bỏ qua phân độ dài vì mặc định là <255 Chú ý có thể bỏ qua phân độ dài vì mặc định là <255 Ví dụ Ví dụ : : var Hoten :string ; var Hoten :string ; 2) C¸c phÐp sö lý x©u : 2) C¸c phÐp sö lý x©u : a)PhÐp ghÐp x©u (céng ): a)PhÐp ghÐp x©u (céng ): VÝ dô: VÝ dô: ‘ ‘ Ha ‘ + ’ Noi ‘ + ’ Viet Nam ‘ Ha ‘ + ’ Noi ‘ + ’ Viet Nam ‘ Cho kÕt qu¶ lµ x©u ‘Ha Noi Viet Nam’ Cho kÕt qu¶ lµ x©u ‘Ha Noi Viet Nam’ b)C¸c phÐp so s¸nh x©u :(=) , (<> ) , (< ) , (>) b)C¸c phÐp so s¸nh x©u :(=) , (<> ) , (< ) , (>) (<=) ,(=>) (<=) ,(=>) VÝ dô : ‘ may tinh ‘ < ‘may tinh cua toi ‘ VÝ dô : ‘ may tinh ‘ < ‘may tinh cua toi ‘ c) Thñ tôc delete(st,vt,n) c) Thñ tôc delete(st,vt,n) Gi¸ trÞ cña st Gi¸ trÞ cña st Thao t¸c Thao t¸c KÕt qu¶ KÕt qu¶ ‘ ‘ abcdef ’ abcdef ’ delete(st,5,2) delete(st,5,2) ‘ ‘ abcd ’ abcd ’ ‘ ‘ Thanh thanhh’ Thanh thanhh’ delete(st,12,1) delete(st,12,1) ‘ ‘ Thanh thanh ‘ Thanh thanh ‘ f) Hµm length(s) cho ®é dµi cña x©u S f) Hµm length(s) cho ®é dµi cña x©u S Gi¸ trÞ s BiÓu thøc KÕt quả ‘leHung length(s) 6 e) Hµm copy(S,vt,N) .t¹o mét x©u N kÝ tù liªn tiÕp b¾t e) Hµm copy(S,vt,N) .t¹o mét x©u N kÝ tù liªn tiÕp b¾t ®Çu tõ vÞ trÝ vt cña x©u S ®Çu tõ vÞ trÝ vt cña x©u S Gi¸ trÞ cñ x©u Thao t¸c KÕt quả ‘ Bui Linh ’ Copy(s,5,4) ‘ Linh’ d) Thñ tôc insert(s1,s2,vt)chÌn x©u s1 vµo x©u s2 d) Thñ tôc insert(s1,s2,vt)chÌn x©u s1 vµo x©u s2 Gi¸ trÞ s1 Gi¸ trÞ s1 Gi¸ trÞ s2 Gi¸ trÞ s2 Thao t¸c Thao t¸c KÕt qu¶ KÕt qu¶ ‘ ‘ Hung ‘ Hung ‘ ‘ ‘ Phi ‘ Phi ‘ ‘ ‘ insert(s1,s2,5) insert(s1,s2,5) ‘ ‘ Phi Hung’ Phi Hung’ g) Hàm pos(s1,s2) Cho vị trí xuất hiện đầu tiên g) Hàm pos(s1,s2) Cho vị trí xuất hiện đầu tiên của xâu s1 trong xâu s2 của xâu s1 trong xâu s2 Giá trị s2 Giá trị s2 Biểu thức Biểu thức Kết quả Kết quả leHung leHung Thanh Thiên Thanh Thiên pos(H,s2) pos(H,s2) Pos(i,s2) Pos(i,s2) 3 3 ? ? h) upcase(ch). Cho ch÷ c¸i in hoa øng víi h) upcase(ch). Cho ch÷ c¸i in hoa øng víi ch÷ c¸i trong ch ch÷ c¸i trong ch Gi¸ trÞ cña ch Gi¸ trÞ cña ch BiÓu thøc BiÓu thøc KÕt qu¶ KÕt qu¶ ‘ ‘ hung’ hung’ upcase(ch) upcase(ch) ‘ ‘ HUNG’ HUNG’ ‘ ‘ nGot’ nGot’ upcase(ch) upcase(ch) ‘ ‘ ngot’ ngot’ ? ? ? ? ? ? VÝ dô1:NhËp vµo tªn hai ng­êi vµ in ra x©u dµi h¬n VÝ dô1:NhËp vµo tªn hai ng­êi vµ in ra x©u dµi h¬n Program Tim_xau ; Program Tim_xau ; Var a,b:string ; Var a,b:string ; Begin Begin Write(‘ nhËp vao hä tªn thu nhat ’);Readln(a); Write(‘ nhËp vao hä tªn thu nhat ’);Readln(a); Write(‘ nhËp vao hä tªn thu hai ’);Readln(b); Write(‘ nhËp vao hä tªn thu hai ’);Readln(b); If length(a) >length(b) then write(a) If length(a) >length(b) then write(a) else write(b); else write(b); Readln; Readln; END. END.