Описать функцию, вычисляющую значение "двойного факториала"

@hom4ka · Регистрация: 10.11.2013

Студворк — интернет-сервис помощи студентам

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

Pascal

uses crt;
var i,n:integer;
function fact_2(n:integer):real;
begin
if n=1 then fact_2:=1
else if n=2 then fact_2:=2
else fact_2:=n*fact_2(n-2);
end;
begin
clrscr;
repeat
Write('Vvedite n: ');
Readln(n);
Writeln('n!!=',fact_2(n));
inc(i);
until i=3;
readln;
end.

@AirXD · 25.03.2014, 16:58

Pascal

unit mod1;
interface
var i,n:integer;
function fact_2(n:integer):real;
implementation
procedure fact_2;
begin
if n=1 then fact_2:=1
else if n=2 then fact_2:=2
else fact_2:=n*fact_2(n-2);
end;
end.

Компилируешь, сохраняешь с именем mod1.
Пишешь основную прогу:

Pascal

Program <Name>;
uses crt, mod1;
begin
clrscr;
repeat
Write('Vvedite n: ');
Readln(n);
Writeln('n!!=',fact_2(n));
inc(i);
until i=3;
readln;
end.

Должно работать.

Опции темы