การเขียนโปรแกรมในลักษณะโปรแกรมย่อย

ในการเขียนโปรแกรมเพื่อสร้างงานที่มีความซับซ้อน ควรแบ่งการเขียนโปรแกรมออกเป็นส่วน ๆ เพื่อให้สะดวกในการปรับปรุงแก้ไขในภายหลัง โปรแกรมแต่ละส่วนเรียกว่าโปรแกรมย่อย (Procedure) โปรแกรมย่อยสามารถนำมาใช้ในโปรแกรมหลักได้ โดยไม่ต้องพิมพ์คำสั่งทั้งหมดซ้ำอีก เพียงพิมพ์ชื่อโปรแกรมย่อยเท่านั้น

ตัวอย่างต่อไปนี้จะแสดงวิธีการเขียนโปรแกรมย่อย เพื่อให้ได้ภาพสวนดอกไม้ โดยเขียนโปรแกรมย่อยสร้างรูปสี่เหลี่ยม (Square) ก่อน แล้วจึงเขียนโปรแกรมย่อยสร้างรูปดอกไม้ (Flower) หลังจากนั้นจึงเขียนโปรแกรมสร้างสวนดอกไม้ (Garden)

to square

repeat 4 [fd 40 rt 90]

end

to flower

fd 100

repeat 36 [rt 10 square]

setpencolor [0 0 0]

bk 100

end

to garden

pu setxy 0 0 pd

setpencolor [255 0 0] flower

pu setxy 150 0 pd

setpencolor [0 255 0] flower

pu setxy -150 0 pd

setpencolor [0 0 255] flower

end

เมื่อพิมพ์คำว่า garden ที่ช่องป้อนเข้าข้อมูล จะได้ดอกไม้จำนวน 3 ดอก 3 สี ดังภาพ

หมายเหตุ ชุดคำสั่งเพิ่มเติม

setxy ค่าบนแกนx ค่าบนแกนy

เป็นการกำหนดให้เต่าโลโกเคลื่อนไปอยู่ที่ตำแหน่งพิกัด (x,y) ซึ่งที่จุดกึ่งกลางจอภาพค่า x=0 และค่า y=0 เช่น setxy 0 0 เป็นการกำหนดให้เต่าโลโกเคลื่อนไปอยู่ที่พิกัด (0,0)

จากจุดกึ่งกลาง ค่าบนแกน x จะมีค่าเป็น + เมื่อนับไปทางขวามือ และเป็น - เมื่อนับไปทางซ้ายมือ
จากจุดกึ่งกลาง ค่าบนแกน y จะมีค่าเป็น + เมื่อนับขึ้นไปด้านบน และเป็น - เมื่อนับลงมาด้านล่าง