Вычисления в Delphi (факториал).

[Kykyx]

Здравствуйте!
Вот сама задача:

Чувствую что-то не так сдал, может кто подсказать правильность моего решения и что нужно исправить? А еще, может кто подсказать как решить под буквой "б", вроде все тоже самое надо сделать, но что-то не могу до конца понять.

procedure TForm1.btn1Click(Sender: TObject);
var
  n, i, j, f, k: integer;
  x, sum, sx: double;
begin
  x:= StrToInt(edt1.text);
  n:= StrToInt(edt2.Text);
  sum := 0;
   for i := 1 to n do
   begin
     f:=1;
     for j:=2 to i do
     f := f*j;
     if Odd(i+1) then
      k:= -1
      else
      k:= 1;
      sx:= x;
      for j:=2 to i do;
      sx:= 2*sx*x+1;
      sum:= k*(((exp(3)*ln(i))/f))*sum+sx;
  end;
   edt4.text:= floattostr(sum);
end;

[min@y™]

отформатируй, хотя бы, для начала - найдёшь половину ошибок.

procedure TForm1.btn1Click(Sender: TObject);
var
  n, i, j, f, k: integer;
  x, sum, sx: double;
begin
  x:= StrToInt(edt1.text);
  n:= StrToInt(edt2.Text);
  sum := 0;

  for i := 1 to n do
    begin
      f:=1;

      for j:=2 to i do // факториал? f точно integer хочешь?
       f := f*j;

      if Odd(i+1)      // знак ±
        then k:= -1
        else k:= 1;
        
      sx:= x;           // wtf?

      for j:=2 to i do; // wtf?
      
      sx:= 2*sx*x+1;
      
      // дальше и смотреть смысла нет
      sum:= k*(((exp(3)*ln(i))/f))*sum+sx;
    end; // for
    
  edt4.text:= floattostr(sum);
end;

Мне одному кажется, что

[Kykyx]

а кто-нибудь более адекватно может ответить и помочь новичку?

[min@y™]

а кто-нибудь более адекватно может ответить и помочь новичку?

Более адекватно - это типа написать программу за тебя?

[Аватар]

  r:=x*x;
  s:=r;
  for i:=2 to n do begin
    r:=-r*i*i*x*x/(i-1)/(i-1)/(i-1);
    s:=s+r;
  end;

  r:=x*x;
  s:=r;
  i:=1;
  repeat
    Inc(i);
    r:=-r*i*i*x*x/(i-1)/(i-1)/(i-1);
    s:=s+r;
  until Abs(r)<e;