Bài thực hành số 6. pdf

Bài thực hành số 6.

A. Mục đích và yêu cầu:
1. Kiến thức:
Củng cố lại kiến thức về xâu ký tự , chương trinh con.
2. Kỹ năng:
 Rèn luyện kỹ năng xửa lý xâu bằng việc tạo hiệu ứng chữ chạy trên màn hình
 Nâng cao kỹ năng viết và sử dụng chương trình con.
B. Phương pháp – Phương tiện:
1. Phương pháp:
 Kết hợp lý thuyết đã học với thực hành trên máy .
2. Phương tiện:
 Giáo viên:
 Máy vi tính
 Sách giáo khoa tin học 11.
 Học sinh:
 Sách giáo khoa tin học 11.
C. Tiến trình lên lớp:
I. Ổn định lớp:
 Tổ chức học sinh vào từng máy cụ thể , ổn định lớp nhanh chóng.
 Kiểm tra xem có máy nào bị trục trặc không.
II. Nội dung:


Đặt vấn đề Thuyết trình:
 Để giúp các em thành thạo hơn
về thao tác xử lý xâu , kỹ năng tạo
hiệu ứng chữ chạy và nâng cao kỹ
năng tạo chữ viết chúng ta sẽ thực
hành với máy vi tính.
1

Xây dựng hai thủ tục
Catdan(S1,S2) và cangiua(S)
Mục tiêu:
Thuy
ết tr
ình
: Tìm hiểu 2 thủ tục
catdan(S1,S2) va cangiua(S).
 Chiếu nội dung thủ tục


Nắm được chức năng của 2 thủ
tục Catdan(S) và cangiua(S).
 Biết được ý nghĩa của những
tham số trong từng chương trình con
đó .
Catdan(S1,S2).
Hỏi: Đầu vào và đầu ra của thủ tục
này?
Trả lời:
- Vào: Xâu ký tự S1.
- Ra: Xâu ký tự S2.

Nội dung:
Thủ tục catdan
Type Str79 = String[79]
Procedure
catdan(S1:str79;varS2:str79);
Begin
S2:=copy(S1,2,length(S1)-1)+S1[1];

End;
Thủ tục cangiua
procedurecangiua(var
String:str79);
var i,n :Integer;
Begin
n:=length(S);
n:=(80-n)div2;
for i:=1 to n do S:=’’ +S;
End;
Hỏi:
 Chức năng của thủ tục?
Trả lời:
 Thực hiện việc tạo xâu S2 từ xâu
S1 bằng việc chuyển ký tự thứ nhất
đến vị trí cuối xâu.
Ví dụ:
S1=’abcd’
S2=’bcda’
 Chiếu nội dung thủ tục
cangiua(S);
Hỏi:
 Đầu vào của thủ tục?
Trả lời:
 Đầu vào của thủ tục là 1 xâu ký
tự S không quá 79 ký tự.
Hỏi:
 Thủ tục thực hiện công việc gì ?
Trả lời :
 Thêm vào trước xâu S 1 số ký tự

trắng để đưa S ra màn hình ký tự
trong S ban đầu được căn giữa của
dòng gồm 80 ký tự.
Chú ý:
 Nhắc học sinh nếu không khai
báo S là tham biến thì thủ tục này
không có hiệu lực gì vì lệnh đưa S
ra màn hình không nằm trong thủ
tục này .
 Tìm hiểu chương trình câu b
(SGK - trang 103,104).
 Chiếu chương trình lên bảng và
yêu cầu học sinh theo dõi.
Hỏi:
 Chức năng của chương trình?
Trả lời:
 Yêu cầu người sử dụng nhập 1
xâu ký tự. Đưa xâu đó ra màn hình
có dạng dòng chữ chạy giữa màn
hình văn bản 25*80.
Giới thiệu các thủ tục chuẩn:
 gotoxy(x,y);
 delay(n);
 Keypressed;

Users
crt;
type str79 = String[79];
var S1,S2 : str79;
Stop : boolean;

procedure catdan(S1:str79, var
S2:str79);
Begin
S2:= copy(S1,2,length(S1)-
1+S1[1]);
End;
procedure cangiua(var S:str79);
var i,n :integer;
Begin
n:=length(S);


Thực hiện chương trình để giúp
học sinh thấy kết quả của chương
trình.
 Chiếu nội dung yêu cầu lên
bảng.
 Yêu cầu học sinh ìm ra vấn đề
mới trong bài tập này.
 Chương trình sẽ chạy ở dòng bất
kỳ vì vậy phải truyền tham số quy
định dòng chạy cho thủ tục.
 Yêu cầu học sinh lập trình trên
máy.
 Học sinh phải viết chương trình
vào máy và báo cáo kết quả thử
n:=(80-n) div2;
for i:=1 to n do S:=’’+S;
End;
Begin clrscr;

write(‘Nhap xau S1:’);readln(S1);
cangiua(S1);
clrscr;
Stop := false;
while not (stop) do
Begin
gotoxy(1,12); (*Chuyển con trỏ đến
đầu dòng 12*)
write(S1);
delay(500);(*Dừng 500 miligiây*)
catdan(S1,S2);
S1 := S2;
Stop := keypressed;
(*Nhấn một phím bất kỳ để kết
thúc*)
End;
Readln;
End;
nghiệm.
 Yêu cầu học sinh thực hiện
chương trình và nhập dữ liệu test.
 Nhập dữ liệu theo test của giáo
viên và báo cáo kết quả.
 Đánh giá kết quả lập trình của
học sinh.

D. Củng cố bài học:
 Các em cần phải nắm được:
 Xử lý xâu bằng việc tạo hiệu ứng chữ chạy.
 Viết và sử dụng chương trình con.

E. Câu hỏi và bài tập về nhà:
 Viết thủ tục chạy chữ (S, Dong) nhận trị số là xâu S gồm không quá 79 ký tự và 1
biến nguyên Dong. In ra màn hình dòng chữ xác định bởi S chạy ở dòng Dong. Viết
chương trình và thực hiện có sử dụng thủ tục này.
 Chuẩn bị bài cho thực hành số 7. Xem trước nội dung của bài thực hành số 7.
F. Nhận xét và những hạn chế trong giờ dạy:
 Đánh giá kết quả thực hành của học sinh.
 Những điểm cần phải lưu ý trong bài.