18 May 2012
Bài thực hành 5 chương IV
1
Phần II: Thực hành
Bài tập 3: SGK trang 73
Nhập từ bàn phím một xâu. Thay thế tất cả các cụm từ ‘anh’ bằng cụm từ ‘em’.
Hướng dẫn
Ví dụ:
Nhập vào : anh ở đầu sông anh cuối sông
18 May 2012
Bài thực hành 5 chương IV
2
Phần II: Thực hành
Bài tập 3: SGK trang 73
Nhập từ bàn phím một xâu. Thay thế tất cả các cụm từ ‘anh’ bằng cụm từ ‘em’.
Hướng dẫn
Ví dụ:
Nhập vào : anh ở đầu sông anh cuối sông
18 May 2012
Bài thực hành 5 chương IV
3
Phần II: Thực hành
Bài tập 3: SGK trang 73
Nhập từ bàn phím một xâu. Thay thế tất cả các cụm từ ‘anh’ bằng cụm từ ‘em’.
Ví dụ:
Nhập vào : anh ở đầu sông anh cuối sông
Xuất ra :em ở đầu sông em cuối sông
18 May 2012
Bài thực hành 5 chương IV
4
Phần II: Thực hành
Bài tập 3: SGK trang 73
Hướng dẫn
Ví dụ:
Nhập vào : anh ở đầu sông anh cuối sông
Ý tưởng để giải bài toán này thế nào?
18 May 2012
Bài thực hành 5 chương IV
5
Phần II: Thực hành
Bài tập 3: SGK trang 73
Hướng dẫn
Ví dụ:
Nhập vào : ở đầu sông cuối sông
Tìm xem có vị trí nào là xâu ‘anh’ không?
anh
anh
18 May 2012
Bài thực hành 5 chương IV
6
Phần II: Thực hành
Bài tập 3: SGK trang 73
Hướng dẫn
Ví dụ:
Nhập vào : ở đầu sông cuối sông
Tìm xem có vị trí nào là xâu ‘anh’ không?
Xóa xâu ‘anh’ ra
Thay xâu ‘em’ vào vị trí vừa xóa
em
anh
anh
18 May 2012
Bài thực hành 5 chương IV
7
Phần II: Thực hành
Bài tập 3: SGK trang 73
Hướng dẫn
Ví dụ:
Nhập vào : ở đầu sông cuối sông
Tiếp tục tìm xem có vị trí nào là xâu ‘anh’ không?
Xóa xâu ‘anh’ ra
Thay xâu ‘em’ vào vị trí vừa xóa
em
anh
18 May 2012
Bài thực hành 5 chương IV
8
Phần II: Thực hành
Bài tập 3: SGK trang 73
Hướng dẫn
Ví dụ:
Nhập vào : ở đầu sông cuối sông
Tiếp tục tìm xem có vị trí nào là xâu ‘anh’ không?
Xóa xâu ‘anh’ ra
Thay xâu ‘em’ vào vị trí vừa xóa
em
anh
em
18 May 2012
Bài thực hành 5 chương IV
9
Phần II: Thực hành
Bài tập 3: SGK trang 73
Hướng dẫn
Ví dụ:
Nhập vào : ở đầu sông cuối sông
Tiếp tục tìm xem có vị trí nào là xâu ‘anh’ không?
Xóa xâu ‘anh’ ra
Thay xâu ‘em’ vào vị trí vừa xóa
em
em
18 May 2012
Bài thực hành 5 chương IV
10
Phần II: Thực hành
Bài tập 3: SGK trang 73
Nhập vào xâu
Tìm vị trí xâu con ‘anh’ trong xâu đã cho.
Xóa xâu con ‘anh’.
Chèn xâu ‘em’ vào vị trí đó.
Lặp đi lặp lại việc 2. 3. 4. cho đến khi không tìm thấy xâu con ‘anh’ nữa.
Khai báo biến?
18 May 2012
Bài thực hành 5 chương IV
11
Phần II: Thực hành
Bài tập 3: SGK trang 73
Nhập vào xâu
Tìm vị trí xâu con ‘anh’ trong xâu đã cho.
Xóa xâu con ‘anh’.
Chèn xâu ‘em’ vào vị trí đó.
Lặp đi lặp lại việc 2. 3. 4. cho đến khi không tìm thấy xâu con ‘anh’ nữa.
Khai báo biến?
Var S: string; vt: byte;
1. Readln(S);
2. Pos(‘ANH’,S);
3. Delete (S,vt,3);
4. Insert (‘em’,S, vt,);
5. While pos(‘anh’,s) < >0 do
18 May 2012
Bài thực hành 5 chương IV
12
Phần II: Thực hành
Bài tập 3: SGK trang 73
Chương trình:
Program Bai3;
Var vt : byte;
s: string;
Begin
Write(‘ nhap vao xau: ‘);
Readln(s);
While pos(‘anh’,s) <>0 do

Begin
Vt:=pos(‘anh’,s);
Delete(s,vt,3) ;
Insert(‘em’,s,vt);
End;
Write(s);
Readln;
End.
18 May 2012
Bài thực hành 5 chương IV
13
Phần II: Thực hành
Bài tập 2: SGK trang 73
Viết chương trình nhập từ bàn phím một xâu kí tự S 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 trong S (không phân biệt chữ hoa hay chữ thường).
Hướng dẫn
Ví dụ:
Nhập vào: Toan tin
T :
O :
A :
N :
I :
18 May 2012
Bài thực hành 5 chương IV
14
Phần II: Thực hành
Bài tập 2: SGK trang 73
Viết chương trình nhập từ bàn phím một xâu kí tự S 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 trong S (không phân biệt chữ hoa hay chữ thường).
Hướng dẫn
Ví dụ:
Nhập vào: Toan tin
T :
O :
A :
N :
I :
2
18 May 2012
Bài thực hành 5 chương IV
15
Phần II: Thực hành
Bài tập 2: SGK trang 73
Viết chương trình nhập từ bàn phím một xâu kí tự S 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 trong S (không phân biệt chữ hoa hay chữ thường).
Hướng dẫn
Ví dụ:
Nhập vào: Toan tin
T :
O :
A :
N :
I :
2
1
18 May 2012
Bài thực hành 5 chương IV
16
Phần II: Thực hành
Bài tập 2: SGK trang 73
Viết chương trình nhập từ bàn phím một xâu kí tự S 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 trong S (không phân biệt chữ hoa hay chữ thường).
Hướng dẫn
Ví dụ:
Nhập vào: Toan tin
T :
O :
A :
N :
I :
2
1
1
18 May 2012
Bài thực hành 5 chương IV
17
Phần II: Thực hành
Bài tập 2: SGK trang 73
Viết chương trình nhập từ bàn phím một xâu kí tự S 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 trong S (không phân biệt chữ hoa hay chữ thường).
Hướng dẫn
Ví dụ:
Nhập vào: Toan tin
T :
O :
A :
N :
I :
2
1
1
2
18 May 2012
Bài thực hành 5 chương IV
18
Phần II: Thực hành
Bài tập 2: SGK trang 73
Viết chương trình nhập từ bàn phím một xâu kí tự S 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 trong S (không phân biệt chữ hoa hay chữ thường).
Hướng dẫn
Ví dụ:
Nhập vào: Toan tin
T :
O :
A :
N :
I :
2
1
1
2
1
18 May 2012
Bài thực hành 5 chương IV
19
Phần II: Thực hành
Bài tập 2: SGK trang 73
Dàn ý
{Phần khai báo}
Begin
{Nhập xâu S}
For i:=1 to cd do
begin
{Chuyển S[i] sang kí tự hoa}
{Nếu S[i] là chữ cái thì đếm tăng cho S[i]}
end;
For ch:=’A’ to ‘Z’ do
{thông báo số lần xuất hiện của ch}
End.
18 May 2012
Bài thực hành 5 chương IV
20
Phần II: Thực hành
Bài tập 2: SGK trang 73
Dàn ý
{Phần khai báo}
Begin
{Nhập xâu S}
For i:=1 to cd do
begin
{Chuyển S[i] sang kí tự hoa}
{Nếu S[i] là chữ cái thì đếm tăng cho S[i]}
end;
For ch:=’A’ to ‘Z’ do
{thông báo số lần xuất hiện của ch}
End.
18 May 2012
Bài thực hành 5 chương IV
21
Phần II: Thực hành
Bài tập 2: SGK trang 73
Dàn ý
Khai báo:
Biến kiểu mảng để lưu các chữ cái
Biến kiểu xâu để lưu xâu nhập vào
Biến kiểu integer để duyệt vòng lặp For
Biến kiểu char để thông báo số lần xuất hiện các chữ cái
Dem : array[`A`..`Z`] of byte ;
S : String ;
i : integer ;
ch : char ;
18 May 2012
Bài thực hành 5 chương IV
22
Phần II: Thực hành
Bài tập 2: SGK trang 73
Dàn ý
{Phần khai báo}
Begin
{Nhập xâu S}
For i:=1 to cd do
begin
{Chuyển S[i] sang kí tự hoa}
{Nếu S[i] là chữ cái thì đếm tăng cho S[i]}
end;
For ch:=’A’ to ‘Z’ do
{thông báo số lần xuất hiện của ch}
End.
18 May 2012
Bài thực hành 5 chương IV
23
Phần II: Thực hành
Bài tập 2: SGK trang 73
Dàn ý
Nhập vào một xâu
Write(‘Nhap vao mot xau: ’);
Readln(S);
18 May 2012
Bài thực hành 5 chương IV
24
Phần II: Thực hành
Bài tập 2: SGK trang 73
Dàn ý
{Phần khai báo}
Begin
{Nhập xâu S}
For i:=1 to cd do
begin
{Chuyển S[i] sang kí tự hoa}
{Nếu S[i] là chữ cái thì đếm tăng cho S[i]}
end;
For ch:=’A’ to ‘Z’ do
{thông báo số lần xuất hiện của ch}
End.
18 May 2012
Bài thực hành 5 chương IV
25
Phần II: Thực hành
Bài tập 2: SGK trang 73
Dàn ý
Vòng lặp For
For i: = 1 to length(S) do
Begin
s[i]:=upcase(s[i]);
if ((`A`<=s[i]) and (s[i]<=`Z`)) then mang[s[i]]:=mang[s[i]]+1;
end ;
{chuyển thành chữ hoa}
{ tăng mảng đếm lên}
18 May 2012
Bài thực hành 5 chương IV
26
Phần II: Thực hành
Bài tập 2: SGK trang 73
Dàn ý
{Phần khai báo}
Begin
{Nhập xâu S}
For i:=1 to cd do
begin
{Chuyển S[i] sang kí tự hoa}
{Nếu S[i] là chữ cái thì đếm tăng cho S[i]}
end;
For ch:=’A’ to ‘Z’ do
{thông báo số lần xuất hiện của ch}
End.
18 May 2012
Bài thực hành 5 chương IV
27
Phần II: Thực hành
Bài tập 2: SGK trang 73
Dàn ý
Xuất ra thông báo:
For j:=`A` to `Z` do
if mang[j]<>0 then
writeln(j,‘ : `,mang[j]:1) ;