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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

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

Здравствуйте, господа, программеры, прошу помочь с задачей на рекусию. Как можно функцию 1/x(n). (З.Ы. n- степень) решить с помощью рекурсии.
Заранее благодарен.
vitekbest вне форума Ответить с цитированием
Старый 30.05.2008, 22:22   #2
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Код:
function getFunc(x:extended; n:integer):extended;
var res : extended;
begin
   if n = 0
   then res := 1
   else begin
      if n > 0
      then res := getFunc(x, n-1)/x
      else res := getFunc(x, n+1)*x
   end;
   getFunc := res; 
end;
alexBlack вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рекурсия. p@ul Помощь студентам 4 30.12.2009 14:46
рекурсия Vital_k Паскаль, Turbo Pascal, PascalABC.NET 1 08.02.2008 13:09
Рекурсия АнНютик Паскаль, Turbo Pascal, PascalABC.NET 1 29.01.2008 22:50
Рекурсия Pravednik Помощь студентам 3 21.01.2008 14:18
Рекурсия Xeon332 Помощь студентам 5 16.01.2008 20:52