To 5vuong
setpensize [ 2 2 ]
repeat 2[fd 198 rt 90 fd 66 rt 90] fd 66 lt 90 fd 66 rt 90
repeat 2[fd 66 rt 90 fd 198 rt 90]
End
To ghep
setpensize [ 2 2 ]
5vuong rt 27 setpc 4
repeat 4 [Fd 146.5 rt 90]
End
Số 27 và 146.5 tính như thế nào với trình độ của học sinh tiểu học?
Ở đây tôi nâng cấp đề bài lên ở một mức khó hơn :
Cho 5 hình vuông bằng nhau với độ dài cạnh nhập từ bàn phím. Em hãy sử dụng các câu lệnh trong MSW Logo, cắt và ghép chúng thành 1 hình vuông, tính diện tích hình vuông mới.
Khó khăn phải giải quyết : Độ dài của đường màu đỏ, góc xoay ?
Tính góc và đo khoảng cách
- Setheading Towards [x y] Xoay rùa về hướng tọa độ x, y
- Distance [x y] Đo khoảng cách từ vị trí hiện tại tới tọa độ x, y
- Heading lấy góc hiện tại của rùa
Ghép 5 hình vuông thành 1 hình vuông
To 5vuong :n
Cs ;Xóa màn hình
Ht ;ẩn rùa
Setpc 2 ;chỉnh nét vẽ màu xanh lá
Make “a :n ;Khai báo biến a bằng độ dài đưa vào để dùng sau này a là biến toàn cục
;nếu dùng n ở dưới sẽ không biết
Setpensize [3 3] ; chỉnh độ đậm nét vẽ
Repeat 4[Repeat 4 [Fd :n Rt 90] Fd :n Lt 90] ;vẽ hình chữ thập code của cô Huệ Quách
Ghep ;gọi chương trình ghép
SETHEADING 90 ;Thiết lập rùa về hướng 90
Label (list “Dien “tich “hinh “vuong “: :canh*:canh) ; Thông báo ra màn hình diện tích
End
To Ghep
Bk :a ;Đi lùi lại một đoạn là a bằng n người dùng truyền vào
SETHEADING TOWARDS (list :a :a) ;Xoay về hướng B (rùa đang ở A nhé)
Make “Goc HEADING ; Lấy giá trị góc rùa mới xoay gán vào biến Goc
;thật ra dòng này không cần thiết nhưng thêm vào cho các bạn biết để có thể xử lý các trường hợp khác.
Make “Canh Distance (list :a :a) ; đo khoảng cách từ A tới B, (list :a :a) chính là tọa độ của điểm B
Setpc 4 ;Nét vẽ màu đỏ
Repeat 4 [Fd :Canh Lt 90] ; Vẽ hình vuông màu đỏ
