Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача на рекурсию

Автор: Vandrouny 22.02.2009 3:33

Доброго дня всем! Заглючил на задаче на рекурсию.
Надо значит вывести значение и номер первого положительного числа, вычисленного по формуле
Xn=Xn-1 + Xn-2 + 100 (X1=X2=-99)

Вот мой код: (выводит ошибку переполнения стека)


program labrec;
uses crt;
var
x,n:integer;
function rec(n:integer):integer;
begin
repeat
n:=n+1;
if (n=1) or (n=2) then rec:=-99
else rec:=rec(n-1)+rec(n-2)+100;
n:=n+1;
until rec(n)>0;
end;
begin
clrscr;
write(rec(n),' ',n);
readkey;
end.


Автор: Lapp 22.02.2009 21:43

Рекурсивная функция в данном случае должна выглядеть так:

function rec(n:integer):integer;
begin
if n<=2 then rec:=-99 else rec:=rec(n-1)+rec(n-2)+100;
end;

Не надо никаких repeat'ов. На то и рекурсия smile.gif

Автор: Vandrouny 23.02.2009 0:02

Спасибо, понял свою ошибку: repeat-until надо было писать не в функции а уже в теле программы.