Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
WorkSpace
0 / 0 / 0
Регистрация: 24.01.2014
Сообщений: 37
1

Не понимаю, как работает рекурсия

09.10.2014, 11:59. Просмотров 591. Ответов 6
Метки нет (Все метки)

Добрый день.
Не совсем понимаю как работает рекурсия..
Например есть,
Delphi
1
2
3
4
5
Function F(n : integer) : real;
begin
  if n = -1 then Result := 1
  else f :=  f(n+1)/(n+1);
end;
Передаем ей значение n=-3

Шаг первый - условие не выполняется - мы кладем на стек f(N+1)/-2
Шаг второй - условие не выполняется - мы кладем на стек f(N+1)/-1
Шаг третий - условие выполняется - мы кладем на стек 1
F = 1 + 1/(-1) + 1/(-2)
Все правильно? или нет

Добавлено через 12 минут
в делфи можно посмотреть, что в стек "кладется"?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2014, 11:59
Ответы с готовыми решениями:

Scanline в делфи, я не понимаю как она работает
Есть такая функция skyline в делфи, я не понимаю как она работает и как ее...

Не понимаю, почему не работает
Привет всем. Ниже очень простой код, который убирает флуд в чате. Если вы...

Тест! Не понимаю почему не работает!
Короче есть две формы с таким кодам! переменные из unit8 отправляются в unit14...

Исправление недочетов...... не понимаю почему не работает....
Программа на построение графика! 3 графика не строятся, уже почти все...

Не понимаю, как это сделать?
Даны натуральное число n, действительные числа a1,...,an. В последовательности...

6
FIL
Модератор
3422 / 2556 / 728
Регистрация: 19.09.2012
Сообщений: 7,926
09.10.2014, 12:08 2
Цитата Сообщение от WorkSpace Посмотреть сообщение
Все правильно?
Нет. Где ты сумму увидел?
В данном случае будет: 1/-1/-2=0.5
1
WorkSpace
0 / 0 / 0
Регистрация: 24.01.2014
Сообщений: 37
09.10.2014, 12:15  [ТС] 3
спасибо.
а еще нужно показать прямой и обратный вызов
прямой
1. f(-3)
2. f(-2)/-2
3. ( f(-1)/-2 ) / -1
Обратный вызов
1 -1/-2 = 0.5
2 1/-1 = -1
3 1 = 1

все верно?
0
FIL
Модератор
3422 / 2556 / 728
Регистрация: 19.09.2012
Сообщений: 7,926
09.10.2014, 12:57 4
Цитата Сообщение от WorkSpace Посмотреть сообщение
нужно показать прямой и обратный вызов
Что под этим подразумевается? Может прямой и обратный ход вычислений?
0
Mawrat
12829 / 5737 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
09.10.2014, 14:13 5
Цитата Сообщение от WorkSpace Посмотреть сообщение
в делфи можно посмотреть, что в стек "кладется"?
Можно стек вызовов посмотреть. Делается так.

1. В настройках проекта надо отключить режим оптимизации: главное меню Delphi - Project - Options... - вкладка Compiler:
- Optimization - убрать пометку.
- Debug information - поставить пометку.
2. После изменения настроек следует выполнить полное построение через вызов Project - Build <Имя проекта>.
3. Открываем окно стека вызовов: главное меню Delphi - View - Debug Windows - Call Stack.
4. Открываем окно для наблюдения за переменными Delphi - View - Debug Windows - Watches или (и) Local Variables.
5. Добавляем в окно Watches переменные, за которыми надо наблюдать. - По правой кнопке мыши или выделяя нужные переменные и нажимая Ctrl+F5. Либо можно использовать окно Local Variables - там представлены все локальные переменные.
6. В теле рекурсивной функции ставим две точки останова - на Begin и End. - Чтобы наблюдать за состоянием стека при передаче и возврате управления.

На примере функции расчёта факториала.
Delphi
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
function Fact(const aN : Integer) : Int64;
begin
  if aN < 0 then
    raise Exception.Create('Функция Fact(). Аргумент должен быть целым неотрицательным числом.');
  case aN of
    0    : Result := 1;
    1, 2 : Result := aN;
    else
      Result := aN * Fact(aN - 1);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  N : Integer;
  S : String;
begin
  N := StrToInt(Edit1.Text);
  S := IntToStr(Fact(N));
  ShowMessage(Edit1.Text + '! = ' + S);
end;
Состояние стека вызовов и локальных переменных при возврате управления на шаге, когда аргумент равен трём (aN = 3). - Вызов Fact(3) - на вершине стека.
Отладка. Стек вызовов и состояние локальных переменных.
Не понимаю, как работает рекурсия
Не понимаю, как работает рекурсия
1
NotBeginner
170 / 157 / 71
Регистрация: 22.02.2013
Сообщений: 1,770
Записей в блоге: 2
09.10.2014, 14:41 6
Цитата Сообщение от FIL Посмотреть сообщение
Может прямой и обратный ход вычислений?
да. наверно..
Mawrat, спасибо большое! то что нужно!!

Добавлено через 6 минут
http://zns.susu.ru/IT/BP/10.pdf вот тут про прямой и обратный ход нашел.. но там пример.
0
FIL
Модератор
3422 / 2556 / 728
Регистрация: 19.09.2012
Сообщений: 7,926
09.10.2014, 14:56 7
Цитата Сообщение от NotBeginner Посмотреть сообщение
да. наверно.
По твоей ссылке:
Прямой ход рекурсии. Рекурсивный вызов подпрограммы
оставляет в сегменте стека данные, помещенные туда на
предыдущем вызове подпрограммы, и записывает на вершину
стека данные текущего вызова.
Обратный ход рекурсии. При достижении базы рекурсии
рекурсивные вызовы прекращаются и начинается серия
завершений вызовов с извлечением из стека сохраненных
значений и использованием их для продолжения вычислений.
Последним завершается первый вызов.
Более простым языком:
Рекурсивные вычисления состоят из двух стадий, называемых прямым ходом и обратным ходом. Первая из них соответствует совокупности всех предвычислений, реализуемых до входа рекурсивной траектории в базу, а вторая - совокупности отложенных вычислений, производимых после встречи с индикатором завершения рекурсивных вызовов.
Добавлено через 1 минуту
Т.о. в твоем примере нет прямого хода (не считая самого рекурсивного вызова), а есть только обратный.
0
09.10.2014, 14:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2014, 14:56

Не понимаю как составить цикл программы.
Вобщем нужно написать код для решения задачи. В делфи практически полный ноль....

DELPHI подскажите как написать программы не понимаю а завтра сдавать надо
http://s017.***********/i409/1511/52/a81ab35128a2.jpg

Нужно отредактировать с учетом полученного задания, не понимаю как исправить код
С Делфи раньше никогда не работал и знаком буквально пару недель, а курсовая...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru