GV: Kiểm tra hướng dẫn và gợi ý cho Begin N:=length s; hs hoàn thành bài tập thực hành.. Viết ctrinh nhập hai xâu bất kỳ từ bàn phím và đưa ra màn hình có dạng dòng chữ chạy giữa màn hìn[r]
(1)Ngày soạn: 20/3 Ngày dạy: 26/3 Tiết : 44, 45 BÀI TẬP VÀ THỰC HÀNH I.Mục đích: - Cho hs tìm hiểu các thao tác xử lí xâu,cách tạo hiệu ứng chữ chạy trên màn hình - Củng cố cho hs k/n ctrình Tổ chức hđ pm để hs có các kĩ cbản việc tchức và sd ctrình LT II.Biện pháp: Dạy và học hợp tác nhóm nhỏ III Phương tiện: - GV: Phòng máy vi tính - HS: Sách bài tập IV Nội dung tiết dạy Ổn định tổ chức: Kiểm tra bài cũ: Tiến trình bài học: Hoạt động Nội dung A./ Lý thuyết: GV: Ôn lại kiến thức cũ cho học sinh ? Nhắc lại cách viết thủ tục và hàm HS: Đứng chỗ trả lời câu hỏi ? Nhắc lại các thao tác xử lý xâu B: Bài tập: a Xây dựng hai thủ tục sau: * Thủ tục CATDAN(s1, s2): type str79=string[79]; GV: Chia nhóm cho học sinh ngồi theo procedure catdan(s1:str79; var s2:str79); máy begin HS: ngồi em máy s2:=copy(s1,2, length (s1)-1) GV: Yêu cầu tổ viết thủ tục catdan, +s1[1]; end; tổ viết thủ tục cangiua * Thủ tục CANGIUA(s): Procedủe CanGiua (var s:str 79); Var i, n: integer; HS: Thực hành theo yêu cầu gv GV: Kiểm tra hướng dẫn và gợi ý cho Begin N:=length (s); hs hoàn thành bài tập thực hành N: = (80-n) div 2; For i:=1 to n s:= ‘ ‘+s; End; b Viết ctrinh nhập hai xâu từ bàn phím và đưa màn hình có dạng dòng chữ chạy màn hình program btth6; uses crt; Lop11.com (2) GV: Yêu cầu hs lắp ghép và hoàn thiện type str79=string[79]; var s1, s2:str79; nốt yêu cầu bài stop:boolean; procedure catdan(s1:str79; var s2:str79); begin s2:=copy(s1,2, length (s1)-1) +s1[1]; end; HS: Thực hành theo yêu cầu gv procedure cangiua (var s:str79); GV: Kiểm tra hướng dẫn và gợi ý cho var i,n:integer; begin hs hoàn thành bài tập thực hành n:=length (s); n:=(80-n) div 2; for i:=1 to n s:= ' '+s; end; begin clrscr; write ('nhap xau s1: '); readln(s1); cangiua(s1); clrscr; stop:=false; while not (stop) begin gotoxy (1,12);(*chuyen tro den dau dong 12*) write(s1); delay(500); (*dung 500miligiay *) catdan(s1, s2); s1:=s2; stop:=keypressed; (*nhan mot phim bat ky de ket thuc *) end; readln end Củng cố: - Gọi hs đứng lên chạy thử ctrình và giải thích số câu lệnh 5.Dặn dò: Học sinh nhà học và nghiên cứu trước bài tập thực hành số Lop11.com (3)