![]() |
|
Модераторы: Poseidon |
![]()
|
|
| GMisha |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 25.1.2009 Репутация: нет Всего: нет |
Помогите!!!
Задача: в указанном ярусе дерева добавить вершину с указанной меткой. Задачу нужно написать на Turbo Prolog 2.0. |
|||
|
||||
| Фантом |
|
|||
![]() Вы это прекратите! ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1516 Регистрация: 23.3.2008 Репутация: 7 Всего: 49 |
Описывайте представление дерева и методику "указывания". Иначе Ваш вопрос не имеет смысла.
P.S. Кстати, Turbo Prolog 2.0 вышел, если мне склероз не изменяет, в 1988 году. Вам писать программы для ENIAC, случаем, еще не задают? |
|||
|
||||
| GMisha |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 25.1.2009 Репутация: нет Всего: нет |
Представление и методика любая Добавлено через 14 минут и 33 секунды Помогите пожалуйста!!!!!!!!!!!!!!!!!!!!! |
|||
|
||||
| Фантом |
|
|||
![]() Вы это прекратите! ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1516 Регистрация: 23.3.2008 Репутация: 7 Всего: 49 |
||||
|
||||
| GMisha |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 25.1.2009 Репутация: нет Всего: нет |
Ярус можно задать типа N=2,3,4 наверно куда добавить вершину Это сообщение отредактировал(а) GMisha - 25.1.2009, 23:28 |
|||
|
||||
| Фантом |
|
|||
![]() Вы это прекратите! ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1516 Регистрация: 23.3.2008 Репутация: 7 Всего: 49 |
||||
|
||||
| GMisha |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 25.1.2009 Репутация: нет Всего: нет |
Вот набросал кое-что:
*** DOMAINS tree=tr(integer,tree,tree);e PREDICATES der(integer,integer,tree,tree) %(ярус,метка,исходное_дерево,результат)% CLAUSES der(1,M,T,tr(M,T,e)):-!. der(I,M,tr(X,L,R), tr(X,D,R)):- J=I-1, der(J,M,L,D),!. der(I,M,tr(X,L,R),tr(X,L,D)):- J=I-1, der(J,M,R,D). *** Помогите пожалуйста написать программу до конца Это сообщение отредактировал(а) GMisha - 27.1.2009, 14:27 |
|||
|
||||
| GMisha |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 25.1.2009 Репутация: нет Всего: нет |
Узнал, нужно сделать:
1. Прописать еще один новый предикат "добавление элемента к дереву". 2. Добавить к нему рекурсию с числом итераций равному номеру яруса, то есть типа %(дерево, метка, ярус)%. 3. Поставить счетчик чтобы рекурсия прекращалась, когда счетчик станет равным Н. Помогите теперь это дописать в программе... пожалуйста *** DOMAINS tree=tr(integer,tree,tree);e PREDICATES der(integer,integer,tree,tree) %(ярус,метка,исходное_дерево,результат)% CLAUSES der(1,M,T,tr(M,T,e)):-!. der(I,M,tr(X,L,R), tr(X,D,R)):- J=I-1, der(J,M,L,D),!. der(I,M,tr(X,L,R),tr(X,L,D)):- J=I-1, der(J,M,R,D). *** Это сообщение отредактировал(а) GMisha - 27.1.2009, 16:55 |
|||
|
||||
![]()
|
| Правила форума "Центр помощи" | |
|
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Центр помощи | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |