CODE:
поднять перо
назад 200
переменная хмакс
хмакс=1000
переменная умакс
умакс=1000
массив Мас[1000]
массив Мас2[1000]
переменная ДлМас
переменная Пр
Пр = 1
переменная Л
Л = -1
ДлМас=1
Мас[1]=Л
переменная х
переменная а
переменная б
переменная в
повторить 8 {
в=1
повторить для х = 1 до ДлМас {
б=х*2
Мас2[б]=Мас[х]
Мас2[б-1]=в
Мас2[б+1]=-в
в=-в
}
повторить для х = 1 до ДлМас*2+1 {
Мас[х]=Мас2[х]
}
ДлМас=ДлМас*2+1
Пиши "ДлМас"+ДлМас
}
опустить перо
цвет 15
спрятать черепаха
повторить для х = 1 до ДлМас {
Если Мас[х]=Пр то
вперед 8
направо 45
вперед 3
направо 45
конец условия
Если Мас[х]=Л то
вперед 8
налево 45
вперед 3
налево 45
конец условия
}
вперед 10
поднять перо
назад 200
переменная хмакс
хмакс=1000
переменная умакс
умакс=1000
массив Мас[1000]
массив Мас2[1000]
переменная ДлМас
переменная Пр
Пр = 1
переменная Л
Л = -1
ДлМас=1
Мас[1]=Л
переменная х
переменная а
переменная б
переменная в
повторить 8 {
в=1
повторить для х = 1 до ДлМас {
б=х*2
Мас2[б]=Мас[х]
Мас2[б-1]=в
Мас2[б+1]=-в
в=-в
}
повторить для х = 1 до ДлМас*2+1 {
Мас[х]=Мас2[х]
}
ДлМас=ДлМас*2+1
Пиши "ДлМас"+ДлМас
}
опустить перо
цвет 15
спрятать черепаха
повторить для х = 1 до ДлМас {
Если Мас[х]=Пр то
вперед 8
направо 45
вперед 3
направо 45
конец условия
Если Мас[х]=Л то
вперед 8
налево 45
вперед 3
налево 45
конец условия
}
вперед 10
8 - максимальное количество итераций обсчета. натыкаемся на ограничение 1000 элементов одномерного массива.
Попытался хранить в двумерном массиве - но времени первый час ночи, запутался в индексах, модах и дивах. пока забил. доработаю - выложу.