Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (1.98 MB, 6 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1></div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2></div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3>
-B1: Viết thủ tục vẽ hình tam giác
- B2:
to hinh1
SETPENCOLOR 4
SETPENSIZE [3 3]
Repeat 4 [tamgiac fd 50 rt 90]
end
-b1: Viết thủ tục vẽ hình vng
- B2:
to hinh4
SETPENCOLOR 17
SETPENSIZE [3 3]
Repeat 10 [hinhvuong pu fd 58 pd rt 36]
end
to hinh8
SETPENCOLOR 10
SETPENSIZE [3 3]
Rt 90
Repeat 2 [repeat 6 [tamgiac rt 60] pu fd 50 pd]
end
to T1
CS SETPENCOLOR 4
REPEAT 30 [REPEAT 6 [FD 30 RT 60] RT 12]
PU BK 60 RT 90 BK 120
SETPENCOLOR 1
LABEL [ CHUC MUNG SINH NHAT ME ]
end
<b>to Hoavan</b>
cs ht
setpensize [2 2]
repeat 4[ellipse2 20 80 rt 90]
repeat 4[fd 160 bk 160 rt 90]
arc 360 160
bk 160 pu lt 90 fd 160 rt 90 pd
repeat 4[fd 320 rt 90]
<b>end</b>
<b>to 4hv</b>
cs ht
REPEAT 4 [REPEAT 4 [FD 100 RT 90] RT 90]
REPEAT 4 [REPEAT 4 [FD 50 RT 90] RT 90]
LT 45
REPEAT 4 [REPEAT 4 [FD 100 RT 90] RT 90]
REPEAT 4 [REPEAT 4 [FD 50 RT 90] RT 90]
<b>to tg</b>
cs ht
REPEAT 6 [REPEAT 3 [FD 100 RT 120] RT 60]
LT 30
REPEAT 6 [REPEAT 3 [FD 100 RT 120] RT 60]
<b>end</b>
RT 30 FOR [i 20 110 10] [REPEAT 3 [FD :i RT 120]
<b>to ngoisao</b>
cs ht
lt 90 repeat 3[fd 90 rt 120] fd 60 rt 60 bk 30
repeat 3[fd 90 rt 120] pu fd 30 lt 60 fd 30 rt 90 pd
repeat 6[fd 52 rt 60]
<b>end</b>
cs ht rt 18
repeat 5[fd 100 rt 144]
lt 36
repeat 5[fd 62 rt 360/5]
repeat 8[repeat 4[fd 100 rt 90] fd 100 rt 360/8]
repeat 30 [fd 3 rt 2] ; <i>vẽ một cung tròn làm cành hoa</i>
repeat 12[fd 10 bk 10 rt 360/12] ; <i>vẽ một bông hoa</i>
repeat 30[lt 2 bk 3] ; <i>lùi Rùa trở về ban đầu bằng đi ngược lại </i>
<i>của cung tròn đã tiến lên làm cành hoa.</i>
cs ht
repeat 12[hoathila rt 360/12] ; <i>vẽ 12 cành hoa</i>
<b>to hinhtron</b>
repeat 60[fd 40 bk 40 rt 6] ; <i>Vẽ bơng hoa gồm 60 bán kính </i>
<i>sát nhau.</i>
<b>end</b>
<b>to 3bonghoa</b>
cs ht
lt 20
fd 150 hinhtron bk 150 ;<i>Vẽ bông hoa thứ 1</i>
rt 20 fd 200 hinhtron bk 200; <i>Vẽ bông hoa thứ 2</i>
rt 20 fd 100 hinhtron ;<i> Vẽ bông hoa thứ 3</i>
<b>end</b>
to hinhtron
repeat 360[fd 40 bk 40 rt 1]; <i>Vẽ hình trịn (quả bóng)</i>
end
To chumbong
cs
setpc 1 hinhtron fd 50 rt 72; <i>5 quả bóng 5 màu khác nhau.</i>
setpc 2 hinhtron fd 50 rt 72
repeat 5[fd 110 bk 110 rt 12]; <i>Vẽ 5 sợi dây của quả bóng.</i>
end
<b>to vongco</b>
cs rt 180
repeat 20 [circle 6 pu fd 20 pd rt 10]
<b>end</b>
<b>to hinhtron ; </b><i>Thủ tục vẽ hình trịn có 100 bán kính</i>
repeat 100[fd 40 bk 40 rt 360/100]
<b>end</b>
<b>to mat ; </b><i>Thủ tục vẽ mắt con sâu</i>
setpc 0
repeat 360[fd 5 bk 5 rt 360/360]
<b>end</b>
<b>to consau</b>
cs st
setpc 1
repeat 15[hinhtron fd 30 rt 120/15];<i>Lệnh vẽ thân con sâu</i>
lt 45 bk 20 fd 20 rt 90 bk 20 fd 20 ; <i>Vẽ miệng con sâu</i>
lt 45 pu bk 10 pd bk 30 rt 90 mat pd; <i>Vẽ mắt con sâu</i>
pu fd 20 pd mat ; <i>Vẽ mắt con sâu</i>
<b>to canhhoa; </b><i>thủ tục vẽ một cánh hoa</i>
repeat 2[repeat 90[fd 2 rt 1] rt 90]
<b>end</b>
<b>to hoasen </b>
cs ht lt 120
repeat 12[canhhoa rt 180/13]
<b>end</b>
<b>to trangtri</b>
cs ht
label "T rt 7.5 fd 20 label "h rt 7.5 fd 20
label "a rt 7.5 fd 20 label "n rt 7.5 fd 20
setpc 2
label "h rt 7.5 fd 20 label "p rt 7.5 fd 20
label "h rt 7.5 fd 20 label "o rt 7.5 fd 20
setpc 3
label "V rt 7.5 fd 20 label "i rt 7.5 fd 20
label "n rt 7.5 fd 20 label "h rt 7.5 fd 20
setpc 4
label "Y rt 7.5 fd 20 label "e rt 7.5 fd 20
label "n rt 7.5 fd 20 label "* rt 7.5 fd 20]
setpensize [3 3]
setpc 9
repeat 360[rt 7.5 fd 20]; <i>Lệnh vẽ hình trịn bên ngồi</i>