Giáo án môn Tin học 11 - Bài tập và thực hành 8

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