- Diễn giải: Biến tuso, mauso, A cú ảnh hưởng
3. Hoạt động3: 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
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.
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 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: word); 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’);
- 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.
- Quan sỏt kết quả của chương trỡnh
- 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.
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ụ 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 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.
- 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.