To lucgiac

Setpencolor 2

Setpensize [1 5]

Repeat 6 [FD 100 RT 60]

End

---------------------------------------------

`-` GT:

   `+` Môt thủ tục gồm `3` phần:

        $*$ Phần đầu: To <tên thủ tục>

        $*$ Phần thân: Câu lệnh.

        $*$ Phần kết: End

   `+` Setpencolor `2:` màu xanh lá`.`

   `+` Setpensize [`1` `5`]`:` độ dày nét vẽ là `5.`

   `+` Repeat `6` [FD `100` RT `60`]`:` vẽ hình lục giác có cạnh `100.`

`@` Lưu ý: có thể thay các số được bôi đen ở thủ tục để thay đổi màu vẽ, nét vẽ và kích thước của hình.

Đáp án:

Câu lệnh lập thủ tục:

`-` Edit "hinhlucgiac"

Câu lệnh thay đổi nét vẽ, màu vẽ, làm hình:

`-` Setpensize [3  7]

`-` Setpencolor `4`

`-` Repeat 6 [fd 100 rt 60]

Bn có thể thay đổi nét bút, màu bút theo ý mình