ตัวอย่างการสร้างรูปดอกไม้เรขาคณิต

คำสั่ง ให้นักเรียนพิมพ์คำสั่งลงในโปรแกรมโลโก้ แล้วดูผลลัพธ์ทางหน้าจอ
ตัวอย่างที่ 1 สร้างดอกไม้รูปวงรี
cs ht
pu
setxy -200 200
setpencolor [255 0 0]pd
repeat 36 [ellipse 300 100 rt 10]

ตัวอย่างที่ 2 สร้างดอกไม้กลีบสี่เหลี่ยม
pu
setxy -200 -200
setpencolor [0 255 0] pd
repeat 36 [repeat 4 [fd 100 rt 90]rt 10]

ตัวอย่างที่ 3 สร้างดอกไม้กรูปวงกลม
pu
setxy 200 200
setpencolor [0 0 255]pd
make “x 10
repeat 36[circle:x make “x:x+2]

ตัวอย่างที่ 4 สร้างดอกไม้กรูปสี่เหลี่ยมเขาวงกต
pu
setxy 200 -200
setpencolor [255 0 255]pd
make “y 10
repeat 200[fd :y rt 90 make “y :y+1]

ตัวอย่างที่ 5 สร้างดอกไม้กรูปวงรี ซ้อนดอกไม้วงกลม
pu
setxy 0 0
setpencolor [0 255 255]pd
repeat 36[ellipse 30 100 rt 10]
setpencolor [255 255 0]
make “x 10
repeat 36[circle:x make “x:x+2]

……………………………………………………………………………………….

Advertisements

ใส่ความเห็น

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / เปลี่ยนแปลง )

Twitter picture

You are commenting using your Twitter account. Log Out / เปลี่ยนแปลง )

Facebook photo

You are commenting using your Facebook account. Log Out / เปลี่ยนแปลง )

Google+ photo

You are commenting using your Google+ account. Log Out / เปลี่ยนแปลง )

Connecting to %s