Изработка на програми со желка графика

Активност1: Постапка за цртање правилен n-аголник со желката:

-  Во програмата се дефинира бројот на страните

- Вкупниот периметар на n-аголникот се дели со бројот на страните за да се најде должината на една страна и на крај 360 се дели со бројот на страни за да се пресмета аголот меѓу две соседни страни.

Нацртај правилен 6-то аголник со периметар 500:

Решение:

strani= 6

perimetar=500

agol=360/strani

strana=perimetar/strani

Turtle.Speed =9

For br=1 To strani

      Turtle.Move (strana )

      Turtle.Turn (agol)

EndFor

Воочи ја операцијата за вртење на желката за агол.

Активност 2: Промени ја програмата да биде

интерактивна, односно корисникот да внесува број на 

страни и периметар на правилниот n-аголник

Решение:

TextWindow.Write (“Vnesi go brojot na strani na mnoguagolnikot:“)

strani= TextWindow .Read ()

TextWindow.Write (“Vnesi go perimetarot na mnoguagolnikot:“)

perimetar= TextWindow . Read ()

agol=360/strani

strana=perimetar/strani

Turtle.Speed =9

For br=1 To strani

    Turtle.Move (strana )

    Turtle.Turn (agol)

EndFor

Воочи дека еден дел од програмскиот код се прикажува во текстуалниот прозорец, а исцртувањата се прават во графичкиот прозорец.

Активност 3: Ако бројот на страните на n-аголникот е доволно голем желката ќе исцрта круг. Провери!

Обиди се да ја промениш програмата со додавање на уште едне циклус со бројач за исцртување на серија n-аголници меѓусебно поместени за одреден агол што се постигнува со промена на ориентација на желката за агол кој помножен со бројот на повторувања во надворешниот циклус (бројот на многуаголници) треба да биде 360.

На пример: (30- многуаголници *агол од 12 степени = 360 степени)

For k=1 To 30

  For br=1 To strani

      Turtle.Move (strana )

      Turtle.Turn (agol)

  EndFor

  Turtle.Turn (12)

EndFor