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

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

Решение:

program Proc35;

Function  Fact2(N:Integer):Real;
var
  i:integer;
begin
  result:=1;
  while (N>0) do
   begin
    Result:=Result*n;
    dec(n,2);
   end;
end;

var
  N,i:Integer;

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

program Proc35;

Function Fact2(N:Integer):Real;

var

i:integer;

begin

result:=1;

while (N>0) do

begin

Result:=Result*n;

dec(n,2);

end;

var

N,i:Integer;

begin

for i:=1 to 5 do

begin

Write('N :');

Readln(N);

Writeln( Fact2(N) );

end;

end.

Решение:

program Proc35;

Function  Fact2(N:Integer):Real;
var
  i:integer;
  tempRez:Real;
begin

  if odd(N) then i:=1
  Else i:=2;
  tempRez:=i;

  while (i<N) do
  begin
   i:=I+2;
   tempRez:=tempRez*i;
  end;

  Fact2:=tempRez;
end;

var
  N,i:Integer;

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

program Proc35;

Function Fact2(N:Integer):Real;

var

i:integer;

tempRez:Real;

begin

if odd(N) then i:=1

Else i:=2;

tempRez:=i;

while (i<N) do

begin

i:=I+2;

tempRez:=tempRez*i;

end;

Fact2:=tempRez;

end;

var

N,i:Integer;

begin

for i:=1 to 5 do

begin

Write('N :');

Readln(N);

Writeln( Fact2(N) );

end;

end.

Решение olegst1975:

program Proc35;

function Fact2(n:integer):real;
 var
  n1:integer;
 begin
  result:=1;
  for n1:=1 to (n+(n mod 2))div 2 do result:=result*(2*n1-(n mod 2));
 end;

var
 i,n:integer;
begin
 for i:=1 to 5 do
  begin
   read(n);
   write(Fact2(n));
  end;
end.

program Proc35;

function Fact2(n:integer):real;

var

n1:integer;

begin

result:=1;

for n1:=1 to (n+(n mod 2))div 2 do result:=result*(2*n1-(n mod 2));

end;

var

i,n:integer;

begin

for i:=1 to 5 do

begin

read(n);

write(Fact2(n));

end;

end.

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

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

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

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

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