Nội dung chính
1. Vẽ và tạo hình gif
To HoaSen
CS
SETACTIVEAREA [-150 -150 150 150]
Setpc [255 0 255]
MAKE “append “FALSE
For [i 1 3 1] [
lt 45*:i
Repeat 90 [fd 1 rt 1]
(GIFSAVE “HoaSen.gif 0 :append 0) MAKE “append “TRUE
RT 90
(GIFSAVE “HoaSen.gif 0 :append 0) MAKE “append “TRUE
Repeat 90 [fd 1 rt 1]
(GIFSAVE “HoaSen.gif 0 :append 0) MAKE “append “TRUE
home ]
For [i 0 1 1] [
rt 45*:i
(GIFSAVE “HoaSen.gif 0 :append 0) MAKE “append “TRUE
repeat 90 [fd 1 rt 1]
(GIFSAVE “HoaSen.gif 0 :append 0) MAKE “append “TRUE
rt 90
(GIFSAVE “HoaSen.gif 0 :append 0) MAKE “append “TRUE
repeat 90 [fd 1 rt 1]
(GIFSAVE “HoaSen.gif 0 :append 0) MAKE “append “TRUE
Home ]
HT
End
2. Nếu bạn không muốn lưu kết quả thành file gif thì chương trình chỉ cần viết như sau:
To HoaSen
CS
Setpc [255 0 255]
For [i 1 3 1] [
Lt 45*:i
Repeat 90 [fd 1 rt 1]
Rt 90
Repeat 90 [fd 1 rt 1]
Home
]
For [i 0 1 1] [
Rt 45*:i
Repeat 90 [fd 1 rt 1]
Rt 90
Repeat 90 [fd 1 rt 1]
Home ]
HT
End
Đề thi tài năng trẻ tin học 2017 Mswlogo
To Hoasen2
CS
SetPC[255 0 255]
LT 125 Repeat 9[Repeat 2[Arc2 90 200 RT 90]RT 20]
End
3. Vẽ hoa cúc
good
cho em hỏi cái lệnh SETACTIVEAREA [-150 -150 150 150] là gì ?
Lệnh đó dùng để ghi lại màn hình thành một file hình ảnh gif, cái mà bạn thấy ở trên.
to hoasen
setsc 0 setpc 5 setpensize[3 3]
lt 135 repeat 2[repeat 90[fd 1 rt 1]rt 90]
repeat 4[rt 45 repeat 2[repeat 90[fd 1 rt 1]rt 90]]
setpc 0 setpensize[1 1]
end
Make “append “TRUE
Make “i 201
Make “t 0
Thế make “append “TRUE là gì?
Đó là lệnh để bảo Logo thêm khung hình hiện tại vào file gif, nếu muốn xuất ra ảnh gif thì nó phức tạp như thế, còn không thì bài này không có gì để nói 😀
cho em hỏi cách vẽ hoa sen 7 cánh nhé
Tương tự bài HoaSen2 thôi, bạn thay đổi số lần lặp và góc là được
To aa
CS
SetPC[255 0 255]
LT 125 Repeat 7[Repeat 2[Arc2 90 200 RT 90]RT 27]
End