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

Recur2. Описать рекурсивную функцию Fact2($$N$$) вещественного типа, вычисляющую значение двойного факториала $$N!!=N*(N-2)*(N-4)*…$$ ($$N>0$$ — параметр целого типа; последний сомножитель в произведении равен $$2$$, если $$N$$ — четное число, и $$1$$, если $$N$$ — нечетное). С помощью этой функции вычислить двойные факториалы пяти данных чисел.

Решение:

program Recur2;
var
 N,i:integer;

Function Fact2(N:integer):real;
begin
 if N>1 then Fact2:=N*Fact2(N-2)
 else Fact2:=1;
end;

begin
 for i:=1 to 5 do
  begin
   Write('N: ');
   Readln(N);
   Writeln(Fact2(N));
  end;
end.

program Recur2;

var

N,i:integer;

Function Fact2(N:integer):real;

begin

if N>1 then Fact2:=N*Fact2(N-2)

else Fact2:=1;

end;

begin

for i:=1 to 5 do

begin

Write('N: ');

Readln(N);

Writeln(Fact2(N));

end;

end.

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

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

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

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