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

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

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

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

@Gabdulhanov · 25.03.2014, 13:39

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.

@hom4ka 0 / 0 / 1 Регистрация: 10.11.2013 Сообщений: 78
		1
	Описать функцию целого типа, вычисляющую значение "двойного факториала" 25.03.2014, 13:10. Показов 1515. Ответов 1 Метки нет (Все метки) Описать функцию Fact2(N) целого типа, вычисляющую значение "двойного факториала": N!! = 1•3•5•...•N, если N — нечетное, N!! = 2•4•6•...•N, если N — четное (N > 0 – параметр целого типа). С помощью этой функции вычислить двойные факториалы трех данных чисел. 0

Опции темы

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

Решение