Một số mã lệnh trong môn toán 6

Trang 1

1/ Mã lệnh vẽ phân giác – vẽ góc trên 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 6

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

move Protractor, 6,8

appear Pencil, 15, 3

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

Trang 2

appear Point,9.86,3.4,"y",above left

line 6,8,13,8

line 6,8,10.5,2.64

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 bằng thước đo góc

function main

line 8,1, 8.5,1

delay 36

delay 6

create_line 6,8, 12,8

appear Point, 6,8, O, below

delay 12

appear Point, 12,8,"x",below left

move Protractor,6,8

appear Pencil,12,3

appear Point, 7.32,5.3," "

delay 24

create_line 6,8, 8.63,2.7

appear Point,8.63,2.7,"y", left

move Protractor, 6,8

appear Pencil, 15, 3

move Pencil, 8.54,6.41

appear Point, 8.54,6.41, ""

delay 24

Trang 3

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 6

call Compa.OpenCompa,0.7

rotate_compa Compa,0.7,64

delay 6

disappear Compa

end

4/ Mã lệnh vẽ tia phân giác của góc 1260 ( SGK)

function main

create_line 7.01,9,14,9

appear Point, 7.01,9,"O",below

appear Point,14,9,"x",below left

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

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

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

appear Point,8.4,6.28,""

delay 18

disappear Protractor,Pencil,Text

create_line 7.01,9,10.19,2.77

appear Point, 10.19,2.77,"m",left

Trang 4

disappear Point, 8.4,6.28

end

5/ Mã lệnh vẽ tia phân giác bằng compa

function main

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

wait_click

move Compa, 6.88, 6.19,-20

appear Point, 8.88,6.19,"M",below

disappear Compa

wait_click

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 bằng thước kẻ

Trang 5

function main

line 6,8, 12,8

line 6,8, 8.63,2.61

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 6

move Pencil,6,6

delay 6

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 6

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

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 về công dụng của Compa

function main

c=3

b=3.5

Trang 6

set_paper Draft, 3, 0xFF0000

Line 2, 1, 2+c, 1

appear Point, 2, 1, "A", below

appear Point, 2+c, 1, "B", below

note_edge -1, "value", 2, 1, 2+c, 1

Line 2, 2, 2+b, 2

appear Point, 2, 2, "C ", below

appear Point, 2+b, 2, "D", below

note_edge -1, "value", 2, 2, 2+b, 2

appear Text, 8.25, 2.5, "Hãy vẽ tia Ox bằng cách rê chuột", 2 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 = c

get_angle &angle, ax, ay, bx, by

set_paper Draft, 0.5, 0xFF00FF

appear Compa

move Compa, 2, 1

call Compa.OpenCompa, radius

move Compa, ax, ay, angle-10

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, 2

move Compa, dx, dy, angle-10

disappear Compa

get_intersection2 &vx, &vy, &ex, &ey, ax, ay, bx, by, dx, dy, radius

Trang 7

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", 2 end

8/ Mã lệnh về vẽ đoạn thẳng MN = AB

function main

Line 3, 2, 8, 2

Appear Point, 3, 2, "A", below

Appear Point, 8, 2, "B", below

radius = 5

get_angle &angle, 1, 1, 1, 1

appear Compa

move Compa, 3, 2

call Compa.OpenCompa, 5

Line 3, 7, 12, 7

Appear Point, 3, 7, "M", below

move Compa, 3, 7, angle-10

call Compa.OpenCompa, 5

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

for t from 0 to 8 step 0.03

erase

Trang 8

appear Point, t+4,6, "O'",rightbelow

circle t+4,6,1.5

delay 1

10) Vẽ tia phân giác bằng thước hai lề

22) Ma lenh ve tia phan giac bang thuoc hai le

function main

delay 36

line 6,8, 12,8

line 6,8, 8.63,2.61

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 6

move Pencil,6,6

delay 6

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 6

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

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

Trang 9

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

move Compa, 2,3

call Compa.OpenCompa, 3 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

Trang 10

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, 1

appear Point, 2, 1, "A", below

appear Point, 2+c, 1, "B", below

note_edge -1, "value", 2, 1, 2+c, 1

Line 2, 2, 2+b, 2

appear Point, 2, 2, "C ", below

appear Point, 2+b, 2, "D", below

note_edge -1, "value", 2, 2, 2+b, 2

appear Text, 8.25, 2.5, "Hãy vẽ tia Ox bằng cách rê chuột", 2 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 = c

get_angle &angle, ax, ay, bx, by

set_paper Draft, 0.5, 0xFF00FF

appear Compa

move Compa, 2, 1

call Compa.OpenCompa, radius

move Compa, ax, ay, angle-10

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

Trang 11

move Compa, dx, dy, angle-10

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", 2

end

16) Tia nằm giữa 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 ngoài 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

Trang 12

appear Point,4,4,B,below

create_line 4,2.66,4,4

end

18) Vẽ đoạn thẳng CD = AB bằng thước có vạch function main

set_paper Draft1, 3, 0xFF0000

Line 3, 2, 8, 2

Appear Point, 3, 2, "A", below

Appear Point, 8, 2, "B", below

set_paper Draft2, 1,

create_line 3, 5, 12, 5

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 trên 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

appear Point,5,3,M,below

note_edge "",value,3,3,5,3,below

delay 20

set_paper Nhap,3,0xFF0000

appear Point,8,3,N,below

note_edge "",value,3,3,8,3,above

end

Trang 13

20) Vẽ góc

function main

set_paper Nhap,1

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,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 trên nửa mặt phẳng

function main

set_paper Draft,3,0x0000FF

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

Trang 14

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

Line 3, 3, 8, 3

Appear Point, 3, 3, "A", below

Appear Point, 8, 3, "B", below

line 3,4,9,4

Trang 15

appear Point,3,4,M,below

appear Point,9,4,N,below

radius = 5

get_angle &angle, 1, 1, 1, 1

set_paper Draft, 1, 0x0000FF

appear Compa

call Compa.OpenCompa, 5

set_paper Draft, 1, 0x0000FF

move Compa, 3, 4, angle-10

call Compa.OpenCompa, 5

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

appear Point, 5, 5, "O", below

appear Compa

Call Compa.OpenCompa, 2

rotate_compa Compa,2,360

appear Point, 7, 5, "A", right

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

disappear Compa

set_paper Doan,2,0x0000FF

Định dạng
Số trang	18
Dung lượng	114,5 KB