Ví dụ 3 : Nhập 1 xâu, viết ra màn - Gọi học sinh đọc đề bài và phân hình xâu đó theo thứ tự ngược lại của tích nội dung yêu cầu của đề.. - Đọc đề bài và xác định yêu cầu của bài toán..[r]
Trang 1
và tên giáo viên :
MSSV:K31103309
() 25
- Ý
- Tìm
,7 I :
-
Thái FB :
- Giúp
SA( M =T( xâu
Giáo viên: giáo án, sách giáo khoa, slide
%%%&0 pháp, 10 345
-IV.Các 6 347 hành
1 9 (/ :61&
2
sánh, và hai
liên quan F% UH lý xâu Bài 12: ,A( Xâu(tt)
3 Bài 4A
B4 dung bài 4A
Bài 12: Kiểu xâu (tiếp theo)
2) Các thao tác xử lí xâu:
c) hàm copy(S, vt, N)
Ý
Ví dụ 1: S1: = ‘De Thuong’
S2: = copy(S1, 4, 6);
S2 = ‘Thuong’;
Ví dụ 2: S1:= ‘Gia Dinh’
S2:= copy(S1,1,3);
- Hãy cho copy
-
- Cho ví E d hàm copy
- Cho
-
liên
vt
Trang 2S2= ‘Gia’;
d) Hàm length(S)
Ý
Ví dụ 1: S: = ‘11C5’;
length(S) = 4;
Ví dụ 2: S:= ‘Chu Van An’;
length(S)=10;
e) Hàm pos(s1, s2)
Ý
Ví dụ 1: s1: =‘me’;
s2: = ‘ba me’;
pos(s1, s2) = 4;
Ví dụ 2: s1:=’em’;
s2:=’ba me’;
pos(s1, s2) = 0;
f) Hàm upcase(ch):
cách H E?
Ví dụ 1: ch: = ‘d’;
upcase(ch) = ‘D’;
Ví dụ 2: ch: = ‘E’;
upcase(ch) = ‘E’;
3
Ví dụ 1 : Nhập vào họ tên của hai
người vào hai xâu, đưa ra màn hình
xâu nào dài hơn, nếu hai xâu bằng
nhau thì xuất ra xâu thứ hai
- ;D 0 trình:
Var a,b : String ;
Begin
Write('Nhap ho ten thu 1 : ') ;
Readln(a) ;
Write('Nhap ho ten thu 2 : ') ;
Readln(b) ;
If length(a) > length(b) then
- Hãy cho length
- Cho ví E d hàm length
- Cho
- Hãy cho pos
- Cho ví E d hàm pos
- nhiêu?
- Hãy cho upcase
- Cho ví E d hàm upcase
- Phân tích yêu
2)
-
l?
- Cho trình và phân tích ý
- Xâu S2= ‘Gia’.
- Cho giá S
- Cho giá
- Cho
trong xâu s2
- Giá
- n\ nghe ghi bài
- sách d các hàm ]8 FP d hàm tính FB dài
length).
- Chú ý =\ nghe và ghi chép =?
Trang 3Write(a)
else
Write(b);
Readln ;
End
Ví dụ 2 : Nhập 2 xâu, kiểm tra xem ký
tự đầu tiên của xâu thứ nhất có trùng
với ký tự cuối cùng của xâu thứ hai
hay không ?
- ;D 0 trình:
Var a,b : String ;
x : Byte ;
Begin
Write('Nhap xau thu 1 : ');
Readln(a) ;
Write('Nhap xau thu 2 : ');
Readln(b) ;
x := length(b) ;
If a[1] = b[x] then
Write('Trung nhau')
else
Write('Khac nhau');
Readln ;
End
Ví dụ 3 : Nhập 1 xâu, viết ra màn
hình xâu đó theo thứ tự ngược lại của
các ký tự trong xâu
- ;D 0 trình:
Var i,k : Byte ;
a : String ;
- tích yêu
- Chú ý khi truy
tên trong liên T qua hàm length FA tính
- Cho trình và dòng =T?
- tích
-
1 F% n là for i:=1 to n do, còn
thì dùng for i:=n downto 1 do
chú ý n q FV là hàm
length.
- Cho trình và dòng =T?
- cách truy
- Suy tính cùng
- n\ nghe và ghi chép
=?
- yêu
- vòng =o
for…downto…do và length.
- Chú ý =\ nghe và ghi chép =?
Trang 4Begin
Write('Nhap xau : ') ;
Readln(a) ;
k := length(a) ;
For i := k downto 1 do
Write(a[i]) ;
Readln ;
End
Ví dụ 4 : Nhập 1 xâu, viết ra màn
hình xâu đó nhưng đã được loại bỏ
các dấu cách nếu có
- ;D 0 trình:
Var i,k : Byte ;
a,b : String ;
Begin
Write('Nhap xau : ') ;
Readln(a) ;
k := length(a) ;
b :='' ;
For i := 1 to k do
if a[i] <> '' then
b := b+a[i] ;
Write(b) ;
Readln ;
End
Ví dụ 5 : Nhập 1 xâu kí tự s1, tạo xâu
s2 gồm các chữ số có trong xâu s1,
xuất kết quả ra màn hình.
- ;D 0 trình
Program Xulixau ;
Var s1,s2 : String ;
i : Byte ;
Begin
Write('Nhap xau s1 : ') ;
- tích
- OK thích nên dùng 1 xâu u
cách
- Cho hoc sinh xem trình và
dòng =T?
- tích
-
xâu s1 &K có Fd( ST FA xác F^ C trong xâu s1
- Cho hoc sinh xem trình và
dòng =T?
-
toán
- dùng xâu u FA =(
Q( cách
- Chú ý =\ nghe và ghi chép =?
-
toán
- dùng xâu u và Fd( ST FA xác F^ C trong xâu s1
- Chú ý =\ nghe và ghi chép =?
Trang 5Readln(s1) ;
s2 := '' ;
For i := 1 to length(s1) do
If ('0'<=s1[i]) and (s1[i]<='9')
then
s2 := s2 + s1[i] ;
Write(s2);
Readln ;
End
4 ,E ,c
-
- Chú ý xem = các ví E trong SGK
5 < dò:
- fd nhà xem = bài và làm = các ví E trên SGK
- Xem và
V Rút kinh 45 – @g sung:
Giáo viên
Sinh viên
...sánh, hai
liên quan F% UH lý xâu Bài 12: ,A( Xâu( tt)
3 Bài 4A
B4 dung 4A
Bài 12: Kiểu xâu (tiếp theo)
2) Các...
- Phân tích yêu
2)
-
l?
- Cho trình phân tích ý
- Xâu S2= ‘Gia’.
- Cho giá S
- Cho giá
- Cho
trong xâu s2...
- Cho hoc sinh xem trình
dịng =T?
-
tốn
- dùng xâu u FA =(
Q( cách
- Chú ý =\ nghe ghi chép =?
-
toán
- dùng xâu