Đang tải... (xem toàn văn)
Các hàm và thủ tục trên xâu:... Các hàm và thủ tục trên xâu:..[r]
(1)(2)IV
IV
Kiểu liệu có cấu trúc
V
V
Tệp thao tác tệp
VI
VI
Chương trình và lập trình có cấu trúc
11 Kiểu mảng 12 Kiểu xâu
13 Kiểu ghi
(3) Xâu một dãy kí tự bảng mã ………. Mỗi kí tự xâu gọi một………….……… Chỉ số phần tử xâu thường đánh bắt đầu Số lượng ký tự xâu gọi là
……….………
Xâu có độ dài gọi xâu……… ASCII phần tử xâu
1 độ dài xâu
(4)Cú pháp:
Var <S> : string [n];
Trong đó:
S: n:
Nếu không khai báo độ dài tối đa cho biến xâu
kí tự (n) độ dài ngầm định xâu …….
2 Khai báo biến xâu:
tên biến xâu.
độ dài lớn xâu.
(5) Phép ghép xâu:
VD: Cho khai báo Var xau : string[30]; Khi chạy đoạn chương trình Kết in lên hình là?
xau:=‘Chao'; write(xau + ‘ ban!’); o Chao ban!
Phép so sánh xâu:
VD: Cho khai báo Var a, b : string[10]; So sánh xâu sau? a:=‘Nguyen A’ b:=‘Nguyen B’
(6) Phép so sánh xâu:
VD: Cho khai báo Var a, b : string[10]; So sánh xâu sau?
a:=‘Nguyen A’ b:=‘Nguyen B’ o Xâu b lớn xâu a
(7)(8) Thủ tục DELETE:
4 Các hàm thủ tục xâu:
(9) Thủ tục DELETE:
VD1: Cho khai báo Var HoTen : string;
Khi chạy đoạn chương trình Kết in lên màn hình là?
HoTen:='Nguyen Van Teo'; Delete(HoTen,7,5); write(HoTen);
(10) Thủ tục DELETE:
VD2: Cho khai báo Var HoTen : string;
Khi chạy đoạn chương trình Kết in lên màn hình là?
HoTen:='Tran Thi Ty'; Delete(HoTen,8,3); write(HoTen);
Tran Thy
(11) Thủ tục INSERT:
(12) Thủ tục INSERT:
VD1: Cho khai báo Var b : string; Khi chạy
đoạn chương trình Kết in lên hình là?
b:='Beautifully'; Insert(';)',b,1); Write(b);
;)Beautifully
(13) Thủ tục INSERT:
VD2: Cho khai báo Var a : string; Khi chạy
đoạn chương trình Kết in lên hình là?
a:='Wonderfully'; Insert(':)',a,1); Write(a);
(14) Hàm COPY:
4 Các hàm thủ tục xâu:
(15) Hàm COPY:
VD1: Cho khai báo Var c : string; Khi chạy
đoạn chương trình Kết in lên hình là?
c:='Beautifully'; Write(copy(c,3,4));
(16) Hàm COPY:
VD2: Cho khai báo Var d : string; Khi chạy
đoạn chương trình Kết in lên hình là?
d:='AntiVirus'; Write(copy(d,4,3));
iVi
(17) Hàm LENGTH:
VD1: Cho khai báo Var d : string; Khi chạy
đoạn chương trình Kết in lên hình là?
d:='AntiVirus'; Write(length(d));
(18) Hàm LENGTH:
VD2: Cho khai báo Var e : string[9]; Khi
chạy đoạn chương trình Kết in lên hình là?
e:='Beautifully'; Write(length(e));
9
(19) Hàm POS:
(20) Hàm POS:
VD1: Cho khai báo Var x,y : string; Khi chạy
đoạn chương trình Kết in lên hình là?
x:='computer programmer'; y:='pro'; Write(pos(x,y));
0
(21) Hàm POS:
VD2: Cho khai báo Var m,n : string; Khi chạy
đoạn chương trình Kết in lên hình là?
m:='computer programmer'; n:='pro'; Write(pos(n,m));
(22) Hàm UPCASE:
VD1: Khi chạy đoạn chương trình Kết in
lên hình là?
write(upcase('h'));
H
(23) Hàm UPCASE:
VD2: Khi chạy đoạn chương trình Kết in
lên hình là?
write(upcase(‘K'));
(24)1 Khi chạy đoạn chương trình sau Kết in lên hình là?
a write(‘Le Minh’ = ‘Le Anh’);
b writeln(‘Tran Anh’ <> ‘Tran Em’); c If (‘Mai’>’Tuan’) then write(10) else write(0);
d If (‘Cuong’=’Trang’) then writeln(‘A’) else writeln(‘B’);
(25)VD: Cho khai báo Var c:string[10];
c:='yahoo messenger'; c:=copy(c,4,12);
delete(c,1,4); insert('@',c,1);write(c);
(26)VD: Cho khai báo Var c:string[10];
c:='Internet explorer'; c:=copy(c,4,12); delete(c,1,7);insert('@',c,1); write(c);
@