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.. Nội dung: Để giúp các em thành thạo hơn v
Trang 1Bà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:
Để 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)
Trang 2 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’
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
Trang 3khô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ử
Trang 4n:=(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
Trang 5F 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