Ví dụ 1: Viết chương trình nhập vào một xâu kí tự. Xâu nhập vào có thể chứa dấu cách ở đầu xâu. Cho hiển thị lên màn hình xâu đã nhập sau khi xóa hết dấu cách ở đầu xâu. Ví dụ 2: Viết chương trình nhập vào hai xâu kí tự s1 và s2. Chèn xâu s1 vào xâu s2 bắt đầu từ vị trí thứ 5. Viết kết quả của xâu s2 ra màn hình.
? Em hóy cho bit chng trỡnh sau cú ý ngha gỡ? Program vi_du; Var A: array [1 100] of integer; n, i,T:integer; Begin Write (nhap so phan tu n=); readln (n); For i:=1 to n begin Write (nhap phan tu thu , i, =); Readln (A[i]); End; T:=0; For i:=1 to n T:= T + A[i]; Writeln (Tong la:, T); Readln End ý ngha chng trỡnh : Nhp vo mt s nguyờn dng n (n B nếu: + Kí tự khác chúng xâu A có mã ASCII lớn xâu B Ha Noi > Ha Nam - Xâu A = B chúng giống hệt + Xâu B đoạn đầu xâu A Viet Nam > Viet Ví dụ: So sánh xâu sau đây: a) Anh < Em b) abc c) Tin hoc d) Tin học < acb > < Tin tin b Cỏc th tc v hm chun x lớ xõu * Cỏc th tc x lý xõu: Th tc Delete(S,vt,n) Insert(S1,S2,vt) í ngha Vớ d Xúa n kớ t xõu S t v trớ vt S = Song Hong Delete(S,1,5) Hong Chốn xõu S1 vo xõu S2 t v trớ vt S1= S2= Hinh Insert(s1,s2,6) Hinh 1.2 Vớ d 1: Vit chng trỡnh nhp vo mt xõu kớ t Xõu nhp vo cú th cha du cỏch u xõu Cho hin th lờn mn hỡnh xõu ó nhp sau xúa ht du cỏch u xõu Program vi_du; Uses crt; Var s:string; Begin Writeln(nhap xau s); Readln(s); While s[1]= Delete(s,1,1); Writeln(xau sau loai bo dau cach o dau la:, s); Readln; End Vớ d 2: Vit chng trỡnh nhp vo hai xõu kớ t s1 v s2 Chốn xõu s1 vo xõu s2 bt u t v trớ th Vit kt qu ca xõu s2 mn hỡnh Program vi_du; Uses crt; Var s1, s2 : string; Begin Writeln(nhap xau s1); Readln(s1); Writeln(nhap xau s2); Readln(s2); Insert (s1,s2,5); Writeln(xau s2 sau chen xau s1 o vi tri thu la:, s2); Readln; End * Cỏc hm x lý xõu: Hàm ý nghĩa Ví dụ S = Tin hoc Copy(S,vt,n) To xõu gm N kớ t liờn tip t v trớ vt ca xõu S Length(S) Cho giỏ tr l di ca xõu S S = Xin chao Length(S) = Pos(S1,S2) Cho v trớ u tiờn ca xõu S1 xõu S2 S1= S2= Hinh 1.2 Pos(S1,S2) = UPCase(ch) Chuyn kớ t ch thnh ch hoa Ch= a UPCase(ch) = A Copy(S,5,3)= hoc Hãy nhớ! Xõu l dóy kớ t b mó ASCII Xin chao cac ban! Var S : string[30] S[1] = X Khai bỏo: Tờn xõu, di ln nht ca xõu Tham chiu n phn t ca xõu: Tờn xõu[chi s]; Cỏc thao tỏc x lớ xõu thng dựng: + Phộp ghộp xõu, so sỏnh xõu + Cỏc hm v th tc liờn quan [...]... xâu S1 trong xâu S2 S1=‘ 1’ S2=‘ Hinh 1.2’ Pos(S1,S2) = 6 4 UPCase(ch) Chuyển kí tự ch thành chữ hoa Ch=‘ a’ UPCase(ch) = ‘ A’ Copy(S,5,3)= ‘ hoc’ H·y nhí! Xâu là dãy kí tự trong bộ mã ASCII ‘Xin chao cac ban!’ Var S : string[30] S[1] = ‘X’ Khai báo: Tên xâu, độ dài lớn nhất của xâu Tham chiếu đến phần tử của xâu: Tên xâu[ chi số]; Các thao tác xử lí xâu thường dùng: + Phép ghép xâu, so sánh... nhập vào một xâu kí tự Xâu nhập vào có thể chứa dấu cách ở đầu xâu Cho hiển thị lên màn hình xâu đã nhập sau khi xóa hết dấu cách ở đầu xâu Program vi_du; Uses crt; Var s:string; Begin Writeln(‘nhap xau s’); Readln(s); While s[1]= ‘ ‘ do Delete(s,1,1); Writeln(‘xau sau khi loai bo dau cach o dau la:’, s); Readln; End Ví dụ 2: Viết chương trình nhập vào hai xâu kí tự s1 và s2 Chèn xâu s1 vào xâu s2 bắt... của xâu s2 ra màn hình Program vi_du; Uses crt; Var s1, s2 : string; Begin Writeln(‘nhap xau s1’); Readln(s1); Writeln(‘nhap xau s2’); Readln(s2); Insert (s1,s2,5); Writeln(‘xau s2 sau khi chen xau s1 o vi tri thu 5 la:’, s2); Readln; End * Các hàm xử lý xâu: Hµm ý nghÜa VÝ dô S = ‘ Tin hoc’ 1 Copy(S,vt,n) Tạo xâu gồm N kí tự liên tiếp từ vị trí vt của xâu S 2 Length(S) Cho giá trị là độ dài của xâu. .. cac ban!’ Var S : string[30] S[1] = ‘X’ Khai báo: Tên xâu, độ dài lớn nhất của xâu Tham chiếu đến phần tử của xâu: Tên xâu[ chi số]; Các thao tác xử lí xâu thường dùng: + Phép ghép xâu, so sánh xâu + Các hàm và thủ tục liên quan ... Cho v trớ u tiờn ca xõu S1 xõu S2 S1= S2= Hinh 1.2 Pos(S1,S2) = UPCase(ch) Chuyn kớ t ch thnh ch hoa Ch= a UPCase(ch) = A Copy(S,5,3)= hoc Hãy nhớ! Xõu l dóy kớ t b mó ASCII Xin chao cac ban!