Программа для печати круга заданного диаметра

Question

Я пытаюсь написать программу для печати круга заданного диаметра в логотипе Беркли. Я получаю входной диаметр от пользователя программы и соответственно рисую круг. Но я не знаю ни одного способа отображения круга с учетом диаметра. Все это время я использовал,

repeat 36 [fd 10 rt 10]

нарисовать круг. Но это не то, что я хочу. Я пытался использовать формулы для диаметра, но это не работает. Кто-нибудь может помочь?

Answer 1

Сначала вы должны найти периметр, затем разделить его на общее число вращений, а затем установить его как значение форварда в вашем цикле.

Например

make "d 100
make "p 3.141592654*:d
make "i :p/36
repeat 36[fd :i rt 10]

Вы можете иметь все из них в одном утверждении, как

repeat 36[fd 3.141592654*:d/36 rt 10]

где d - принятое значение диаметра