Nhan Enter de ket GV: Yêu cầu học sinh thay đổi 1 số thuc'; như màu vẽ, tọa độ và quan sát kết Readln; end quả.. Else Begin HS: Làm theo yêu cầu của giáo viên.[r]
(1)Ngày soạn: 31/3 Ngày dạy: 7/4 Tiết : 50 BÀI TẬP VÀ THỰC HÀNH I.Mục đích: - Tiếp tục củng cố cho hs kn ctrình con, thư viện ctrình - Minh họa cho k/năng đồ họa NNLT nói chung, Pascal nói riêng - Tổ chức hđ pm để hs có thể chủ động tìm hiểu cách sd số ctrình chuẩn thư viện pascal 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: Hướng dẫn và kiểm tra học sinh ôn tập với các câu hỏi đã cho từ (Kiểm tra các câu hỏi đề cương) trước HS: Chuẩn bị bài và trả lời câu hỏi B./ Thực hành GV: Chia nhóm hs thực hành Vẽ đường gấp khúc “ngẫu nhiên” nhờ thủ tục Line To, đoạn có màu ngẫu nhiên GV: Hướng dẫn hs chạy thử ctrình Vị trí bắt đầu vẽ là tâm màn hình Kết và quan sát kết thúc việc vẽ cách nhấn phím bất HS: Chạy thử ctrình và nhận xét kết kỳ Chạy thử ctrình và quan sát kết trên màn hình Lop11.com (2) Chương trình sử dụng các thru tục vẽ hình đơn giản Hãy chạy ctrình thay đổi số màu vẽ, tọa độ và quan sát kết GV: Hướng dẫn hs chạy thử ctrình Program TH8; và quan sát kết Uses crt, graph; Var Stop: Boolean; HS: Chạy thử ctrình và nhận xét kết Function DetectInit (path: String): Integer; Var Drive, Mode: Integer; Begin Drive:=0; InitGraph(Drive, mode, path); DetectInit:= GraphResult; End; Begin If DetectInit('c:\tp\BGI') <>0 then Begin Write('Loi hoa! Nhan Enter de ket GV: Yêu cầu học sinh thay đổi số thuc'); màu vẽ, tọa độ và quan sát kết Readln; end Else Begin HS: Làm theo yêu cầu giáo viên Randomize; Moveto(GetMaxx div 2, Getmaxy div 2); Stop:=False; While not (Stop) Nhận xét thay đổi đó Begin SetColor( Ramdom(GetmaxColor)); Lineto(Random(Getmaxx), Random(Getmaxy)); Delay(200); Stop:= Keypressed; End; End; CloseGraph; End Lop11.com (3) Củng cố: Chương trình có thể không có tham số không? Cho ví dụ Dặn dò: Về nhà tiếp tục học và hoàn thiện đề cương Lop11.com (4)