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. . 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. 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. đề 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