Trường Đại Học Sư Phạm Hà Nội
Khoa CNTT
Giáo án số
BÀI THỰC HÀNH SỐ 5
BÀI THỰC HÀNH 5

Giảng viên hướng dẫn:Thầy Trần Doãn Vinh.
Sinh viên thực hiện : Nguyễn Thành Luân
Lớp K54A_CNTT.
A.MỤC ĐÍCH,YÊU CẦU
• Củng cố cho học sinh những hiểu biết về kiểu dữ liệu xâu.
• Tổ chức những hoạt động trong phòng máy để học sinh có được
các kĩ năng cơ bản làm việc với kiểu xâu trong lập trình. Cụ thể là:
+Học sinh biết cách khai báo kiểu dữ liệu xâu.
+Nhập dữ liệu cho xâu,đưa ra màn hình xâu.
+Duyệt qua tất cả các kí tự của xâu để thực hiện xử lí tương
ứng
+Sử dụng được các hàm và các thủ tục chuẩn đã trình bày
ở SGK
• Cung cấp cho học sinh một vài thuật toán cơ bản và đơn giản
thường gặp khi xử lí văn bản, rèn luyện một số kĩ năng cài đặt :
+Tạo một xâu mới từ một xâu ban đầu.
+Đếm số lần xuất hiện của một chữ cái trong văn bản.
+Tìm kiếm và thay thế sự xuất hiện của một từ bằng một
từ khác trong toàn bộ văn bản.
• Góp phần rèn luyện tác phong,tư duy lập trình.
B.PHƯƠNG PHÁP VÀ PHƯỜNG TIỆN.
1.Phương pháp :
Kết hợp phương pháp vấn đáp, quan tâm, giúp đỡ học sinh
trong phòng máy.Tạo môi trường thuận lợi để học sinh có thể
mạnh dạn hỏi giáo viên những gì các em còn thắc mắc khi lập trình

là viết các chương trình trên giấy.Qua đó giáo viên có thể điều chỉnh
giờ dạy của mình cho phù hợp.Ví dụ một bài nào đó trong tiết thực
hành mà học sinh cả lớp hầu như làm được thì giáo viên có thể hướng
dẫn nhanh để tập trung vào các bài khác.
III.NỘI DUNG BÀI GIẢNG
TT Nội dung Hoạt động của thầy và
trò
Thời
gian.
1 Bài1: Nhập vào từ bàn phím một
xâu .Kiểm tra xem xâu đó có là
xâu đối xứng không?
a. Hãy gõ và chạy thử
chương trình (như trong
sgk).
b. Hãy viết lại chương trình
trong đó không cần biến
xâu p.
Sau đây là chương trình đáp
ứng được nhu cầu thêm của
bài toán:
Var i,x:byte;
a:string;
D:boolean;
Begin
Write(‘Moi nhap vao
xau:’);
Readln(a);
x:=length(a);
D:=true;

đối xứng’) else Writeln(‘Xau
khong la đối xứng’);
readln
End.
xứng mà bằng nhau thì
xâu đối xứng ngược lại
thì không đối xứng
-Học sinh tiến hành lập
trình trên máy, giáo viên
đi lại trong phòng máy
để quan sát và giúp đỡ
các em khi các em cần.
- Giáo viên có thể đặt
câu hỏi : Có em nào có
cách làm khác không?
hoặc gợi ý thay vì dung
for–do ta có thể dùng
while–do hoặc dùng
Repeat-until.
2 Bài 2.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 hện trong S của mỗi chữ cái
tiếng Anh (Không phân biệt chữ
hoa hay chữ thường.
Dàn ý của chương trình :
{phần khai báo }
begin
{nhập xâu}
N:=length(x);

Dàn ý của chương trình :
{phần khai báo}
Ở bài này do thời gian còn
có hạn nên giáo viên chỉ
nên hướng dẫn chứ không
cho học sinh lập trình trên
máy tại lơp mà để hôm sau
khi giáo viên mang máy
7’
Begin
{Nhập xâu x}
{chừng nào còn tìm thấy xâu con
“anh ”trong xâu x thì còn làm 3
việc :
- Tìm vị trí bắt đầu của
xâu “anh”.
- Xoá xâu “anh ”vừa
tìm thấy.
- Chèn xâu “em “vào
xâu x tại vị trí trước
đây xuất hiện xâu
“anh”.
}
{In kết quả xâu x}
End.
tính lên lớp sẽ gọi một em
lên lập trình coi như là
kiểm tra bài cũ .
- Giáo viên nêu ý tưởng
của thuật giải bài toán:Tìm