IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> поиск чисел фибоначи рекурсией, я нечего непонел и незнаю с чего начать помогите
сообщение
Сообщение #1


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


Фибоначчо числа можно общетать рекурсией. Рекурсивные запросы можно увидить как на двоичном дереве
Прикрепленное изображение

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


непонел что надо зделать и какие значения будут в функцию поступать


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Смотри, что от тебя требуется: сначала пишем обычную рекурсивную функцию, результат работы которой показан в твоем посте:
function fib_1(n: integer): integer;
begin
writeln('calculating fib_1(', n, ')');
if n < 2 then fib_1 := n
else fib_1 := fib_1(n - 1) + fib_1(n - 2);
end;

begin
writeln('result = ', fib_1(7));
end.

Запускаем ее, и смотрим, что творится:
Цитата
result = calculating fib_1(7)
calculating fib_1(6)
calculating fib_1(5)
calculating fib_1(4)
calculating fib_1(3)
calculating fib_1(2)
calculating fib_1(1)
calculating fib_1(0)
calculating fib_1(1)
calculating fib_1(2)
calculating fib_1(1)
calculating fib_1(0)
calculating fib_1(3)
calculating fib_1(2)
calculating fib_1(1)
calculating fib_1(0)
calculating fib_1(1)
calculating fib_1(4)
calculating fib_1(3)
calculating fib_1(2)
calculating fib_1(1)
calculating fib_1(0)
calculating fib_1(1)
calculating fib_1(2)
calculating fib_1(1)
calculating fib_1(0)
calculating fib_1(5)
calculating fib_1(4)
calculating fib_1(3)
calculating fib_1(2)
calculating fib_1(1)
calculating fib_1(0)
calculating fib_1(1)
calculating fib_1(2)
calculating fib_1(1)
calculating fib_1(0)
calculating fib_1(3)
calculating fib_1(2)
calculating fib_1(1)
calculating fib_1(0)
calculating fib_1(1)
13
Видишь, сколько вызовов происходит впустую? А теперь - твоя задача: имея массив, написать такую рекурсивную функцию(с теми же самыми параметрами, функция, вычисляющая Фибоначчи, всегда принимает одно число, и возвращает результат), которая будет брать значение из массива, если оно уже вычислено, тем самым избавляясь от повторных вызовов функции. Вот что выдает моя функция:
Цитата
result = calculating fib(7)
calculating fib(6)
calculating fib(5)
calculating fib(4)
calculating fib(3)
calculating fib(2)
calculating fib(1)
calculating fib(0)
calculating fib(1)
calculating fib(2)
calculating fib(3)
calculating fib(4)
calculating fib(5)
13
Чувствуешь, насколько меньше вычислений производится, насколько разгружается стек?

А вот как она выглядит - я пока не покажу тебе... Попробуй подумать сам.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


Спасибо что подсказал мне во сечас попробую сделать я дописать функцию


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


я чегото неразобрался даже как эта рекурсия работает чегото и чего выводит 13 в последней строчке


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Помнишь, я давал тебе схему, как работает возведение в степень? Сделай точно такое же для этой функции, скажем для fib_1(4), чтоб очень много не рисовать, разберешься...

А 13 в последней строке - это и есть результат: 7-ое (если считать с нулевого) число Фибоначчи - 13: 0, 1, 1, 2, 3, 5, 8, 13
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


разобрался почему она так выводит сперва левую сторону дерева счетает потом правую и когда 7 раскладывает то получается тринадцать единиц но непонел как эти тренадцать единиц записывает все и выводит


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


я запутался когда она вызывается сама себя функцию и я как понимаю мне надо рекурсию в масиве без цикла сделать


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


ну я чегото нечего нимогу придумать


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Ну неужели же это настолько сложно??? Смотри:

{ здесь будем хранить уже вычисленные результаты }
var arr: array[0 .. 23] of integer;

function fib(n: integer): integer;
var f: integer;
begin
{ это потом уберешь, только чтобы показать, как и что вызывается }
writeln('calculating fib(', n, ')');

{ результат для текущего n уже есть? значит, сразу возвращаем его }
if arr[n] > -1 then fib := arr[n]
else begin
{ нет, arr[ n ] был равен -1, значит, N-ое число Фибоначчи
еще не вычислено... Вот и вычисляем. Так же, как и обычно }
if n < 2 then arr[n] := n
else arr[n] := fib(n - 1) + fib(n - 2);
{ а вот теперь - возвращаем то, что вычислили }
fib := arr[n];
end;

end;

var i: integer;
begin
{ чтобы функция работала правильно, заполняем весь массив
значениями (-1). Это будет признаком, что соответствующее
число Фибоначчи еще ни разу не было найдено функцией }
for i := 0 to 23 do arr[i] := -1;
writeln('result = ', fib(7));
end.

Вот и все...

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


а мочему масив до 23 ? а почему масив в самой функции нележит? мне кажется надо было чтобы массив в функции былбы

ах очень сложно мне

Сообщение отредактировано: maksimla -


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


у меня чегото выбевает ошибка это из за того что масив от 0 до 23 а цикл от 0 до 255

Сообщение отредактировано: maksimla -


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


пожалста скажите как вы эти посчетали и как вывели на экран 13
то мне еще в одной рекурсии надо подсчитать и вывести сколько обращений будет к прочедуре в другом задании


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Гость






Цитата
а мочему масив до 23 ?
Потому что начиная с 24-го значения число Фибоначчи не помещается в Integer, слишком большим становится...

Цитата
а почему масив в самой функции нележит? мне кажется надо было чтобы массив в функции былбы
Ай-яй-яй... Нельзя этого делать, тогда весь смысл использования массива пропадает: на каждом уровне рекурсии будет создаваться своя копия массива... Либо описывать внутри функции, но как типизированную константу (это тоже имеет недостаток, если интересует - расскажу), либо глобально...

Цитата
у меня чегото выбевает ошибка это из за того что масив от 0 до 23 а цикл от 0 до 255
Да, я сначала делал массив от 0 до 255, потом поменял размер, а здесь изменить забыл... Поправлю.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


Цитата(volvo @ 2.02.2009 20:24) *

Потому что начиная с 24-го значения число Фибоначчи не помещается в Integer, слишком большим становится...

Ай-яй-яй... Нельзя этого делать, тогда весь смысл использования массива пропадает: на каждом уровне рекурсии будет создаваться своя копия массива... Либо описывать внутри функции, но как типизированную константу (это тоже имеет недостаток, если интересует - расскажу), либо глобально...



раскажи какой недостаток?

Сообщение отредактировано: maksimla -


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Гость






Недостаток - это то, что надо явно инициализировать все значения. Ну ладно тут, от 0 до 23-х, всего 24 элемента. А если поменять тип на LongInt, тогда уже 46 чисел будут помещаться в этот тип, и придется написать в 2 раза больше (-1)-ниц... Но с другой стороны - есть неоспоримое преимущество: все, что уже было вычислено, второй раз вычисляться ВООБЩЕ не будет - сразу будет подставлено уже готовое значение. Особенно это эффективно, если функция вызывается не один раз, а несколько. Смотри, что будет:

function fib(n: integer): integer;
var
f: integer;
const
{ вот это и есть тот самый недостаток }
arr: array[0 .. 23] of integer = (
-1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1
);
begin
writeln('calculating fib(', n, ')');

if arr[n] > -1 then fib := arr[n]
else begin
if n < 2 then arr[n] := n
else arr[n] := fib(n - 1) + fib(n - 2);
fib := arr[n];
end;

end;

var i: integer;
begin
writeln('result = ', fib(20));
writeln('fib(12) = ', fib(12));
end.
fib(20) вычисляется обычно... А вот потом, когда вызывается еще fib(12) - никаких вычислений нет вообще, просто сразу возвращается значение из массива, и все... Запусти и посмотри, что будет...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16


Гость






Program pr40 (Input, Output);          	

Var

X : Array [1..50] Of Integer;

N : Integer;

i : Integer;
Begin
Write ('PASCAL: Вычисление чисел Фибоначчи ');

WriteLn ('по рекуррентной формуле c запоминанием членов.');

Write ('Введите количество членов (3<=N<=50): N = ');
ReadLn (N);
X [1] := 1;
X [2] := 1;
WriteLn ('Вычисленные члены:');
Write ('1 1 ');
For i := 3 To N Do
Begin
X [i] := X [i - 2] + X [i - 1];

Write (X [i]);

Write (' ');

End;
ReadLn;

End.
Теги

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #17


Гость






Гость, "Рекуррентная" - не значит "рекурсивная". Автору нужен был "гибрид" - рекурсивно, но с хранением промежуточных значений в массиве. Вопросы еще будут?

На будущее - то, что ты, kick, постишь под "гостем" - еще не значит, что Правила Форума тебя не касаются... Теги надо использовать... И программу проверять, кстати, тоже нужно... Как вариант - попробуй запустить свою программу, и ввести 49, посмотришь, что будет...
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.10.2020 23:12
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name