ребята, помогите. цикл с факториалом

[*13*]

помогите написать программу, пожалуйста. мозг у меня уже практически не варит а на завтра она должна быть готова. у меня есть более-менее кривой набросок, но несерчайте если найдете внем глупые ошибки
итак...
Используя оператор цикла с последующим условием, вычислить сумму нескончаемого ряда, учитывая только те слогаемые, которые по абсолютной величине больше заданного числа E = 10 в минус пятой степени.
при вычислении члена ряда использовать рекурентные соотношения( вроде так звучит, сорри я с украинского перевожу )
значение Х ввести с клавы.

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
const E = 10E-5;
var s,x,ff,f:real;
k,i:integer;
begin
x:=Strtofloat(edit1.Text);
k:=1; s:=0; 
repeat
f:=1;
for i:=1 to k do f:=3*f*i;
if (k mod 2 = 5) then
ff:=(exp(3*k)*ln(x)/f)*(-1)
else ff:=(exp(3*k)*ln(x)/f);
S:=S + ff;
inc(k);
until ff >=E;
label2.visible:=true;
label2.caption:='S = '+floattostr(s);

end;

заранее БОЛЬШОЕ СПАСИБО!

[shade]

Если ничего не попутал:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
const E = 10E-5;
var
  x: real;       // x
  k: integer;
  Sk: real;      // S[k]
  Ak: real;      // A[k]
  x3: real;      // x^3
  sign: Integer; // (-1)^k
begin
  x:=Strtofloat(edit1.Text);
  x3 := x*x*x;  // x^3
  k := 1;
  sign := -1;
  Ak := x3 / 6;
  Sk := sign * Ak;  // S[1]
  while (Ak >= E)  do
  begin
    Ak := Ak * x3 / ( (3*k+1) * (3*k+2) * (3*k+3) );
    Inc(k);
    sign := - sign;
    Sk := Sk + sign * Ak;  // S[k]
  end; // while
  label2.visible:=true;
  label2.caption:='S = '+floattostr(Sk);
end;

[*13*]

Если ничего не попутал:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
const E = 10E-5;
var
  x: real;       // x
  k: integer;
  Sk: real;      // S[k]
  Ak: real;      // A[k]
  x3: real;      // x^3
  sign: Integer; // (-1)^k
begin
  x:=Strtofloat(edit1.Text);
  x3 := x*x*x;  // x^3
  k := 1;
  sign := -1;
  [b]Ak := x3 / 6;[/b]
  Sk := sign * Ak;  // S[1]
  while (Ak >= E)  do
  begin
    Ak := Ak * x3 / ( (3*k+1) * (3*k+2) * (3*k+3) );
    Inc(k);
    sign := - sign;
    Sk := Sk + sign * Ak;  // S[k]
  end; // while
  label2.visible:=true;
  label2.caption:='S = '+floattostr(Sk);
end;

спасибо, еще раз только такой вопрос, а почему А-катому присвается значение, с делением на 6 (Ak := x3 / 6)? а так вроде все понятно

[shade]

Это abs(A[1]) = x^3 / 3!

[Илья Аввакумов]

Правильно!
Не надо никаких факториалов выдумывать. Следует k-ый член в сумме вычислять через (k-1)-ый.