Я решил задачу на паскале. Условие задачи:
Ф-ция f(n) для целых неотрицательных n определена так: f(0)=0, f(1)=1, f(2n)=f(n), f(2n+1)=f(n)+f(n+1).
Для данного N найти и напечатать f(n).

Вот моя прога:

program zadacha;
var
a:integer;
function f(n:integer):integer;
begin
If n=0 then f:=0;
if n=1 then f:=1;
If odd(n) then f:=f(n div 2)
else f:=f(n div 2)+f((n div 2)+1)
end;
begin
Write('Vvedite chislo: '); readln(a);
write('f(a)=',f(a));
readln
end.

Проблема в выделенной строке: С этой строкой при компиляции выдаётся ошибка: "stack overflow error".
Если эту строку убрать, то прога нормально компилируется, но эта строка обязана быть здесь. Без неё никак.
Подскажите пожалуйста, что это за ошибка и как от неё избавиться, а то как только я начинаю делать прогу с рекурсией, такая фигня вылетает... Помогите плз..

| Сообщение посчитали полезным:

[poly] glot пишет:
Проблема в выделенной строке: С этой строкой при компиляции выдаётся ошибка: "stack overflow error".
не помню что там с паскалем..но имхо рекусрия получается ооочень вложенная..сделай размер стэка побольше...а лучше как нибудь переписать функу

-----
Тут не могла быть ваша реклама

| Сообщение посчитали полезным:

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

-----
Researcher

| Сообщение посчитали полезным:

Дело не в размере стека, а в неправильности описания функции. Я здесь вижу 2 причины
1. функция odd - проверка на НЕ четность, т.е. если n=2, odd(2)=false и f(2)=f(1)+f(2) <- здесь и зациклится.
2. после первых 2-х проверок должен быть выход из процедуры (f-то уже нашли), а у тебя опять его вычисление <- опять зацыклится.
Поэтому делаем так:

function f(n:integer):integer;
begin
If n=0 then f:=0 else
if n=1 then f:=1 else
If not (odd(n)) then f:=f(n div 2)
else f:=f(n div 2)+f((n div 2)+1)
end;
должно работать..

| Сообщение посчитали полезным:

Спасибо Malice, даже не представляешь, как ты меня выручил...
(А я-то всю жизнь думал, что odd - проверка на чётность...:s14

| Сообщение посчитали полезным:

Обращайся, это я еще помню
overwriter пишет:
но ведь и сам Паскаль корявый
С чего это? Не бывает корявых языков, бывают кривые програмописатели..

| Сообщение посчитали полезным:

Malice пишет:
бывают кривые програмописатели
не кривые, а криворукие) и не обижай человека!
[poly] glot
в паскале есть директива компилятора, которой задается максимальный размер стека.

-----
Уважайте других и пишите грамотно.

| Сообщение посчитали полезным:

Executioner пишет:
не кривые, а криворукие) и не обижай человека!
Сорри, если кто не так понял.. Я имел ввиду, что не надо на паскаль бочку катить, язык как язык..

| Сообщение посчитали полезным: