Một số mã lệnh mơn tốn 1/ Mã lệnh vẽ phân giác – vẽ góc nửa mặt phẳng function main set_paper Draft,3,0x0000FF appear Text, 8.25,0.5,"HÃY VẼ TIA Ox",3 delay create_line 6,8, 12,8 appear Point, 6,8, "O", below appear Point, 12,8,"x",below left disappear Text delay 12 appear Protractor,12,3 move Protractor,6,8 appear Text, 8.25,0.5,"HÃY CHỌN ĐIỂM NGAY ĐẦU VẠCH 30 ĐỘ",2 delay 24 appear Pencil,12,3 move Pencil,8.59,6.51 set_paper Draft,3,0xFF0000 appear Point, 8.59,6.51," " delay 12 disappear Text, Protractor,Pencil create_line 6,8, 11.2,5 appear Point,11.2,5,"z",above left set_paper Draft,3,0x0000FF appear Protractor,13,3 move Protractor, 6,8 appear Pencil, 15, move Pencil, 7.49,5.41 appear Point, 7.49,5.41, "" delay 18 disappear Protractor, Pencil create_line 6,8, 9,2.8 appear Point,9,2.8,"y",left disappear Point,7.49,5.41 end 2/ Mã lệnh dùng thước đo góc để kiểm tra góc – tia phân giác function main set_paper Draft, 3, 0x0000FF appear Point,6,8,"O",left appear Point,12,8,"x",below left appear Point,11.44,5.46,"z",above left appear Point,9.86,3.4,"y",above left line 6,8,13,8 line 6,8,10.5,2.64 set_paper Draft,3,0xFF0000 line 6,8,12.46,5 wait_click appear MeasurerProt,3,6,Protractor link O,x link O,z link O,y wait_click set_paper Paper,3, 0xF00000 note_angle 0, "value", 12,8, 6,8, 11.44, 5.46 wait_click note_angle 0, "value", 11.44, 5.46, 6,8, 9.86, 3.4 end 3/ Mã lệnh vẽ tia phân giác thước đo góc function main line 8,1, 8.5,1 delay 36 set_paper Draft,3,0x0000FF delay create_line 6,8, 12,8 appear Point, 6,8, O, below delay 12 appear Point, 12,8,"x",below left appear Protractor,12,3 move Protractor,6,8 appear Pencil,12,3 move Pencil,7.32,5.3 appear Point, 7.32,5.3," " delay 24 disappear Protractor, Pencil create_line 6,8, 8.63,2.7 appear Point,8.63,2.7,"y", left appear Protractor,13,3 move Protractor, 6,8 appear Pencil, 15, move Pencil, 8.54,6.41 appear Point, 8.54,6.41, "" delay 24 disappear Protractor, Pencil set_paper Draft,3,0xFF0000 create_line 6,8, 10.24,5.35 appear Point,10.24,5.35,"z",below note_Angle 0,"value",10,8,6,8,8.54,6.41 appear Compa, 10,4 move Compa, 6,8,32 delay call Compa.OpenCompa,0.7 rotate_compa Compa,0.7,64 delay disappear Compa end 4/ Mã lệnh vẽ tia phân giác góc 1260 ( SGK) function main set_paper Draft,3,0x0000FF create_line 7.01,9,14,9 appear Point, 7.01,9,"O",below appear Point,14,9,"x",below left appear Protractor,13,3 move Protractor,7.01,9 appear Text,8.25,2.3,"HÃY CHỌN ĐIỂM NGAY ĐẦU VẠCH 126 ĐỘ",2 delay 18 appear Pencil,8,0.5 move Pencil,5.22,6.53 appear Point,5.25,6.57,"" delay 18 disappear Protractor, Pencil,Text create_line 2.9,3.34,7.01,9 appear Point,2.9,3.34,"y", below appear Protractor,13,4 move Protractor,7.01,9 appear Text, 8.25,2.3,"HÃY CHỌN ĐIỂM NGAY ĐẦU VẠCH 63 ĐỘ",2 delay 18 appear Pencil,8,0.5 move Pencil,8.37,6.33 appear Point,8.4,6.28,"" delay 18 disappear Protractor,Pencil,Text set_paper Draft,3,0xFF0000 create_line 7.01,9,10.19,2.77 appear Point, 10.19,2.77,"m",left disappear Point, 8.4,6.28 end 5/ Mã lệnh vẽ tia phân giác compa function main set_paper Draft,3,0x0000FF line 6,8, 11,8 line 6,8, (3*7.31-6)/2, (3*5.31-8)/2 appear Point, 6, 8,"O",below wait_click set_paper Draft,1,0xFF00FF appear Compa move Compa, 3,5 wait_click call Compa.OpenCompa,2 wait_click move Compa,6,8, -10 delay 12 rotate_compa Compa,2,80 appear Point, 8,8, "A",below right appear Point, 6.88, 6.19,"B",above left wait_click move Compa,8,8,40 rotate_compa Compa,2,80 wait_click move Compa, 6.88, 6.19,-20 rotate_compa Compa,2,10 appear Point, 8.88,6.19,"M",below disappear Compa wait_click set_paper Draft,3,0xFF0000 create_line 6,8,10.01,5.49 wait_click appear MeasurerMprot,12,3,Protractor link O, A link O, M link O,B end 6/ Mã lệnh vẽ tia phân giác thước kẻ function main set_paper Draft,3,0x0000FF line 6,8, 12,8 line 6,8, 8.63,2.61 appear Point, 6, 8,"O",below appear Point, 8,3.89, "y", left appear Point,11,8, "x",beloww wait_click appear Ruler , 2,10 wait_click move Ruler, 6,6 wait_click appear Pencil, 12,3 delay move Pencil,6,6 delay move Pencil, 12,6 set_paper Draft,1, 0xFF00FF line 6,6,12,6 disappear Pencil wait_click move Ruler, 6,8,64 wait_click appear Pencil, 7.8,8.88 delay move Pencil, 10.28, 3.79 line 7.8,8.88, 10.28,3.79 appear Point, 9.2,6, "C", above left disappear Ruler, Pencil wait_click set_paper Draft,3,0xFF0000 create_line 6,8, 11.09,4.82 wait_click appear MeasurerMprot,12,3 link O,x link O,C link O, y end 7/ Mã lệnh công dụng Compa function main c=3 b=3.5 set_paper Draft, 3, 0xFF0000 Line 2, 1, 2+c, appear Point, 2, 1, "A", below appear Point, 2+c, 1, "B", below note_edge -1, "value", 2, 1, 2+c, Line 2, 2, 2+b, appear Point, 2, 2, "C ", below appear Point, 2+b, 2, "D", below note_edge -1, "value", 2, 2, 2+b, appear Text, 8.25, 2.5, "Hãy vẽ tia Ox cách rê chuột", input_line &ax, &ay, &bx, &by disappear Text appear Point, ax, ay, "O ", below set_paper Paper, 0.5, 0xFF00FF create_line ax, ay, (3*bx-ax)/2, (3*by-ay)/2 appear Text,(3*bx-ax)/2, (3*by-ay)/2,"x" radius = get_angle c &angle, ax, ay, bx, by set_paper appear move call Draft, 0.5, 0xFF00FF Compa Compa, 2, Compa.OpenCompa, radius move Compa, ax, ay, angle-10 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+10 disappear Compa get_intersection2 &cx, &cy, &dx, &dy, ax, ay, bx, by, ax, ay, radius Appear Point, dx, dy, "M ", below set_paper Paper, 3, 0x0003FF line ax, ay, dx, dy set_paper Draft, 0.5, 0xFF00FF radius = b appear Compa move Compa, 2, call Compa.OpenCompa, radius move Compa, dx, dy, angle-10 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+10 disappear Compa get_intersection2 &vx, &vy, &ex, &ey, ax, ay, bx, by, dx, dy, radius Appear Point, ex, ey, "N ", below set_paper Paper, 3, 0x0003FF line dx, dy,ex,ey Appear Ruler move Ruler, ax, ay, angle wait_click disappear Ruler appear Text, 8.25, 8.5, "ON = OM + ON = AB + CD", end 8/ Mã lệnh vẽ đoạn thẳng MN = AB function main set_paper Draft, 3, 0xFF0000 Line 3, 2, 8, Appear Point, 3, 2, "A", below Appear Point, 8, 2, "B", below radius = get_angle &angle, 1, 1, 1, set_paper appear move call Draft, 1, 0x0000FF Compa Compa, 3, Compa.OpenCompa, set_paper Draft, 3, 0xFF0000 Line 3, 7, 12, Appear Point, 3, 7, "M", below set_paper Draft, 1, 0x0000FF move Compa, 3, 7, angle-10 call Compa.OpenCompa, rotate_compa Compa, radius, angle+10 disappear Compa Appear Point, 8, 7, "N", below End 9) Vẽ đường tròn function main set_paper Draft1,5,0x0000FF circle 8,6,2 appear Point, 8,6, "O",rightbelow set_paper Draft,5,0xFF0000 for t from to step 0.03 erase appear Point, t+4,6, "O'",rightbelow circle t+4,6,1.5 delay next end 10) Vẽ tia phân giác thước hai lề 22) Ma lenh ve tia phan giac bang thuoc hai le function main delay 36 set_paper Draft,3,0x0000FF line 6,8, 12,8 line 6,8, 8.63,2.61 appear Point, 6, 8,"O",below appear Point, 8,3.89, "y", left appear Point,11,8, "x",beloww delay 12 appear Ruler , 2,10 delay 12 move Ruler, 6,6 delay 12 appear Pencil, 12,3 delay move Pencil,6,6 delay move Pencil, 12,6 set_paper Draft,1, 0xFF00FF line 6,6,12,6 disappear Pencil delay 12 move Ruler, 6,8,64 delay 12 appear Pencil, 7.8,8.88 delay move Pencil, 10.28, 3.79 line 7.8,8.88, 10.28,3.79 appear Point, 9.2,6, "C", above left disappear Ruler, Pencil delay 12 set_paper Draft,3,0xFF0000 create_line 6,8, 11.09,4.82 note_angle 0,"",15,8,6,8,9.2,6 note_angle 0,"",9.2,6,6,8,8,3.89 delay 12 end 11) Vẽ đường tròn (cách 2) function main set_paper duongtron,3,0x0000FF appear Point,8,6,O,bluebelow line 2,3,5,3 wait_click set_text Arial,20,0xFF0000 appear Text1,3.5,3.1,r,below appear Compa move Compa, 2,3 call Compa.OpenCompa, delay 12 move Compa, 8,6 rotate_compa Compa,3,360 delay 12 line 8,6,11,6 set_text Arial,20,0xFF0000 appear Text2,9.5,6.1,r disappear Compa end 12) Vẽ đường thẳng function main set_paper duongthang, 3,0x0000FF set_text Arial,23,0x0000FF appear Point, 2,8,A, below appear Point, 4,8,B, below create_line 1,8,5,8 end 13) Vẽ đoạn thẳng Function main set_paper doanthang, 3,0xFF0000 appear Point, 7,8,A', below appear Point, 10,8,B', below create_line 7,8,10,8 end 14) Vẽ tia Function main set_paper tia, 3,0xFF0000 set_text Arial,23,0x0000FF appear Point, 12,8,O, below appear Point, 14,8,M, below create_line 12,8,16,8 end 15) Vẽ đoạn thảng ON = AB + CD function main c=3 b=3.5 set_paper Draft, 3, 0xFF0000 Line 2, 1, 2+c, appear Point, 2, 1, "A", below appear Point, 2+c, 1, "B", below note_edge -1, "value", 2, 1, 2+c, Line 2, 2, 2+b, appear Point, 2, 2, "C ", below appear Point, 2+b, 2, "D", below note_edge -1, "value", 2, 2, 2+b, appear Text, 8.25, 2.5, "Hãy vẽ tia Ox cách rê chuột", input_line &ax, &ay, &bx, &by disappear Text appear Point, ax, ay, "O ", below set_paper Paper, 0.5, 0xFF00FF create_line ax, ay, (3*bx-ax)/2, (3*by-ay)/2 appear Text,(3*bx-ax)/2, (3*by-ay)/2,"x" radius = get_angle c &angle, ax, ay, bx, by set_paper appear move call Draft, 0.5, 0xFF00FF Compa Compa, 2, Compa.OpenCompa, radius move Compa, ax, ay, angle-10 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+10 disappear Compa get_intersection2 &cx, &cy, &dx, &dy, ax, ay, bx, by, ax, ay, radius Appear Point, dx, dy, "M ", below set_paper Paper, 3, 0x0003FF line ax, ay, dx, dy set_paper Draft, 0.5, 0xFF00FF radius = b appear Compa move call Compa, 2, Compa.OpenCompa, radius move Compa, dx, dy, angle-10 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+10 disappear Compa get_intersection2 &vx, &vy, &ex, &ey, ax, ay, bx, by, dx, dy, radius Appear Point, ex, ey, "N ", below set_paper Paper, 3, 0x0003FF line dx, dy,ex,ey Appear Ruler move Ruler, ax, ay, angle wait_click disappear Ruler appear Text, 8.25, 8.5, "ON = OM + ON = AB + CD", end 16) Tia nằm hai tia function main set_paper Nhap,3,0xFF0000 create_line 2,4,5,2 create_line 2,4,5.5,4 create_line 2,4,5,5 appear Point,2,4,O,left appear Point,5,2,x appear Point,5.5,4,z appear Point,5,5,y delay 12 appear Point,4,2.66,M,above appear Point,3,4.33,N,below create_line 4,2.66,3,4.33 end 17) Tia nằm hai tia function main set_paper Nhap,3, create_line 2,4,5,2 create_line 2,4,5.5,4 create_line 2,4,5,5 appear Point,2,4,O,left appear Point,5,2,x appear Point,5.5,4,y appear Point,5,5,z delay 12 appear Point,4,2.66,A,above appear Point,4,4,B,below create_line 4,2.66,4,4 end 18) Vẽ đoạn thẳng CD = AB thước có vạch function main set_paper Draft1, 3, 0xFF0000 Line 3, 2, 8, Appear Point, 3, 2, "A", below Appear Point, 8, 2, "B", below set_paper Draft2, 1, create_line 3, 5, 12, Appear Point, 3, 5, "C", below appear Text,12,5,y,below delay 20 appear MeasurerRuler, 9, 5, Ruler link A,B delay 150 set_paper Draft3, 3, 0x0000FF create_line 3,5,8,5 appear Point,8,5,D,below note_edge 0,"",A,B note_edge 0,value,C,D end 19) Vẽ hai đoạn thẳng OM, ON tia function main set_paper Doanthang,1 line 3,3,9,3 appear Point,3,3,O,belowleft appear Text,9,3,x,below set_paper Nhap,3,0xFF0000 create_line 3,3,5,3 appear Point,5,3,M,below note_edge "",value,3,3,5,3,below delay 20 set_paper Nhap,3,0xFF0000 create_line 3,3,8,3 appear Point,8,3,N,below note_edge "",value,3,3,8,3,above end 20) Vẽ góc function main set_paper Nhap,1 create_line 2,5,6,5 appear Point,2,5,O,below appear Point,5.5,5,x,below create_corner 2,5,40,5 set_paper Goc,3,0xFF0000 appear Point,5.,2.5,y,left create_line 2,5,6,5 create_line 2,5,5.83,1.8 erase Nhap set_paper Nhap1,1,0x0000FF note_angle 0,value,6,5,2,5,5,2.5 end 21) Vẽ hai hóc nửa mặt phẳng function main set_paper Draft,3,0x0000FF create_line 3,7,7,7 appear Point, 3,7,"O",below appear Point,7,7,"x",below left appear Protractor,13,3 move Protractor,3,7 appear Text,11,7.3,"HÃY CHỌN ĐIỂM NGAY ĐẦU VẠCH 30 ĐỘ",1 delay 18 input_point &ax,&ay appear Point,ax,ay,"y",above delay 12 disappear Protractor,Text create_line 3,7,(3*ax-3)/2,(3*ay-7)/2 set_paper Goc,1 note_angle 0,"",7,7,3,7,ax,ay set_paper Goc1,2,0xFF0000 appear Protractor,13,3 move Protractor,3,7 appear Text,11,7.3,"HÃY CHỌN ĐIỂM NGAY ĐẦU VẠCH 45 ĐỘ",1 delay 18 input_point &bx,&by appear Point,bx,by,"z",above delay 12 disappear Protractor,Text create_line 3,7,(3*bx-3)/2,(3*by-7)/2 set_paper Goc1,1 note_angle 1,"",7,7,3,7,bx,by end 22) Cách đo góc function main line 2,6,7,6 line 2,6,4,2 appear Point,2,6,O appear Point,7,6,x,below appear Point,4,2,y line 8,5,13,5 appear Point,10.5,5,A appear Point,8,5,B appear Point,13,5,C appear MeasurerProtractor,11,1.5 link O,x link O,y link A,C link A,B wait_click set_paper Goc,1,0x0000FF note_angle 0,"",7,6,2,6,4,2 note_angle 0,"",13,5,10.5,5,8,5 end 23) Sử dụng compa để so sánh hai đoạn thẳng function main set_paper Draft, 3, 0xFF0000 Line 3, 3, 8, Appear Point, 3, 3, "A", below Appear Point, 8, 3, "B", below line 3,4,9,4 appear Point,3,4,M,below appear Point,9,4,N,below radius = get_angle &angle, 1, 1, 1, set_paper appear move call Draft, 1, 0x0000FF Compa Compa, 3, Compa.OpenCompa, set_paper Draft, 1, 0x0000FF move Compa, 3, 4, angle-10 call Compa.OpenCompa, rotate_compa Compa, radius, angle+10 disappear Compa Appear Point, 8, 4, "E", below delay 12 appear Text,5,4.5,"AB < MN",2 end 24) Bài tập 38/SGK function main set_paper Draft, 3, 0xFF0000 appear Point, 5, 5, "O", below appear Compa move Compa, 5, Call Compa.OpenCompa, rotate_compa Compa,2,360 move Compa, 7, appear Point, 7, 5, "A", right Call Compa.OpenCompa, rotate_compa Compa,2,360 appear Point, 6, 3.3, "C", below appear Point, 6, 6.7, "D", below delay 12 set_paper Duongtron,2,0x0FF000 move Compa, 6, 3.3 Call Compa.OpenCompa, rotate_compa Compa,2,360 disappear Compa set_paper Doan,2,0x0000FF create_line 5,5,6,3.3 delay 12 create_line 7,5,6,3.3 end 25) Bài tập 39/SGK function main set_paper Draft, 3, 0xFF0000 appear Point, 5, 5, "O", below appear Compa move Compa, 5, Call Compa.OpenCompa, rotate_compa Compa,2,360 move Compa, 7, appear Point, 7, 5, "A", right Call Compa.OpenCompa, rotate_compa Compa,2,360 appear Point, 6, 3.3, "C", below appear Point, 6, 6.7, "D", below delay 12 set_paper Duongtron,2,0x0FF000 move Compa, 6, 3.3 Call Compa.OpenCompa, rotate_compa Compa,2,360 disappear Compa set_paper Doan,2,0x0000FF create_line 5,5,6,3.3 delay 12 create_line 7,5,6,3.3 end 26) Vẽ trung điểm đoạn thẳng AB = cm function main set_paper Dra,3,0xFF0000 line 3,5,8,5 appear Point,3,5,A,below appear Point,8,5,B,below note_edge "",value,A,B set_paper Trungdiem,3,0x0000FF create_line 3,5,5.5,5 appear Point,5.5,5,M,below delay 12 note_edge 0,value,A,M note_edge 0,"",M,B end 27) Xác định trung điểm đoạn thẳng thước có vạch function main line 3,7,8,7 appear Point,3,7,M,below appear Point,8,7,N,below appear MeasurerRuler, 5, 8, Ruler link M,N delay 20 input_point 5.5,7 delay 12 appear Point,5.5,7,I,below note_edge 0,"",M,I note_edge 0,"",I,N disappear MeasurerRuer,Ruler end 28) Bài tập vẽ đường tròn function main line 3,7,8,7 appear Point,3,7,M,below appear Point,8,7,N,below appear MeasurerRuler, 5, 8, Ruler link M,N delay 20 input_point 5.5,7 delay 12 appear Point,5.5,7,I,below note_edge 0,"",M,I note_edge 0,"",I,N disappear MeasurerRuer,Ruler end 29) Vẽ tam giác function main set_paper Draft, 3, 0xFF0000 create_line 4,5,8,5 appear Point, 4, 5, "B", below appear Point, 8, 5, "C", below set_paper Nhap,1,0x0000FF create_arc 4,5,3,20,80 create_arc 8,5,2,100,160 delay 12 appear delay 12 Point, 6.6, 3.55, "A", above set_paper Draft1, 3, 0xFF0000 create_line 4,5,6.6,3.55 create_line 6.6,3.55,8,5 erase Nhap end ... move Ruler, 6, 6 wait_click appear Pencil, 12,3 delay move Pencil ,6, 6 delay move Pencil, 12 ,6 set_paper Draft,1, 0xFF00FF line 6, 6,12 ,6 disappear Pencil wait_click move Ruler, 6, 8 ,64 wait_click... 12 move Ruler, 6, 6 delay 12 appear Pencil, 12,3 delay move Pencil ,6, 6 delay move Pencil, 12 ,6 set_paper Draft,1, 0xFF00FF line 6, 6,12 ,6 disappear Pencil delay 12 move Ruler, 6, 8 ,64 delay 12 appear... "value", 12,8, 6, 8, 11.44, 5. 46 wait_click note_angle 0, "value", 11.44, 5. 46, 6, 8, 9. 86, 3.4 end 3/ Mã lệnh vẽ tia phân giác thước đo góc function main line 8,1, 8.5,1 delay 36 set_paper Draft,3,0x0000FF