II. ĐỒ DÙNG DẠY HỌC
3. Hoạt động 3: Tìm hiểu các thủ tục vẽ điểm, đường và các hình cơ bản.
HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH
1. Tìm hiểu thủ tục Putpixel - Chiếu cấu trúc chung của thủ tục:
Putpixel(x,y:integer;color:word); - Chiếu chương trình ví dụ.
Use graph Begin drive:=0;
initgraph(drive, mode, ‘c:\Tp\BGI’); Putpixel(12,40,15);
readln; End.
- Thực hiện chương trình để học sinh thấy kết quả.
- Hỏi: Chức năng của thủ tục Putpixel 2. Tìm hiểu thủ tục Line
- Chiếu cấu trúc chung của thủ tục: Line(x1,y1,x2,y2:integer);
- Chiếu chương trình ví dụ trên nhưng thay lệnh Putpixel(12,40,15); bằng lệnh line(1,1,20,20);
- Thực hiện chương trình để học sinh thấy kết quả.
- Hỏi: Chức năng của thủ tục Line 3. Tìm hiểu thủ tục Lineto
- Chiếu cấu trúc chung của thủ tục: Lineto(x,y:integer);
- Chiếu chương trình ví dụ trên nhưng thay lệnh Putpixel(12,40,15); bằng lệnh lineto(20,20);
- Thực hiện chương trình để học sinh thấy
1. Quan sát cấu trúc chung và suy nghĩ để trả lời câu hỏi.
- Quan sát chương trình.
- Quan sát kết quả của chương trình - Vẽ một điểm có màu Color trên màn hình tại tọa độ (x,y).
2. Quan sát cấu trúc chung và suy nghĩ để trả lời câu hỏi.
- Quan sát chương trình.
- Quan sát kết quả của chương trình - Vẽ một đoạn thẳng từ điểm có tọa độ (x1,y1) đến điểm có tọa độ (x2,y2). 3. Quan sát cấu trúc chung và suy nghĩ để trả lời câu hỏi.
- Quan sát chương trình.
kết quả.
- Hỏi: Chức năng của thủ tục Lineto 4. Tìm hiểu thủ tục Lineto
- Chiếu cấu trúc chung của thủ tục: Linerel(dx,dy:integer); - Hỏi: Chức năng của thủ tục Linerel
5. Tìm hiểu thủ tục Circle, Ellipse, Rectangle.
- Chiếu cấu trúc chung của các thủ tục: Circle(x,y:integer; r:word); Ellipse(x,y:integer;stangle,endangle,xr,yr:w ord); Rectangle(x1,y1,x2,y2:integer); - Chiếu chương trình ví dụ Use graph Begin drive:=0;
initgraph(drive, mode, ‘c:\Tp\BGI’); Circle(12,40,30);
Ellipse(50,50,30,120,50,100:word); Rectangle(100,100,200,200); readln;
End.
- Thực hiện chương trình để học sinh thấy kết quả.
- Hỏi: Chức năng của các thủ tục Circle, Ellipse, Rectangle.
6. Tìm hiểu thủ tục Setcolor
- Chiếu cấu trúc chung của các thủ tục: Setcolor(m:word);
- Chiếu chương trình ví dụ
- Vẽ một đoạn thẳng từ điểm hiện tại đến điểm có tọa độ (x,y).
3. Quan sát cấu trúc chung và suy nghĩ để trả lời câu hỏi.
- Vẽ đọan thẳng nối điểm hiện tại với điểm có toạ độ bằng tọa độ điểm hiện tại cộng với dx, dy
5. Quan sát cấu trúc chung và suy nghĩ để trả lời câu hỏi.
- Quan sát chương trình.
- Quan sát kết quả của chương trình + Circle: Vẽ một đường tròn có tâm tại (x,y) và bán kính r.
+ Ellipse: Vẽ cung của ellipse có tâm tại điểm x,y với các bán kính trục xr, yr, từ góc khởi đầu stangle đến góc kết thúc endangle.
6. Quan sát cấu trúc chung và suy nghĩ để trả lời câu hỏi.
Use graph Begin drive:=0;
initgraph(drive, mode, ‘c:\Tp\BGI’); Circle(12,40,100);
Setcolor(4); Circle(12,40,200); readln;
End.
- Thực hiện chương trình để học sinh thấy kết quả.
- Hỏi: Chức năng của thủ tục Lineto
- Quan sát chương trình.
- Quan sát kết quả của chương trình - Setcolor(m: word): Đặt màu cho nét vẽ với màu có số hiệu m.