Nội dung chính
Vẽ khung ảnh:
Độ dài của hình chữ nhật có răng cưa là 184+14+14 = 212, bên cạnh đó ta có số răng cưa của cạnh là 30 → 5 x 30 = 150. Lấy (212 – 150 )/30 = 2.06 đây là số khảng trống ta phải thêm vào giữa 2 tam giác. Ta sẽ thêm vào phía trước 1 và phía sau 1. Đường răng cưa lúc này sẽ có dạng hình như sau
Đây là kết quả khi ta thử vẽ chiều dài với 30 răng cưa, sau đó ta đi lùi lại 212 bước, so với tọa độ ban đầu (0 0) thì nó có sai một chút nhưng chấp nhận được 🙂
Code đầy đủ đây.
To Rangcua
Fd 1
Lt 60
Fd 5
Rt 120
Fd 5
Lt 60
Fd 1
End
To Thiep
Cs
SETPENCOLOR [255 0 0]
SETFLOODCOLOR [255 0 0]
Pd
Repeat 2[Repeat 30[Rangcua] Rt 90 Repeat 20[Rangcua] Rt 90] ;Răng cưa tạo hình chữ nhật bên ngoài.
Pu Fd 14 Rt 90 Fd 14 Pd ;Đi vào 14 bước để vẽ hình chữ nhật bên trong
Repeat 2[Fd 113 Lt 90 Fd 184 Lt 90] ;Hình chữ nhật bên trong.
Pu Bk 5 Fill ;Lùi ra để tô màu
End
Hoa văn hình vuông
Bài này có nhiều cách làm nhưng ở đây tôi nhận thấy các hoa văn trong hình trên được ghép từ hình căn bản này
Bài này không khó các bạn xem code nhé
To Hoa
Repeat 4[Arc2 180 50 Rt 90] Lt 90
End
To Dayhoa
Cs
Repeat 9[Hoa Pu Fd 100 Rt 90 Pd Hoa]
Rt 180 Hoa
End
To Hoavan ; Hoa Van Hinh Vuong
Dayhoa
Pu
Rt 90
Bk 100
Lt 90 Bk 200
Pd
Repeat 4[ Fd 300 Rt 90]
End
Bài toán đổi tiền
Code sau đây của cô Thạch Lựu Mộc (fb) dùng 2 vòng lặp lồng nhau để thử tất cả các trường hợp.
To Tien
CS
Rt 90
PU
Make “nghiem 1
Make “h 0
For [i 0 11 1][
For [k 0 4 1][
if(:i*2+:k*5=22)[
label (list “C :nghiem “. “loai “2d “x :i “to “loai “5d “x :k “to)
Make “h :h-30
Sety :h
Make “nghiem :nghiem+1]]]
End
Cám ơn thầy Nguyễn Lộc và cô Thạch Lựu Mộc đã cung cấp lời giải.
Cảm ơn các thầy cô đã chia sẻ <3
nhờ các thầy cô giải hộ em bài này với ạ:
bài 1: tìm các số tự nhiên bé hơn 1000 chia cho 25 dư 6 chia cho 26 dư 5
To TimSo
For [i 26 1000 1][
If AND (MODULO :i 25)=6 (MODULO :i 26)=5 [Show :i]]
End
Cách giải câu 3 quá hay. Mình có cách trình bày câu 3: tính toán như sau:
to tinhtoan
cs
ct
for[i 0 11 1] [
for [k 0 4 1][
if(:i*2+:k*5=22)[type form :i 4 0 type form :k 4 0 pr[]]]]
end
vì bài toán quy định số đầu là số tờ loại 2 đồng, số sau là loại 5 đồng nên ở đây tôi không in ra dòng số tiền 2 đồng và 5 đồng.
Bạn xem cách trình bày bài toán của tôi có được không?
Bạn nói mình mới để ý, nếu theo yêu cầu của đề thì cách trình bày như trên là chưa chính xác lắm 😀 Thanks bạn.
Cách giải bài toán của bạn hay chứ, mình cần học hỏi thêm ở bạn nhiều.
Có bài toán nào hay, hình vẽ đẹp hoặc kinh nghiệm quý thì chia sẻ với các thầy cô khác và mình nhé 🙂
cảm ơn thầy Đình Trọng rất nhiều. Thầy Đình Trọng có thể cho em tất cả các hàm trong Logo được không ạ. em tìm` tài liệu mà không có. xin cảm ơn thầy
Hàm trong mswlogo thì nhiều và khó nhớ lắm, bản thân mình khi không thuộc hàm nào hoặc muốn tìm hiểu hàm nào thì chủ yếu là tham khảo trong help của nó mà thôi, nếu máy bạn chạy xp thì help không có vấn đề gì nhưng nếu chạy windows 7, 8, 10 thì sẽ không xem help được. Mình dùng FMSW Logo, nó tiện hơn MSWLogo nhưng có một số hàm nó sẽ khác nhau, đặc biệt nó dùng được so sánh lớn hơn, nhỏ hơn hoặc bằng.
Em có 1 câu hỏi nhờ thầy chỉ giúp ạ!
” Trong một cuộc thi ban giám khảo chấm cho các bạn hs một số điểm biết rằng số điểm chia cho 19 thì dư 7 điểm, nếu chia cho 69 thì thừa 2 điểm. tìm số điểm mà ban giám khảo chấm cho các bạn hs biết số điểm mà các bạn nhận được nhiều hơn 100 và ít hơn 200″
cảm ơn các cô thầy
Câu này có một bạn hỏi tương tự trước đó rồi bạn nhé.
To TimSo
For [i 100 200 1][
If AND (MODULO :i 19)=7 (MODULO :i 69)=2 [Show :i]]
End
Thầy cô cho em hỏi
Sử dụng lệnh lặp Để vẽ 20 hình chữ nhật lồng nhau và có độ rộng mỗi nét vẽ khác nhau làm thế nào ạ?
Em cảm ơn thầy cô
To hcn :c1 :c2 ;Ve hinh chu nhat Repeat 2 [ FD :c1 Rt 90 Fd :c2 Rt 90] End To Long :k ;Ve hinh chu nhat long nhau, cach nhau 20 Make “dai 30 ;cho 1 canh la 30 Make “cao 20 ;canh con lai la 20 CS ;xoa san choi Repeat :k [ SETPENSIZE REPCOUNT+1 hcn :dai :cao ;k la so hinh chu nhat muon long nhau Pu ;nhac viet BK 20 ; di chuyen rua toi vi tri de ve hinh chu nhat ke tiep Rt 90 BK 20 Make “dai :dai+40 ;dat lai chieu dai 2… Read more »
to khunganh
rt 30 repeat 2[repeat 20[fd 7 rt 120 fd 7 lt 120] rt 90 repeat 30[fd 7 rt 120 fd 7 lt 120] rt 90]
pu home
pu setxy 14 -14
rt 90
pd repeat 2[fd 113 rt 90 fd 184 rt 90]
pu lt 90
fd 10
setfc 4 fill
pd
end
Code của bạn mình nghĩ có một vấn đề đó là độ dài răng cưa trong code của bạn là 7 đơn vị trong khi yêu cầu của đề bài chỉ là 5 đơn vị, mình đã thử code của bạn thì thấy rằng nhìn qua thì nó giống nhau nhưng nhìn kỹ thì răng cưa của bạn sắc nhọn hơn. Cám ơn bạn nhiều và rất mong nhận được những chia sẻ khác của bạn.
Bài 2 các bạn có thể vẽ như sau: (Chỉ dùng 2 thủ tục)
to hoa
repeat 4[arc2 180 50 rt 90]
end
to hinh
setpc 1 setpensize[ 3 3]
repeat 4[fd 300 rt 90]
repeat 3[hoa pu fd 100 pd]
pu home
rt 90 fd 100 lt 90 pd
repeat 3[hoa pu fd 100 pd ]
pu home rt 90 fd 200 lt 90 pd
repeat 3[hoa pu fd 100 pd]
pd
end
Quý Thầy/Cô có thể vui lòng post đề thi đầy đủ để mọi người cùng tham khảo!
Cảm ơn Quý Thầy/Cô
<3 <3 <3
Hình như có đầy đủ trên fanpage bạn vào đó tìm lại 🙂
Nhờ quý thầy cô giả giúp cho em với bàng Logo
Nhờ quý thầy cô giả giúp cho em với bàng Logo, hinh chiếc quạt
to quat
cs
repeat 180/5 [fd 100 bk 200 fd 100 fd 5 rt 5]
rt 180
repeat 180/5 [fd 100 bk 200 fd 100 fd 5 rt 5]
end
sao cái make “h :h-30 lại trừ 30?
Biến h dùng để kiểm soát việc viết trên hàng nào, giảm đi 30 để nó viết hàng này cách hàng kia 30
Giúp mình bài này với: Nhập vào một số, in ra số đó có mấy chữ số. Ví dụ: 301, in ra số 301 là số có 3 chữ số.
mình có cách mới hơn, đúng hơn ở câu 1
Bạn chỉ cho mình được không? Mình sắp tham gia cuộc thi tin học có nói về logo, chắc không có bài này đâu vì khó quá nhưng mà mình muốn học hỏi thêm. Hoặc ai có cách nào bày vẽ cho mình với.
to rangcua
pennormal
cs
setpc [ 255 0 0]
repeat 2 [ fd 184 rt 90 fd 113 rt 90]
pu
bk 14
lt 90
fd 14
rt 45
pd
repeat 30 [ fd 5 rt 90 fd 5 lt 90]
rt 90
repeat 20 [ fd 5 rt 90 fd 5 lt 90]
rt 90
repeat 30 [ fd 5 rt 90 fd 5 lt 90]
rt 90
repeat 20 [ fd 5 rt 90 fd 5 lt 90]
pu
bk 1
setfloodcolor [ 255 0 0]
fill
end
Thầy cô làm ơn chỉ em để tải msw logo thì em lên trang web nào để tải về ạ
Thầy cô ơi ! Em muốn tải msw logo thì em tải ở đâu ạ
bạn xem lại bài viết đầu tiên trong mục lập trình với mswlogo bài mswlogo là gì cà đặt như thế nào, ở đó có link tải về
THầy ơi, thầy giải giúp em bài này :Đề thi tin học trẻ bảng A, cấp Quốc gia, năm 2014
Có link :
Mong sớm nhận phản hồi từ thầy
1. Bài ngôi sao đã giải trên website từ lâu rồi Vẽ ngôi sao
2. Câu 2 và 3 cũng giải trên fanpage lâu lắm rồi
Làm bài 2 như thế này dc ko:
to hoavan
cs
repeat 3[repeat 3[repeat 4[pu fd 50 lt 90 pd arc 180 50 rt 90 pu bk 50 rt 90 pd] pu rt 90 fd 100 lt 90 pd]
pu lt 90 fd 300 rt 90 bk 100 pd]
pu fd 50 lt 90 fd 50 rt 90 pd repeat 4[fd 300 rt 90]
end