Факториал.

[dimka660i]

Имеется задача:

я вот тут какой то код написал, но без этого факториала...:

правильно ли?
Ну и главный вопрос!! какой код нужно прописать для факториала
и куда его нужно вставить??

З.Ы. мне нужно для Console Application
Подскажите пожалуйста, знающие люди, что надо дальше делать...

P.S уважаемые модеры не закрывайте тему пожалуйста!!! Если что то не так - лучше подправьте)

[ОДИНОЧЕСТВО В СЕТИ]

нужно написать функцию для вычисления факториала например:

function FacIterative(n: Word): Longint; 
var 
f: LongInt; 
i: Integer; 
begin 
f := 1; 
for i := 2 to n do f := f * i; 
Result := f; 
end;

и вызывать ее в теле программы

[Вавел из ГМТУ]

Код картинкой... бгг... Есть тег CODE.

Несовсем. Нужно написать:

S := S + Sqr(2 * i) * x / Fac(i) * (1 + x*x*x);

Иначе твой код подсчитает не сумму, а значение функции f(11).

Fac(...) - функция вычисления факториала(поищи на форуме). // ОДИНОЧЕСТВО В СЕТИ уже написала такую

адд: я тупо переписал Power(x, 0.3) хотя не понял что это значит.... Поэтому исправил на понятный кусочек x*x*x.
Вроде как Power(x, 0.3) это значит "возвести x в степень 0.3" что не равно возведение в куб.....(или я чтото спутал)

[Lime]

Раз уж тема называется факториал - Если функция реализованна простой рекурсией есть ли минусы?

     public static double factorial(double lN)
     {
         if (lN == 0)//факториал 0 равен 1 
             return 1;
         return lN * factorial(lN - 1);//обычная рекурсия, т.к. n!=n*(n-1)! 
     }

Double потому что лень типы конвертировать было 100 раз

[dimka660i]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

и вызывать ее в теле программы

А это как?
Блин народ извините за тупизм, просто я никогда не изучал этот Delphi, но с вашей помощью, изучу наверн, хоть немного
Вавел из ГМТУ
Спасибо!!

[ОДИНОЧЕСТВО В СЕТИ]

А это как?

function Fac(n: Word): Longint; 
var 
f: LongInt; 
i: Integer; 
begin 
f := 1; 
for i := 2 to n do f := f * i; 
Result := f; 
end;

вставляете перед

begin

а вместо своей формулы

s:=..........

пишите ту что вам указал Вавел из ГМТУ и запускайте програмку

[dimka660i]

ОДИНОЧЕСТВО В СЕТИ
вставил, все работает!! только вот у меня S почему то всегда 0.00, я так понимаю такого не должно быть))?

[Вавел из ГМТУ]

Покажи весь код.

(наверное "по умолчанию" x = 0, кстати скорее всего так и есть)

[dimka660i]

вообщем вот что получилось:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

var i: integer;
  s, x: real;
  function Fac(n: Word): Longint;
var
f: LongInt;
i: Integer;
begin
f := 1;
for i := 2 to n do f := f * i;
Result := f;
end;

begin
     writeln ('i');
     readln(i);
      s:=0;
     for i:=1 to 11 do begin

     S := S + Sqr(2 * i) * x / Fac(i) * (1 + x*x*x);
     end;
     writeln ('s=', s:2:2);
     readln;
end.

[Вавел из ГМТУ]

Ну так у тебя x = 0...... Задай его значение.

// см. следующий пост