Mot so ma lenh trong mon toan 7

appear Point, bx, by, "B", below11 Dựng đường thẳng song song – hai góc đồng vị function songsong bx,by,ax,ay... set_drag Square212, false... set_paper Draft1,2,0xFF000create_line cx,cy,

1/ Mã lệnh về vẽ tam giác vuông biết goc nhọn – cạnh huyền

function main

input_data "Hãy nhập đoạn thẳng BC và góc BCx", "Đoạn BC ", c, "Góc BCx", m set_paper DraftBC, 3, 0xFF0000

Line 5, 8, 5+c, 8

appear Point, 5, 8, "C", below

appear Point, 5+c, 8, "B", below

move TSquare, 5,8,angle-90

for t from 0 to (c*cos(m) )step 0.1

get_point &hx, &hy,5,8, m, c*cos(m)

appear Point, hx, hy, "A", above

appear Text, 8.25, 0.5, "Kéo rê chuột để vẽ đường thẳng", 2

input_line &ax, &ay, &bx, &by

disappear Text

create_line ax, ay, bx, by

get_angle &angle,ax,ay,bx,by

appear Text, 8.25, 0.5, "Hãy click chọn điểm mà đường vuông góc đi qua", 2 input_point &dx,&dy

appear Point, dx, dy," "

get_perpendicular &cx, &cy, dx, dy, ax, ay,bx,by

appear Point, 6, 2, "A",above

appear Point, 2,6, "B",below

appear Point,7,6, "C",below

move Compa, 9,6, angle+30rotate_compa Compa, 5.65, angle+50wait_click

set_paper Draft2,1,0xFF00FF

appear Compa

move Compa, 7,6, angle+103 call Compa.OpenCompa, 4.15wait_click

move Compa, 14,6, angle+95

call Compa.OpenCompa, 4.15rotate_compa Compa, 4.15, angle+120 appear Point, 13, 2, "A'",above disappear Compa

appear Point, 4,7, "A", below

appear Point, 8,7, "B",below

call Compa.OpenCompa, radius

move Compa, 4,7, angle+50

call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+80 move Compa, 8,7, angle+130

call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+100 disappear Compa

appear Point, 6,1.33, "C", right

create_line 4,7,10,7

disappear Ruler

appear Point, 4,7, "A", below

appear Point, 10,7, "B",below

call Compa.OpenCompa, radius

move Compa, 4,7, angle+50

call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+80 move Compa, 10,7, angle+130 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+100 disappear Compa

appear Point, 7,1.8, "C", right

appear Point, 4,7, "A", below

appear Point, 8,7, "B",below

note_edge -1, "value", 8, 7,4,7,belowwait_click

appear Ruler, 4, 9

radius = 3

get_angle &angle, 4,7,8,7

set_paper Draft1, 0.5, 0xFF00FF

appear Compa

move Compa, 4, 9

call Compa.OpenCompa, radius

wait_click

move Compa, 4,7, angle+10

call Compa.OpenCompa, radius

rotate_compa Compa, radius, angle+40

move Compa, 8,7, angle+160

call Compa.OpenCompa, radius

rotate_compa Compa, radius, angle+120

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, "A ", below

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

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

appear Text, 8.25, 2.5, "Hãy vẽ tia gốc A chứa cạnh AB", 2

input_line &ax, &ay, &bx, &by

call 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, "B ", below

set_paper Paper, 3, 0x0003FF

line ax, ay, dx, dy

appear Protractor

move Protractor, ax, ay, angle

appear Text, 8.25, 2.5, "Hãy đánh dấu điểm thuộc cạnh thứ hai theo mép thước

để xác định góc A", 2

input_point &ex, &ey

move Pencil, ex, ey

appear Point, ex, ey, " ", below

call Compa.OpenCompa, radius

move Compa, ax, ay, angle-10

call Compa.OpenCompa, radius

rotate_compa Compa, radius, angle+10

disappear Compa

get_intersection2 &mx, &my, &nx, &ny, ax, ay, ex, ey, ax, ay, radius Appear Point, nx, ny, "C ", right

set_paper Paper, 3, 0x0003FF

line ax, ay, nx, ny

note_angle 2, "value", bx, by, ax, ay, ex, ey

appear Text, 8.25, 0.5, "Hãy vẽ một đoạn thẳng", 2

input_line &ax, &ay, &bx, &by

disappear Text

appear Point, ax, ay, "A", below

appear Point, bx, by, "B", below

create_line ax, ay, bx, by

move Pencil, (ax+bx)/2,(ay+by)/2

appear Text, 15.25, 11,"NEXT", 1

note_edge 0, "", ax, ay, mx, my

appear TSquare

move TSquare,(ax+bx)/2,(ay+by)/2,angle+90

appear Text, 8.25, 0.5, "Hãy đánh dấu 1điểm thuộc cạnh

góc vuông của e-ke", 2

B(<180-set_paper DraftAB, 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

appear Text, 8.25, 2.5, "Hãy vẽ tia gốc A chứa cạnh AB", 2

input_line &ax, &ay, &bx, &by

call 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

set_paper PaperB, 3, 0x0003FF

Appear Point, dx, dy, "B ", below

line ax, ay, dx, dy

set_paper PaperE, 0.5, 0x0003FF

appear Protractor

move Protractor, ax, ay, angle

appear Text, 8.25, 2.5, "Hãy đánh dấu điểm thuộc cạnh thứ hai theo mép thước

để xác định góc A", 2

input_point &ex, &ey

appear Pencil

move Pencil, ex, ey

appear Point, ex, ey, " ", below

move Protractor, dx, dy, angle

appear Text, 8.25, 2.5, "Hãy đánh dấu điểm thuộc cạnh thứ ba theo mép thước

create_line dx, dy, (3*gx-2*dx), (3*gy-2*dy)

get_intersection1 &mx, &my, ax, ay, ex, ey, dx, dy, gx, gy

set_paper Paper, 3, 0x0003FF

Appear Point, mx, my, "C ", right

line ax, ay, mx, my

line mx, my, dx, dy

note_angle 2, "value", bx, by, ax, ay, ex, ey

note_angle 1, "value", gx, gy, dx, dy, ax, ay

appear Point, ox, oy, "O", left

appear Point, 10, 5, "I", left

get_angle &angle2, ox, oy, oxx, oxy get_point &bx, &by, ox, oy, angle2, 3 appear Point, bx, by, "A", below

move Compa, 10, 5, -10

rotate_compa Compa, 3, 45

bc = sqrt((bx-cx)^2+(by-cy)^2) disappear Compa

appear Point, ex, ey, "D", above

create_line bx1,by1, ax1,ay1

appear Point, bx, by, "B",below

get_intersection2 x5,y5,x6,y6,bx1,by1,ax1,ay1,ax,ay,2move Compa,x2,y2,-75

appear Point, bx, by, "B", below

11) Dựng đường thẳng song song – hai góc đồng vị

function songsong bx,by,ax,ay

get_point &x, &y, ox1, oy1, 70, 2

get_point &x1, &y1, ox1, oy1, 70, 5

create_line ox1, oy1, x1, y1

line ox, oy, ox+a, oy

line ox, oy+1, ox+m, oy+1

line ox, oy+2, ox+h, oy+2

appear Point, ox+a/2, oy, "a", belowappear Point, ox+m/2, oy+1, "m", belowappear Point, ox+h/2, oy+2, "h", below

appear Point, xx, yy, "B", below

appear Point, xx+a, yy, "C", below

move Compa, xx, yy, -80

rotate_compa Compa, radius, 80

move Compa, xx+a, yy, 110

rotate_compa Compa, radius, 260

appear Point, xx+a/2, yy-h, ""

set_paper Paper, 3, 0

get_point &cx, &cy, xx+a/2, yy, angle, mappear Point, cx, cy, "A", abovecreate_line xx, yy, xx+a, yy

create_line xx, yy, cx, cy

create_line cx, cy, xx+a, yy

create_line xx+a/2, yy, cx, cy

create_line bx1,by1, ax1,ay1

appear Point, bx, by, "B",below

set_paper XdC

get_intersection2 x5,y5,x6,y6,bx1,by1,ax1,ay1,ax,ay,2move Compa,x2,y2,-75

appear Point, ax, ay, "A", below

appear Point, bx, by, "B", below

line ox, oy, oyx, oyy

line ox, oy, oxx, oxy

appear Point, ox, oy, "O", left

get_angle &angle, ox, oy, oyx, oyy

get_point &bx, &by, ox, oy, angle, 3

appear Point, bx, by, "B", above

get_angle &angle, ox, oy, oxx, oxy

get_point &ax, &ay, ox, oy, angle, 3

appear Point, ax, ay, "A", below

move Compa, bx, by, -45

get_point &cx, &cy, bx, by, angle, 3

appear Point, cx, cy, "C", above

set_paper Paper

get_angle &angle, ox, oy, cx, cy

get_point &x, &y, ox, oy, angle, 6

create_line ox, oy, x, y

appear Point, ax, ay, "A", below

appear Point, bx, by, "B", below

line ax, ay, bx, by

radius = sqrt((ax-bx)^2 + (ay-by)^2) / 3 * 2

get_angle &angle, ax, ay, bx, by

//wait_click

set_paper Draft

appear Compa

move Compa, ax, ay, angle-90

call Compa.OpenCompa, radius

rotate_compa Compa, radius, angle+90

move Compa, bx, by, angle+90

rotate_compa Compa, radius, angle+270

appear Point, mx, my, "M", leftbelow

note_angle 0, "", bx, by, mx, my, cx, cy

note_edge 0, "", ax, ay, mx, my

get_point &ax, &ay, 4, 7, angleB, lenAB

DrawTriangle 4, 7, 4+lenBC, 7, ax, ay, B, C, A

end

function DrawTriangle x1, y1, x2, y2, x3, y3, a1, a2, a3

create_line2 x1, y1, x2, y2

appear Point, x1, y1, a1, below

appear Point, x2, y2, a2, below

note_edge -1, value, x2, y2, x1, y1

delay 12

set_paper Draft

create_arc x1, y1, lenAB, 0, 90

create_arc x2, y2, lenAC, 90, 180

appear Point, x3, y3, a3, above

input_line &px1, &py1, &px2, &py2

cut_polygon px1, py1, px2, py2

move Tamgiac2, 4, 4, -180

input_line &px1, &py1, &px2, &py2

cut_polygon px1, py1, px2, py2

get_point &ax, &ay, 4, 7, angleB, lenAB

DrawTriangle 4, 7, 4+lenBC, 7, ax, ay, B, C, A

end

function DrawTriangle x1, y1, x2, y2, x3, y3, a1, a2, a3

create_line x1, y1, x2, y2

appear Point, x1, y1, a1, below

appear Point, x2, y2, a2, below

note_edge -1, value, x2, y2, x1, y1

delay 12

create_corner x1, y1, angleB, lenAB+2

note_angle 1, value, x2, y2, x1, y1, x3, y3

set_paper Draft

create_arc x1, y1, lenAB, 0, angleB + 30

appear Pencil

move Pencil, x3, y3

appear Point, x3, y3, a3, above

appear Point, x3, y3, a3, above

get_point &x1, &y1, ax, ay, góc, 8

get_point &x2, &y2, ax, ay, góc + 90, 8

get_intersection1 &bx, &by, 4, 8, 4, 4, ax, ay, x1, y1 get_intersection1 &cx, &cy, 4, 8, 8, 8, ax, ay, x2, y2

x = bx + (cx - bx) / 2

y = by + (cy - by) / 2

erase Draft

set_paper Draft, 2, 0x0000FF

poly_line ax, ay, bx, by, cx, cy, ax, ay

appear Point, bx, by, "B", left

appear Point, cx, cy, "C", below

appear Point, x, y, "P", leftbelow

set_paper Draft, 2, 0x3F3F3F

appear Point, 4, 8, "O", leftbelow

appear Point, ax = 8, ay = 6, "A", right

line 1, 2, 1+2*cos(angleB), 2-2*sin(angleB)

line 5, 2, 1+2*cos(angleB), 2-2*sin(angleB)

line 1, 7, 1+2*cos(angleB), 7-2*sin(angleB)

line 5, 7, 1+2*cos(angleB), 7-2*sin(angleB)

note_edge 0, "", 1, 7, 5, 7

note_edge 2, "", 1, 7, 1+2*cos(angleB), 7-2*sin(angleB) note_edge 1, "", 5, 7, 1+2*cos(angleB), 7-2*sin(angleB)appear MeasurerProt,0,-1,Protractor

link A, B

move Square2, 8, 6

set_paper Draft

poly_line 4, 5, 4, 9, 11, 9, 11, 6wait_click

set_drag Square111, falsewait_click

move Square212, 11, 3, 270

set_drag Square212, false

appear HiddenText2, 4, 8.5, "Diện tích phần màu xanh là| c²"

appear HiddenText3, 11, 8.5, "Diện tích phần màu xanh là| a² + b²"

28) Dựng đường tròn nội tiếp tam giác function main

bx=4

by=9

ax=6

ay=5

set_paper Draft1,2,0xFF000

create_line cx,cy,cxx,cyy

//Tim tam I

set_paper Draft

move Pencil, ax, ay

appear Point, ax, ay, A,above

(2*(ax-bx)*(ax^2+ay^2-cx^2-cy^2)-2*(ax-cx)*(ax^2+ay^2-bx^2-by^2))/(2*(ax-ox = ((ax^2+ay^2 - bx^2-by^2)*2*(ay-cy)-(2*ay-2*by)*(ax^2+ay^2-cx^2-cy^2))/ (2*(ax-bx)*2*(ay-cy)-2*(ax-cx)*2*(ay-by))

appear Text, 8.25, 0.5, "Kéo thả chuột chọn 1 đoạn thẳng", 2

input_line &ax, &ay, &bx, &by

disappear Text

appear Point, ax, ay, "A", below

appear Point, bx, by, "B", below

create_line ax, ay, bx, by

radius = sqrt((ax-bx)^2 + (ay-by)^2) / 3 * 2

get_angle &angle, ax, ay, bx, by

set_paper Draft

appear Compa

move Compa, ax, ay, angle-90

call Compa.OpenCompa, radius

rotate_compa Compa, radius, angle+90

move Compa, bx, by, angle+90

rotate_compa Compa, radius, angle+270

disappear Compa

appear Point, mx, my, "M", leftbelow

note_angle 0, "", bx, by, mx, my, cx, cy

note_edge 0, "", ax, ay, mx, my

appear Point, ax, ay, "A", below

appear Point, bx, by, "B", below

radius = sqrt((ax-bx)^2 + (ay-by)^2)

get_angle &angle, ax, ay, bx, by

set_paper Draft

appear Compa

move Compa, ax, ay, angle

call Compa.OpenCompa, radius

rotate_compa Compa, radius, angle+360

appear Point, ax, ay, "A", below

appear Point, bx, by, "B", below

appear Point, cx, cy, "C", below

move Compa, bx, by, angle-90

call Compa.OpenCompa, radius

rotate_compa Compa, radius, angle+90

move Compa, cx, cy, angle+90

rotate_compa Compa, radius, angle+270

create_line ox, oy, 2 * mx - ox, 2 * my - oy

get_angle &angle, bx, by, cx, cy

get_point &ex, &ey, ax, ay, angle, sqrt((cx-bx)^2+(cy-by)^2)

create_line ax, ay, ex, ey

get_intersection1 &x, &y, ax, ay, ex, ey, ox, oy, 2 * mx - ox, 2 * my - oy

radius = sqrt((ax-x)^2 + (ay-y)^2)

get_angle &angle, ax, ay, x, y

set_paper Draft

appear Compa

move Compa, x, y, angle-180

call Compa.OpenCompa, radius