 Рекурсия, Pascal |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Ирин |
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 16 Пол: Женский Репутация:  0   |
где можно на форуме посмотреть материалы по рекурсии??
|
   |
 
|
| volvo |
Сообщение
#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.
ТЭГИ! |
|
|
|
| volvo |
Сообщение
#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
|
Текстовая версия | 16.04.2025 1:32 |
Связь с администрацией: bu_gen в домене octagram.name