Решаем задачи Абрамян на Паскале. Recur6

Recur6. Описать рекурсивную функцию CombiN_1($$N$$, $$K$$) целого типа, находящую $$C(N, K)$$- число сочетаний из $$N$$ элементов по $$K$$ — с помощью рекуррентного соотношения: $$C(N, 0)=C(N, N)=1$$, $$C(N, K)=C(N — 1, K)+C(N — 1, K — 1)$$ при $$0<K<N$$. Параметры функции — целые числа; $$N>0$$, $$0 \le K \le N$$. Дано число $$N$$ и пять различных значений $$K$$. Вывести числа $$C(N, K)$$вместе с количеством рекурсивных вызовов функции CombiN_1, потребовавшихся для их нахождения.

Решение:

program Recur6;
var
 N,K,i,Num:integer;

Function CombiN_1(N,K:integer):integer;
begin
 if (K=0) or (K=N) then CombiN_1:=1
 else CombiN_1:=CombiN_1(N-1,K)+CombiN_1(N-1,K-1);
 inc(Num);
end;

begin
 Write('N: ');
 Readln(N);
 for i:=1 to 5 do
  begin
   Num:=0;
   Write('K: ');
   Readln(K);
   Writeln(CombiN_1(N,K));
   Writeln(Num);
  end;
end.

program Recur6;

var

N,K,i,Num:integer;

Function CombiN_1(N,K:integer):integer;

begin

if (K=0) or (K=N) then CombiN_1:=1

else CombiN_1:=CombiN_1(N-1,K)+CombiN_1(N-1,K-1);

inc(Num);

end;

begin

Write('N: ');

Readln(N);

for i:=1 to 5 do

begin

Num:=0;

Write('K: ');

Readln(K);

Writeln(CombiN_1(N,K));

Writeln(Num);

end;

end.

Другие задачи из раздела Recur можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Recur6

Комментарии:

Добавить комментарий Отменить ответ