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

[como]

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

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

посмотреть черной кошке в синие глаза

[Sm1Le]

Сообщение от 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.

Давайте сначала Рекурсия это - функц. которая вызывает сама себя? - правильно. бесконечная рекурсия - Это функц. которая вызивает сама себя бесконечное количество раз.Теперь давайте посмотрим что вы НАВОЯЛИ : (Вдумываться что и как я не буду, просто анализ )
if (0<=r) and (r<n) and (n<=10) then F(n,r); - тут при каких то условиях вы вызываете функцию F.Переходим в функцию :
F:=F(n,r-1)+F(n-1,r); - и на 1 -ой же строчке !!! тут вы без никаких условий снова ее вызываете !!!! Другими словами ОНА ВСЕ ВРЕМЯ САМА СЕБЯ ВЫЗЫВАЕТ БЕЗ НИКАКИХ УСЛОВИЙ !!!!
Вам надо поставить какое то условие на вызов функции к примеру как вначале ( ведь там тока при каких, а не всех, значениях переменных вызываться функция)

[Serge_Bliznykov]

пост#6. Готовое решение. не пойму, чем не понравилось.
Нужно только добавить описание и ввод данных, вызов функции и вывод результатов..
например, так:

var
  n,r : LongInt;

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;

begin
  WriteLn('Vvedite n (chislo elementov)  r (po skolko brat`)');
  ReadLn(n,r);
  if (0<=r) and (r<n) and (n<=10) then WriteLn(F(n,r));
end.

[Serge_Bliznykov]

Только, если верить этому - http://server.179.ru/tasks/cpp/functions.html
и этому - Биномиальный коэффициент
то:
Для биномиальных коэффициентов (числа сочетаний из n по k) хорошо известна рекуррентная формула: C(n,k)=C(n-1,k-1)+C(n-1,k). Вычислите значение C(n,k) пользуясь этой формулой и учитывая, что C(n,0)=C(n,n)=1.

тогда функция f() должна быть такой:

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