Главная / Программирование на языке Pascal / Какие из приведенных ниже подпрограмм вычисляют биномиальный коэффициент (Сnk = n!/k!(n-k)!) определяемый следующим образом: Сnk = 0, если k > n; Сnk = 1, если k = 0 или k = n; Сnk = Сn-1k + Сn-1k-1 в остальных случаях.

Какие из приведенных ниже подпрограмм вычисляют биномиальный коэффициент nk = n!/k!(n-k)!) определяемый следующим образом: Сnk = 0, если k > n; Сnk = 1, если k = 0 или k = n; Сnk = Сn-1k + Сn-1k-1 в остальных случаях.

вопрос

Правильный ответ:

function f(n,k:longint):longint; var ff: longint; begin if (k=0)or(k=n) then f:= 1 else if k>n then f:= 0 else begin ff:= f(n-1,k-1)+f(n-1,k); f:= ff end; end;
function f(c:longint):longint; var a: array[1..1000]of longint; i: integer; begin a[1]:= 1; a[2]:= 1; for i:= 3 to c do a[i]:= a[i-1]+a[i-2]; f:= a[c] end;
function f(c:longint):longint; begin if c =1 then f:= 1 else f:= f(c-1)+f(c-2) end;
f(n,k:longint):longint; var a: array[0..nnn]of longint; i,j,t,tt: longint; begin if k>n then f:= 0 else if (k=n)or(k=0) then f:= 1 else begin a[0]:= 1; a[1]:= 1; for i:= 2 to k do a[i]:= 0; for i:= 2 to n do begin t:= 1; for j:= 1 to i-1 do begin tt:= a[j]+t; t:= a[j]; a[j]:= tt; end; a[i]:= 1; end end; f:= a[k] end;
Сложность вопроса
64
Сложность курса: Программирование на языке Pascal
75
Оценить вопрос
Очень сложно
Сложно
Средне
Легко
Очень легко
Комментарии:
Аноним
Экзамен сдал и ладушки. Спасибо сайту
09 авг 2018
Аноним
спасибо за тест
02 мар 2018
Оставить комментарий
Другие ответы на вопросы из темы программирование интуит.