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

@Zorroo · Регистрация: 19.12.2012

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

Описать функцию Fact2(N) вещественного типа, вычисляющую двой¬ной факториал:
N!! = 1 3 • 5 •... N, если N – нечетное;
N !!=2 • 4 • 6 •... N, если N – четное

Kodzaev · 18.03.2013, 21:19

Pascal

Function Fact2(n: Byte): Real;
Var i: Byte;
    k: Longint;
begin
  If n mod 2<>0 Then
  begin
    i:=1;
    k:=1;
    While i<=n do
    begin
      k:=k*i;
      Inc(i,2);
    end;
  Fact2:=k;
  end
  Else
  begin
    i:=2;
    k:=1;
    While i<=n do
    begin
      k:=k*i;
      Inc(i,2);
    end;
  end;
  Fact2:=k;
end;
Var
  t: Byte;
BEGIN
Write('Введите число: '); Readln(t);
Writeln(t,'!!=',Fact2(t):0:0);
Readln
END.

@Zorroo · 19.03.2013, 11:27 **[ТС]**

без лог инта можео?

@Puporev · 19.03.2013, 11:34

Zorroo, Нужно сменить на integer, в АВС это одно и то же

@Zorroo · 19.03.2013, 11:40 **[ТС]**

inc(a) a=a+1 да:?

@Puporev · 19.03.2013, 11:51

Да, это так

@Zorroo · 19.03.2013, 13:28 **[ТС]**

нет не правильно может кто отредактировать
он считает 1 факториал обоим

@Puporev · 19.03.2013, 13:33

Все считает правильно 4!=8 5!=15 Приведите пример где неправильно

@Zorroo 0 / 0 / 1 Регистрация: 19.12.2012 Сообщений: 178
		1
	Описать функцию вещественного типа, вычисляющую двойной факториал 18.03.2013, 17:24. Показов 2047. Ответов 7 Метки нет (Все метки) Описать функцию Fact2(N) вещественного типа, вычисляющую двой¬ной факториал: N!! = 1 3 • 5 •... N, если N – нечетное; N !!=2 • 4 • 6 •... N, если N – четное 0

@Zorroo 0 / 0 / 1 Регистрация: 19.12.2012 Сообщений: 178
	19.03.2013, 11:27 [ТС]	3
	без лог инта можео? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.03.2013, 11:34	4
	Zorroo, Нужно сменить на integer, в АВС это одно и то же 1

@Zorroo 0 / 0 / 1 Регистрация: 19.12.2012 Сообщений: 178
	19.03.2013, 11:40 [ТС]	5
	inc(a) a=a+1 да:? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.03.2013, 11:51	6
	Да, это так 0

@Zorroo 0 / 0 / 1 Регистрация: 19.12.2012 Сообщений: 178
	19.03.2013, 13:28 [ТС]	7
	нет не правильно может кто отредактировать он считает 1 факториал обоим 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.03.2013, 13:33	8
	Все считает правильно 4!=8 5!=15 Приведите пример где неправильно 0

Опции темы

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

Решение