0 / 0 / 1
Регистрация: 17.12.2013
Сообщений: 5
1

Вычисление двойного факториала

17.12.2013, 19:15. Показов 1587. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста,исправить ошибку.
Вычисление двойного факториала (2n+1)!! (например 9!!=9*7*5*3*1);
Код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
PROGRAM PR;
USES CRT;
VAR N,I,k:INTEGER;
    P:longint;
BEGIN
CLRSCR;
WRITELN('INPUT N');READLN(N);
IF N=0 THEN WRITELN('O!=1') ELSE
IF N<0 THEN WRITELN('VVEDITE POLOGITELNOE CHISLO') ELSE
BEGIN
P:=1;
k:=2*n+1;
FOR I:=k downTO 1 DO begin
dec(i,2);
P:=P*k;
end;
WRITELN(P);
END;
READKEY;
END.
не правильно выводит ответ. Ввожу n=4, выводит 729, а должно быть 945!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2013, 19:15
Ответы с готовыми решениями:

Функция двойного факториала
Описать функцию Fact 2 (N) вещественного типа, вычисляющую значение двойного факториала ...

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

Описать функцию целого типа, вычисляющую значение "двойного факториала"
Описать функцию Fact2(N) целого типа, вычисляющую значение &quot;двойного факториала&quot;: N!! =...

Вычисление факториала и вычисление степени числа
Нужно проверить правильность сделанной программы если не правильно помогите исправить. Var...

1
696 / 570 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
17.12.2013, 22:03 2
neolanta,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var n,i:integer;
    f:longint;
begin
  write('n = ');readln(n);
  if n<0 then writeln('n>0!')
  else
  begin
    if n=0 then f:=1
    else
      begin
        f:=1; i:=1;
        repeat
          f:=f*i;
          inc(i,2);
        until i>n;
      end;
    writeln(n,'!! = ',f);
  end;
  readln
end.
Вы наверное хотели сказать n=9!!=945
0
17.12.2013, 22:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.12.2013, 22:03
Помогаю со студенческими работами здесь

Вычисление факториала в графике
Реализовать с графическим интерфейсом вычисление факториала ( рекурсивно и генерационно ) ...

Вычисление факториала с использованием рекурсии
function Factrl (n: integer): longint; begin if n = 0 then Factrl:= 1; if n = 1 then ...

Вычисление факториала с помощью рекурсии
Составление и отладка программы с внешними модулями. Написать внешний модуль для вычисления с...

Вычисление факториала с использованием функции
function fact(n:byte):integer; var k : longint; j : byte; begin k:= 1; for j:= 2 to n do...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru