Kurbağa ile Çokgen Çizelim

Kurbağa ile çokgen çizelim

1.KenarSayisi = 12 2.uzunluk = 400 / KenarSayisi 3.acı = 360 / KenarSayisi 4.For i = 1 To KenarSayisi 5.  Turtle.Move(uzunluk) 6.  Turtle.Turn(acı) 7.EndFor

Yukarıdaki programı çalıştırdığınızda, sonucun aşağıdaki şekildeki gibi olacağını görebilirsiniz.

Yukarıdaki örnekte kenar sayısını yükseltilince şekil bir daire şekline dönüşür.

Biraz önce öğrendiğimiz tekniği kullanarak, ilginç bir sonuç elde edecek şekilde Kurbağanın her seferinde biraz kayarak birden fazla daire çizmesini sağlayabiliriz.

KenarSayisi = 50 DaireSayisi=40 uzunluk = 400 / KenarSayisi acı = 360 / KenarSayisi  Turtle.Speed = 8 For j = 1 To DaireSayisi   For i = 1 To KenarSayisi     Turtle.Move(uzunluk)     Turtle.Turn(acı)   EndFor   Turtle.Turn(360/DaireSayisi) EndFor

Yukarıdaki programda, Hızı 8 olarak girerek, Kurbağanın daha hızlı hareket etmesini sağladık. Kurbağanın istediğiniz kadar hızlı gitmesi için, bu değeri 1 ile 10 arasında herhangi bir sayı olarak girebilirsiniz.

yukarıdaki programın ekrandaki görüntüsü