Математическое задание

[werser]

Люди помогите решить ряд в делфи!

Ряд выглядит так:

(х^(3n+1))/((3n+1)!)

Икс в степени 3n+1 разделить на 3n+1 факториал

[MagicAlex]

function factorial(n:integer):integer;
 var i:integer;
begin
 Result:=1;
 for i:=1 to n do Result:=Result*i;
end;

function rowsum(x:extended;n:integer):extended;
 var i: integer;
begin
 Result:=0;
 for i:=1 to n do
  Result:=Result+(exp((3*n+1)*ln(x)))/factorial(3*n+1);
 end;

Вроде бы так...
Соответственно входные данные - x и n, где n - количество членов ряда...

[werser]

А можно без функций?

[Stilet]

ЛЕнтяй!

var i: integer;   
begin   
 Result:=0;   
 for i:=1 to n do   begin
   k:=1;   
 for q:=1 to (3*n+1) do k:=k*q; 
  Result:=Result+(exp((3*n+1)*ln(x)))/k;   
 end;
 end;

Кстати если быть чесным то ответ на вопрос "А можно без функций?" в данном примере категоричен - НЕТ!

[Plague]

  t:=x; // если i от 0
//t:=0; если i от 1
  s:=t;
  for i:=1 to n do
    begin
      t:=t*x*x*x/((3*i-1)*(3*i)*(3*i+1));
//    t:=t*x*x*x/(27*i*i*i-3*i);
      s:=s+t;
    end;

[werser]

Спасибо за помощь я уже сделал ! Но всеравно огромное спасибо