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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.04.2011, 14:23   #1
Alerq
 
Регистрация: 06.04.2011
Сообщений: 6
По умолчанию Рекурсивная функция

Напишите пожалуйста рекурсивную функцию для нахождения суммы:
Y=3+3*3+3*3*3+...+3^N;
Заранее спасибо, просто в рекурсии я слаб((. Тут видимо нада совместить 2 рекурсии как то?
Alerq вне форума Ответить с цитированием
Старый 17.04.2011, 16:08   #2
GetMax
Форумчанин
 
Регистрация: 21.10.2010
Сообщений: 588
По умолчанию

Цитата:
Тут видимо нада совместить 2 рекурсии как то?
Не надо. Можно так сделать
Код:
Function Recurs(N:Byte):Word;
Begin
  If N=1 then Recurs:=3
  Else
    Recurs:=(Recurs(N-1)*3)+3;
End;
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681
GetMax вне форума Ответить с цитированием
Старый 17.04.2011, 18:42   #3
Alerq
 
Регистрация: 06.04.2011
Сообщений: 6
По умолчанию

Спасибо огромное!) Может еще объяснишь русскими словами технологию действия рекурсии еще раз пожалуйста, а то я не до конца понимаю.
Alerq вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рекурсивная функция Ангелина-ванила Помощь студентам 2 01.12.2010 10:21
Рекурсивная функция в С++ Ahellen Помощь студентам 7 20.09.2010 20:58
Рекурсивная функция C++ Buryy_Mishka Помощь студентам 0 31.05.2010 00:27
рекурсивная функция)) vedro-compota Общие вопросы Delphi 8 16.04.2010 14:39