Звезды. Совет по программированию.

В этом проекте содержится много полезной информации, которая используется непосредственно во время работы проекта. На листе Каталог хранится список 400 наиболее ярких звезд и 88 созвездий. Звездная карта для каждого конкретного местоположения будет состоять из 145 черепашек-звезд и дополнительных трех черепашек, "исполняющих роль" неба, солнца и часов.

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

Допустим, у Вас на листе есть несколько черепашек. Воспользуйтесь примитивом нов_свойство для создания нового свойства с указанным именем у всех черепашек в проекте:
нов_свойство "созвездие

Для каждой черепашки установите значение ее свойства командой установи_созвездие:

ч1, установи_созвездие "Водолей
ч2, установи_созвездие "Водолей
ч3, установи_созвездие "Дева
...

После этого напишите процедуру, которая будет высвечивать все звезды конкретного созвездия:

это высвечивать :имя
повтори 4 [ повторить 4 раза следующее
перебор [i узнай "лист1 "черепашки] для каждой черепашки на листе,
[скажи :i принадлежащей к указанному
[если созвездие = :имя созвездию,
[сч]]] жди 3 спрячь черепашку, подожди немного;
перебор [i узнай "лист1 "черепашки] для каждой черепашки на листе,
[скажи :i принадлежащей к указанному
[если созвездие = :имя созвездию,
[пч]]] жди 3] покажи черепашку, подожди
конец немного.

Теперь   выполните следующую инструкцию:
высвечивать "Водолей.

- все звезды, принадлежащие этому созвездию, мигают!

Учителю Закрыть это окно