Thứ Năm, 9 tháng 10, 2014

MÔN TIN HỌC ( chương trình vẽ logo )

THẾ GIỚI LOGO CỦA EM
š¯
-        Vẽ hình 8 lục giác ( khăn bàn )
Câu lệnh : repeat 8 [ repeat 6 [ fd 30 rt 60 ] rt 45 ]

-        Vẽ vương miện
( Htròn bên trong và Htròn bên ngoài )
Câu lệnh: Tạo thủ tục vẽ 2 hình tròn lớn và hình tròn nhỏ:
To 2hinhtron
Repeat 30 [ fd 10 rt 12 ]
Repeat 30 [ fd 5 rt 12 ]
End

To vuongmien
Repeat 30 [ fd 10 2hinhtron lt 12 ]
End

- Vẽ 9 đường thẳng
Repeat 9 [ pu fd 20 pd fd 80 bk 80 pu bk 20 pd rt 40 ]
- Vẽ 10 hình tam giác
Lt 90 repeat 10 [ repeat 3 [ fd 30 rt 120 ] fd 30 lt 36 ]
- Vẽ 10 cung tròn
Repeat 10 [ repeat 22 [ fd 4 rt 10 ] lt 180 ]
- Vẽ lá 4 cánh
Repeat 4 [ repeat 90 [ fd 2 rt 2 ] rt 90 ]


 




- Vẽ bông hoa tuyết

Repeat 6 [ fd 50 repeat 6 [ fd 10 bk 10 rt 60 ] bk 50 rt 60 ]






- Vẽ hình lục giác có các hình tròn ở các đỉnh

To hinhtron
       Reapeat 120 [ fd 10 bk 10 rt 3 ]
End

To lucgiactron
Repeat 6 [ fd 50 hinhtron rt 60 ]



- Vẽ bông hoa hướng dương
To duongtron
       Repeat 24 [ fd 5 rt 15 ]
End

To huongduong
       Repeat 24 [ duongtron fd 15 rt 360/24 ]




- Vẽ hình tam giác nhỏ dần
to tamgiac :N
IF :N = 0 [ Stop ]
Repeat 3 [ fd :N rt 120 ]
Fd :N
Tamgiac :N – 5
End
- Vẽ hình chữ nhật nhỏ dần
To chunhat :CR :CD
If :CR = 0
Repeat 2 [ fd :CR rt 90 fd :CD rt 90 ]
Fd :CR
Chunhat :CR – 5  :CD – 5
End
- Vẽ hình vuông nhỏ dần
To hinhvuong :N
If :N = 0 [ stop ]
Repeat 4 [ fd :N rt 90 ]
Fd :N
Hinhvuong :N – 5
End
-Vẽ hình tháp
( Lặp lại bởi các hình vuông nhỏ dần )
To hthap :N :D
If :D = 0 [ stop ]
Hinhvuong :N
Hthap :N :D-1
End


Vẽ khăn thêu và vòng đeo cổ
Khăn thêu: Repeat 30 [ repeat 6 [ fd 30 rt 60 ] rt 12 ]
Vòng đeo cổ:
To ngoc
Repeat 30 [ fd 1 rt 12 ]
End

To vòng cổ
Lt 180
Repeat 18 [ pu ngoc pd lt 10 fd 12 ]

ÂM NHẠC TRONG LOGO

C
ĐỒ
523
D
587
E
MI
659
F
FA
698
G
SOL
784
A
LA
880
B
SI
988
CC
ĐỐ
1046
DD
RẾ
1175
EE
1318
- Chơi từng nốt nhạc với lệnh Sound:
       Sound là lệnh để chơi 1 nốt nhạc trong logo.
Cú pháp Sound: [ số 1 số 2 ]
       Số 1: cho biết cao độ của nốt nhạc
       Số 2: cho biết trường độ của nốt nhạc ( thời gian ngân của nốt nhạc tính bằng tic. )
Ø         Nốt trắng có trường độ bằng ½ nốt tròn: o = nốt trắng + nốt trắng.
Ø         Nốt đen có trường độ bằng ½ nốt trắng: nốt trắng = nốt đen + nốt đen.
Ø         Nốt móc đơn có trường độ bằng ½ nốt đen: nốt đen = nốt móc đơn + nốt móc đơn.
Ø         Nốt móc kép có trường độ bằng ½ nốt móc đơn: nốt móc đơn = nốt móc kép + nốt móc kép.
Một móc đơn ứng với thời gian ngân là 120 tíc.





















Vẽ cây nhị phân
---š¯---
- CÁCH 1:
to cây :L
IF :L<2.5 [ STOP ]
FD :L  LT 30 WAIT 120
Cây :L/2
RT 60 WAIT 120
Cây :L/2
LT 30 WAIT 120
BK :L
END

- CÁCH 2:
To cay2  :N :D
IF :D = 0 [ STOP ]
FD :N LT 30 WAIT 120
Cay2 :N/2 :D-1
RT 60 WAIT 120
CAY2 :N/2  :D-1
LT 30 WAIT 120
BK :N
END




Không có nhận xét nào:

Đăng nhận xét