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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.03.2015, 19:21   #1
cyx
Пользователь
 
Регистрация: 09.03.2015
Сообщений: 37
По умолчанию Рекурсия

Пожалуйста, помогите сделать рекурсию
F(n)={ 0, если n=0}
{ 1, если n=1}
{ F(n-1) + F(n-2), если n>2}
cyx вне форума Ответить с цитированием
Старый 25.03.2015, 19:37   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Код:
function F(n: Cardinal): Cardinal;
begin
  if n=0 then Result:=0
  else if n=1 then Result:=1
  else Result:=f(n-1)+f(n-2);
end;
Да, для больших чисел стек загнется
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 25.03.2015 в 19:42.
Аватар вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
рекурсия Ника-Вероника Паскаль, Turbo Pascal, PascalABC.NET 6 23.03.2012 21:43
рекурсия Lena neznayka Помощь студентам 2 16.06.2010 20:46
Рекурсия Solnze2 Паскаль, Turbo Pascal, PascalABC.NET 0 09.06.2010 09:28
Рекурсия Shadows_Behind Помощь студентам 6 26.05.2010 15:07
рекурсия -Spirit- Помощь студентам 1 14.01.2010 16:40