Bài tập và thực hành 5

Bài tập xâu
Có bao nhiêu thao tác xử lí xâu?
Phép ghép xâu:
2. Phép toán so sánh: <, <=, =, >=, >, <>
3. Các h�m, th? t?c chu?n:
a. Th? t?c Delete(St, vt, n):
b. Th? t?c Insert(St1, St2, vt):
c. H�m Copy(St, vt, n):
d. H�m Length(St):
e. H�m Pos(St1, St2):
f. H�m Upcase(Ch):
Bài tập (1):
Đề: Viết chương trình nhập vào một xâu rồi in ra màn hình xâu đảo của một xâu đó.
Minh hoạ
Bài tập xâu
Minh hoạ (1)
Var St:String;

i:Byte;
0
1
3
2
…
4
255
St
Write(‘Nhap vao mot xau: ’);

Readln(St);
i
a
b
c
d
0
a
c
d
b
4
For i:=length(St) downto 1 do

Write(St[i]);
Nhap vao mot xau:
4
d
c
b
a
3
2
1
Màn hình
Chuong trình:
Program xau_dao;
Var St:String;
i:Byte;
Begin
Write(`Nhap vao mot xau: `); Readln(St);
For i:=length(St) downto 1 do
Write(St[i]);
Readln;
End.
Bài tập xâu
Bài tập (2):
Đề: Viết chương trình nhập vào một xâu. In ra màn hình xâu đó sau khi đã đổi tất cả chữ in thường thành in hoa.
Minh hoạ
Minh hoạ (2)
Var St:String[10];

i:Byte;
0
1
3
2
…
4
10
St
i
Write(‘Nhap vao mot xau: ’);

Readln(St);
Nhap vao mot xau:
For i:=1 to length(St) do

St[i]:=Upcase(St[i]);
Màn hình
Xau sau khi da in hoa la:
3
0
X
a
u
1
X
A
U
X
a
u
Writeln(‘Xau sau khi da in hoa la:’, St);
2
3
A
U
X
Bài tập xâu
Chuong trình:
Program in_hoa;
Var St:String[10]; i:Byte;
Begin
Write(`Nhap vao mot xau: `); Readln(St);
For i:=1 to length(St) do
St[i]:=Upcase(St[i]);
Writeln(`Xau sau khi da in hoa la:`, St);
Readln;
End.
Bài tập (3):
Đề: Viết chương trình nhập vào một xâu bất kỳ rồi in ra màn hình số từ của xâu đó.
Hướng dẫn:
Từ là một dãy ký tự liên tục khác ký tự trắng (ký tự trắng là ký tự phân cách giữa các từ).
Do đó ta có đoạn giải thuật thô như sau:
Sotu:=0;
For i:=1 to length(st) do
if st[i]=‘ ’ then inc(sotu);
Giải thuật trên chỉ đúng với trường hợp nhập xâu đúng qui cách. (Xâu không có ký tự trắng dư thừa)
Minh hoạ (3)
Var St:String; N,i:Byte;
St
i
N
0
Write(‘Nhap vao mot xau: ’);

Readln(St);
Nhap vao mot xau:
Màn hình
9
0
n:=0; St:=St+‘ ’;

For i:=1 to length(St) do

if St[i] = ‘ ‘ then N:=N+1;
Writeln(‘So tu cua xau la: ’,N);
Xau ky tu
So tu cua xau la:
3
10
1
1
2
3
4
5
6
7
8
9
10
X
a
u
k
y
t
u
2
3
1
2
3
4
5
6
7
8
9
10
Bài tập (3):
Chương trình:
Program So_tu;
Var St:String;
N,i:Byte;
Begin
Write(‘Nhap vao mot xau: ’); Readln(St);
n:=0; St:=St+‘ ’;
For i:=1 to length(St) do
if St[i] = ‘ ‘ then N:=N+1;
Writeln(‘So tu cua xau la: ’,N);
Readln;
End.
Minh hoạ
Bài tập (4):
Đề: NhËp mét x©u kÝ tù gåm c¸c tõ,ch¼ng h¹n:st=‘Thu Do Ha Noi’.In ra mµn h×nh x©u ®ã sao cho c¸c tõ chØ c¸ch nhau ®óng mét kÝ tù trèng.
Minh hoạ

Thủ tục DELETE(St, vt, n):
Xoá n ký tự từ xâu St bắt đầu từ vị trí vt.
Ví dụ:
St = ‘tinhocnhatruong’
Delete(St, 7,9) => St = ‘tinhoc’
Minh hoạ:
9
15
-
=
6
15
6
7
Kiến thức
bài cũ
Kiến thức bài cũ
Bài tập (3):
Chương trình:
Program So_tu;
Var St:String;
i:Byte;
Begin
Write(‘Nhap vao mot xau: ’); Readln(St);
While st[1]=‘ ‘ do delete(st,1,1);
While st[length(st)]=‘ ‘ do delete(st,length(st),1);
repeat
if (st[i]= ‘ ‘) and (st[i+1]=‘ ‘) then delete(st,i,1)
else i= i+1;
until i> length(st);
write(‘Cau chuan la:’,st); Readln;
End.
Minh hoạ