факториал

[locdoc]

найти значение выражения 2*5!+3*8! / 6!+4! ,определяет функцию расчета факториала натурального числа!!!

[casekey]

int faktorial(int x)
{
    int y = 1;
    for (int i = 1; i<=x; i++) y = y * i;
    return y;
}

[Arigato]

Заполнение массива факториалов:

var
  Fact: array[0..12] of Integer;
  I, N: Integer;

...

  N := 1;
  Fact[0] := N;
  for I := 1 to 12 do
  begin
    N := N * I;
    Fact[I] := N;
  end; {for}

Далее просто подставляем формулу: 2*Fact[5]+3*Fact[8] / Fact[6]+Fact[4]

[Utkin]

Fact=[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
N=1
Fact[0]=1
for i in 1..12
   N=N*i
   Fact[i]=N
end

Код Arigato на Руби .
Вот факториал:

def fact(n)
    if n == 0
     1
    else
      n * fact(n-1)
    end
end

[Arigato]

Сообщение от Utkin

Fact=[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
N=1
Fact[0]=1
for i in 1..12
   N=N*i
   Fact[i]=N
end

Код Arigato на Руби .

Тогда уж так:

Fact=[1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
N=1
for i in 1..12
   N=N*i
   Fact[i]=N
end

Интересно, а если в массиве должно быть не 12, а 1000 элементов, что тогда?

[Utkin]

Сообщение от Arigato

Интересно, а если в массиве должно быть не 12, а 1000 элементов, что тогда?

Там динамические массивы, инициализировать не обязательно . Можно добавлять элементы в конец массива...

ЗЫ. Прочитал мысли ТС, ему надо на Паскале

[Arigato]

Сообщение от locdoc

определяет функцию расчета факториала натурального числа!!!

Так, вот решение данной части задачи, определяем функцию для расчета факториала:

function Fucktorial (N: Integer): Integer;
begin
  Fucktorial := 1;
  if N = 1  then Fucktorial := 1;
  if N = 2  then Fucktorial := 2;
  if N = 3  then Fucktorial := 6;
  if N = 4  then Fucktorial := 24;
  if N = 5  then Fucktorial := 120;
  if N = 6  then Fucktorial := 720;
  if N = 7  then Fucktorial := 5040;
  if N = 8  then Fucktorial := 40320;
  if N = 9  then Fucktorial := 362880;
  if N = 10 then Fucktorial := 3628800;
  if N = 11 then Fucktorial := 39916800;
  if N = 12 then Fucktorial := 479001600;
end;

Почему только до 12? Да потому, что значение большего факториала не влезет в тип Integer. А нам для задачи вообще достаточно максимум 8! уметь находить. Так что данная функция идеально подходит для решения Вашей задачи.

[Utkin]

Ну можно еще через case, тоже самое, но мне кажется, красивше будет...
Кстати, в Руби, можно и больше 12, там динамическая типизация, автоматическая конвертация в объект класса BigNum, а там длинная арифметика над целыми числами неограниченной длины.

[Arigato]

Сообщение от Utkin

Ну можно еще через case, тоже самое, но мне кажется, красивше будет...

Через case опасно, т.к. препод может спросить: "А что это такое?", и на этом студент завалится. А тут все ясно и прозрачно, что даже у препода и вопросов не возникнет. А если и возникнет, то стоит обратить его внимание на название функции, думаю, тогда все вопросы сразу отпадут

[locdoc]

Сообщение от Arigato

Так, вот решение данной части задачи, определяем функцию для расчета факториала:

function Fucktorial (N: Integer): Integer;
begin
  Fucktorial := 1;
  if N = 1  then Fucktorial := 1;
  if N = 2  then Fucktorial := 2;
  if N = 3  then Fucktorial := 6;
  if N = 4  then Fucktorial := 24;
  if N = 5  then Fucktorial := 120;
  if N = 6  then Fucktorial := 720;
  if N = 7  then Fucktorial := 5040;
  if N = 8  then Fucktorial := 40320;
  if N = 9  then Fucktorial := 362880;
  if N = 10 then Fucktorial := 3628800;
  if N = 11 then Fucktorial := 39916800;
  if N = 12 then Fucktorial := 479001600;
end;

Почему только до 12? Да потому, что значение большего факториала не влезет в тип Integer. А нам для задачи вообще достаточно максимум 8! уметь находить. Так что данная функция идеально подходит для решения Вашей задачи.

а блок схему можете на рисовать?