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

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

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

 
 Ответить  Открыть новую тему 
> Рекурсия, Pascal
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Женский

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


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


Гость






В Поиске... Вводишь рекурс*, и смотришь рекурсивные реализации процедур/функций и разные замечания на эту тему...

Или тебя интересует что-то конкретное?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Женский

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


Цитата(volvo @ 5.05.2006 9:28) *
Или тебя интересует что-то конкретное?


меня интерисует решение задачи:

Числа фиббионачи второго порядка u0,u1,u2.. определяються следующим образом:
u0=0, u1=1, u2=3;
u(n)=u(n-1)+u(n-2)+u(n-3), n=3,4,5
(n) - это индекс внизу u

я решила задачу но мен выдает ошибку что стек прееполнен, помоги найти ошибку
 program recy;
var N: integer;
F: longint;
function rec(n:integer):integer;
begin
if n=0 then rec:=0;
if n=1 then rec:=1;
if n=2 then rec:=3 else
rec:=rec(n-1)+rec(n-2)+rec(n-3);
end;
begin
write('введите N');
read(N);
F:=rec(n);
writeln('для числа ',n,' значение рекурсии = ',F);
end.

ТЭГИ!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата(Ирин @ 5.05.2006 10:51)
я решила задачу но мен выдает ошибку что стек прееполнен, помоги найти ошибку

Попробуй так:
function rec(n:integer):integer;
begin
if n=0 then rec:=0
else
if n=1 then rec:=1
else
if n=2 then rec:=3
else rec:=rec(n-1)+rec(n-2)+rec(n-3);
end;
 К началу страницы 
+ Ответить 

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

 





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