Решаем задачи Абрамян на Паскале. 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

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

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