Паскаль. Рекурсии

[Nush@]

Добрый день, вечер, утро или ночь=)Я здесь впервые и как вы наверно правильно могли подумать: за помощью. Рекурсии для многих наверно не такая сложная тема, но у меня вообще с программированием туговато=) В общем в предверии более сложной темы не хотелось бы копить хвосты.
Так что я оставлю тут условие и расчитывая на ваше великодушие+)буду с нетерпением ждать ответа.
Число сочетаний с повторениями из n элементов по r определяется через рекурентные соотношения f(n,r)=f(n,r-1)+f(n-1,r), причем f(n,1)=n, f(1,n)=1. Составить рекурсивный алгоритм и написать программу, вычисляющую f(n,r) по данной формуле для 0<=r<n<=10. Полученный результат сравнить с точной формулой f(n,r)=C(r-наверху n+r-1-внизу)=(n+r-1)!/r!(n-1)!

P.S.:Задачу в Паскале я написала, но в чем ошибка не понимаю. Если вы мне напишите в агент crazy_imp@bk.ru или на этот же мейл(если вдруг агента нет)), то я вам совсем буду благодарна=))) Заранее спасибо большое!

[lexus_ilia]

Задачу в Паскале я написала, но в чем ошибка не понимаю.

Советую вам выложить свой код, а мы скажем что у вас не так...

[como]

Сообщение от Nush@

P.S.:Задачу в Паскале я написала, но в чем ошибка не понимаю.

Так ясно дело, где у вас ошибка. У вас же бесконечная рекурсия получается! И вообще вы не факториал считаете, а сумму.

PS: пойду еще кофе докуплю, а то кончается...

[Al-Fencer]

Привет Нюше! (вот уж не думал, что случайно на этом сайте встретимся )

У меня тоже вопрос по той же теме! А точнее, их два:
http://pic.ipicture.ru/uploads/081202/9rzEE05CRg.jpg
http://pic.ipicture.ru/uploads/081202/qCSTHTwm72.jpg

Пожалуйста, помогите нам!!!

[Sm1Le]

Я поражаюсь !!! Вам помощь надо или решение ? - если помощь то выкладывайте ваш КОД ! и соображения тогда будет чему помогать ! А сейчас можно только за вас выполнить задание ! а Это уже ФриЛанс =)))

[Plague]

все написанно в условии задачи

function f(n,r:longint):longint;
begin
  if r=1 then f:=n else 
  if n=1 then f:=1 else
  f:=f(n,r-1)+f(n-1,r);
end;

[como]

Сообщение от Plague

все написанно в условии задачи

function f(n,r:longint):longint;
begin
  if r=1 then f:=n else 
  if n=1 then f:=1 else
  f:=f(n,r-1)+f(n-1,r);
end;

А слабо теперь то же самое с помощью динамического программирования?

[Nush@]

Оу, простите, уважаемые, за мою неоседомленность=) ВОт код программы. Будьте добры, скажите,где ошибка?

program Funktcia;
uses crt;
var n,r:integer;

function F(n,r:integer):real;
begin
F:=F(n,r-1)+F(n-1,r);
if (r=1) then F:=n;
if (r=n) and (n=1) then F:=1;
end;

begin
if (0<=r) and (r<n) and (n<=10) then F(n,r);
end.

[como]

Сообщение от Nush@

Оу, простите, уважаемые, за мою неоседомленность=) ВОт код программы. Будьте добры, скажите,где ошибка?

program Funktcia;
uses crt;
var n,r:integer;

function F(n,r:integer):real;
begin
F:=F(n,r-1)+F(n-1,r);
if (r=1) then F:=n;
if (r=n) and (n=1) then F:=1;
end;

begin
if (0<=r) and (r<n) and (n<=10) then F(n,r);
end.

Я ж говорил. Бесконечная рекурсия.

[Nush@]

и что нужно сделать?((