Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.01.2009, 16:20   #1
Witaliy
Форумчанин Подтвердите свой е-майл
 
Регистрация: 27.04.2008
Сообщений: 179
По умолчанию Задача (рекурсивная)

Здравствуйте.
У меня возник вопрос с задачей: не могу никак сделать рекурсивной функции.

Вот самая задача:
Для украшения елки Петрик имеет в своем распоряжении гирлянду из N ламп и K разных красок для их раскрашивания. Сколькими способами он может это сделать, если никакие 2 одинаковых цвета не должны быть рядом?

Технические условия. Входные данные:
Количество ламп N та количество разных красок K.
(1 <= K,n <= 15).
Входные данные:
Количество способов раскрашивания. Если Петрик не может раскрасить гирлянду за описанными требованиями, вывести -1.

Пример:
Ввод
6 2
Вывод
2

Нужно хоть кусочек кода, или самое описание алгоритма.
Очень прошу помочь, никогда не получаются такие задачи....

Спасибо!
www.programmer.uaforums.net - Український форум програмістів.

www.satellite.ipsys.net - Український форум супутникового телебачення.
Witaliy вне форума Ответить с цитированием
Старый 21.01.2009, 04:25   #2
Min
Форумчанин
 
Регистрация: 12.09.2008
Сообщений: 239
По умолчанию

здесь походу не рекурсия, а динамика
Надо бы избавиться от привычки ставить многоточие.....
Min вне форума Ответить с цитированием
Старый 21.01.2009, 06:18   #3
Min
Форумчанин
 
Регистрация: 12.09.2008
Сообщений: 239
По умолчанию

колличество= k*((k-1)^(n-1))
все)))
и если получился 0, то выводить -1
Надо бы избавиться от привычки ставить многоточие.....
Min вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задача Ntfser Паскаль, Turbo Pascal, PascalABC.NET 6 24.10.2008 10:08