Mswlogo vẽ hình chữ nhật lồng nhau

Đề bài : Vẽ hình chữ nhật lồng nhau với các nét vẽ khác nhau.

;Thủ tục vẽ hình chữ nhật với độ dài hai cạnh là c1 và c2

To hcn :c1 :c2 ;Ve hinh chu nhat

Repeat 2 [ FD :c1 Rt 90 Fd :c2 Rt 90]

End

;Vẽ hình chữ nhật lồng nhau

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 [
Make “pz repcount          ;dung de thay doi net ve
Setpensize (list :pz :pz)    ;tang kich thuoc net ve
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 canh tang the 40 moi canh
Make “cao :cao+40
Lt 90    Pd ]                   ;het vong lap

End

Nếu các bạn dùng FMSLogo thì ngay chỗ     Make “pz repcount     Setpensize (list :pz :pz)   ta chỉ cần 1 lệnh duy nhất Setpensize repcount là được không cần phải tạo thêm biến pz nữa, khi bạn viết code với FMSLogo thì chức năng soạn thảo của nó cũng mạnh hơn và đặc biệt là nó cho thực hiện phép toán >=, <=, MSWLogo thì không. Tuy nhiên khi đi thi thì phần lớn lại code trên MSWLogo :D. Nếu bạn copy code trên website về mà không chạy được thì có nghĩa là có một số lệnh bạn cần phải sửa lại cú pháp của nó. Phần lớn code trên website mình dùng FMSLogo, tuy nhiên bài này mình sửa lại và nó chạy tốt trên MSWLogo.