Bai tap tiet 32
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Nguyễn Văn Kiên
Ngày gửi: 14h:51' 25-03-2008
Dung lượng: 133.0 KB
Số lượt tải: 94
Nguồn:
Người gửi: Nguyễn Văn Kiên
Ngày gửi: 14h:51' 25-03-2008
Dung lượng: 133.0 KB
Số lượt tải: 94
Số lượt thích:
0 người
Bài tập
Kiến thức trọng tâm:
* Cú pháp khai báo: VAR: String;
* Cách tham chiếu đến từng phần tử của xâu:
Tênbiến[chỉ số];
* Cú pháp các hàm xử lý xâu
+ Hàm Length(s) + Hàm Copy(S,Vt, n)
+ Hàm Pos(S1,S2) + Hàm Upcase(Ch)
+ Thủ tục Delete(S,Vt,n)
+ Thủ tục Insert(S1,S2,Vt)
Bài 1: Viết chương trình nhập vào một xâu từ bàn phím và đưa ra màn hình xâu đó bởi việc loại bỏ các dấu cách nếu có.
+ Input:
* Xác định bài toán
+ Output:
Xâu a.
Xâu b không chứa dấu cách.
* Dàn ý:
Begin
{Nhập vào xâu a}
{Khởi tạo xâu b} b:=``;
For i:=1 to length(a) do
If a[i]<>` ` then b:=b+a[i]; Writeln(b);
End.
Bài 2: Nhập vào một xâu từ bàn phím. Kiểm tra xâu đó có phải lài xâu đối xứng hay không.
+ Input:
* Xác định bài toán
+ Output:
Xâu a.
`Phải` hay `không phải`.
* Dàn ý:
Begin
{Nhập vào xâu a}
{Khởi tạo xâu p} p:=``; n:=length(a);
For i:=n downto 1 do p:=p+a[i];
If a=p then Writeln(`Day la xau doi xung`)
else Writeln(`Day khong phai la xau doi xung`);
End.
Bài 3: Nhập vào từ bàn phím một xâu. Thay thế tất cảc các cụm từ `anh` bằng cụm từ `em`.
+ Input:
* Xác định bài toán
+ Output:
Xâu s.
Xâu không chứa cụm từ `anh`.
* Dàn ý:
Begin
{Nhập vào xâu s}
While pos(`anh`,s)<>0 do
Begin
d:=pos(`anh`,s);
Delete(S,d,3);
Insert(`em`,s,d);
End;
Writeln(`xau thu duoc la`,s);
End.
Bài 4: Viết chương trình nhập vào một xâu và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái Tiếng Anh, không phân biệt chữ hoa chữ thường.
* Xác định bài toán
+ Input:
+ Output:
Xâu S.
Số lần xuất hiện của mỗi chữ cái Tiếng Anh.
* Dàn ý
Begin
{Nhập vào xâu S1}
S2:=``; n:= length(S1);
For i:=1 to n do S2:= S2+Upcase(S1[i]);
{ So sánh chỉ số của mảng C với từng kí tự có trong xâu S2}
{Thông báo số lần}
End.
Khai báo một biến mảng C như sau:
C: Array[`A`..`Z`] of Char;
Kiến thức trọng tâm:
* Cú pháp khai báo: VAR
* Cách tham chiếu đến từng phần tử của xâu:
Tênbiến[chỉ số];
* Cú pháp các hàm xử lý xâu
+ Hàm Length(s) + Hàm Copy(S,Vt, n)
+ Hàm Pos(S1,S2) + Hàm Upcase(Ch)
+ Thủ tục Delete(S,Vt,n)
+ Thủ tục Insert(S1,S2,Vt)
Bài 1: Viết chương trình nhập vào một xâu từ bàn phím và đưa ra màn hình xâu đó bởi việc loại bỏ các dấu cách nếu có.
+ Input:
* Xác định bài toán
+ Output:
Xâu a.
Xâu b không chứa dấu cách.
* Dàn ý:
Begin
{Nhập vào xâu a}
{Khởi tạo xâu b} b:=``;
For i:=1 to length(a) do
If a[i]<>` ` then b:=b+a[i]; Writeln(b);
End.
Bài 2: Nhập vào một xâu từ bàn phím. Kiểm tra xâu đó có phải lài xâu đối xứng hay không.
+ Input:
* Xác định bài toán
+ Output:
Xâu a.
`Phải` hay `không phải`.
* Dàn ý:
Begin
{Nhập vào xâu a}
{Khởi tạo xâu p} p:=``; n:=length(a);
For i:=n downto 1 do p:=p+a[i];
If a=p then Writeln(`Day la xau doi xung`)
else Writeln(`Day khong phai la xau doi xung`);
End.
Bài 3: Nhập vào từ bàn phím một xâu. Thay thế tất cảc các cụm từ `anh` bằng cụm từ `em`.
+ Input:
* Xác định bài toán
+ Output:
Xâu s.
Xâu không chứa cụm từ `anh`.
* Dàn ý:
Begin
{Nhập vào xâu s}
While pos(`anh`,s)<>0 do
Begin
d:=pos(`anh`,s);
Delete(S,d,3);
Insert(`em`,s,d);
End;
Writeln(`xau thu duoc la`,s);
End.
Bài 4: Viết chương trình nhập vào một xâu và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái Tiếng Anh, không phân biệt chữ hoa chữ thường.
* Xác định bài toán
+ Input:
+ Output:
Xâu S.
Số lần xuất hiện của mỗi chữ cái Tiếng Anh.
* Dàn ý
Begin
{Nhập vào xâu S1}
S2:=``; n:= length(S1);
For i:=1 to n do S2:= S2+Upcase(S1[i]);
{ So sánh chỉ số của mảng C với từng kí tự có trong xâu S2}
{Thông báo số lần}
End.
Khai báo một biến mảng C như sau:
C: Array[`A`..`Z`] of Char;
Các ý kiến mới nhất