Bài 12. Kiểu xâu
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Nam Linh
Ngày gửi: 19h:16' 14-03-2008
Dung lượng: 112.0 KB
Số lượt tải: 12
Nguồn:
Người gửi: Nam Linh
Ngày gửi: 19h:16' 14-03-2008
Dung lượng: 112.0 KB
Số lượt tải: 12
Số lượt thích:
0 người
Tiết 25+26 Kiểu xâu
1)Khai báo
Để khai báo kiểu dữ liệu xâu ta dung từ dành riêng string 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à ] Var:string [độ dài lớn nhất cuả xâu ];
Ví dụ : var Hoten :string [27];
Chú ý có thể bỏ qua phân độ dài vì mặc định là <255
Ví dụ :
var Hoten :string ;
2) Các phép sử lý xâu :
a)Phép ghép xâu (cộng ):
Ví dụ:
`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 :(=) , (<> ) , (< ) , (>) (<=) ,(=>)
Ví dụ : ` may tinh ` < `may tinh cua toi `
c) Thủ tục delete(st,vt,n)
f) Hàm length(s) cho độ dài của xâu S
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
d) Thủ tục insert(s1,s2,vt)chèn xâu s1 vào xâu s2
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
h) upcase(ch). Cho chữ cái in hoa ứng với chữ cái trong ch
Ví dụ1:Nhập vào tên hai người và in ra xâu dài hơn
Program Tim_xau ;
Var a,b:string ;
Begin
Write(` nhập vao họ tên thu nhat `);Readln(a);
Write(` nhập vao họ tên thu hai `);Readln(b);
If length(a) >length(b) then write(a)
else write(b);
Readln;
END.
1)Khai báo
Để khai báo kiểu dữ liệu xâu ta dung từ dành riêng string 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à ] Var
Ví dụ : var Hoten :string [27];
Chú ý có thể bỏ qua phân độ dài vì mặc định là <255
Ví dụ :
var Hoten :string ;
2) Các phép sử lý xâu :
a)Phép ghép xâu (cộng ):
Ví dụ:
`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 :(=) , (<> ) , (< ) , (>) (<=) ,(=>)
Ví dụ : ` may tinh ` < `may tinh cua toi `
c) Thủ tục delete(st,vt,n)
f) Hàm length(s) cho độ dài của xâu S
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
d) Thủ tục insert(s1,s2,vt)chèn xâu s1 vào xâu s2
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
h) upcase(ch). Cho chữ cái in hoa ứng với chữ cái trong ch
Ví dụ1:Nhập vào tên hai người và in ra xâu dài hơn
Program Tim_xau ;
Var a,b:string ;
Begin
Write(` nhập vao họ tên thu nhat `);Readln(a);
Write(` nhập vao họ tên thu hai `);Readln(b);
If length(a) >length(b) then write(a)
else write(b);
Readln;
END.
Các ý kiến mới nhất