Не могу разобраться с рядами

[RECREATOR]

Вот такая вот задачка: для x=4,5 посчитать сумму членов ряда: (на картинке)

Вот такой вариант есть

procedure TForm1.Button1Click(Sender: TObject);
var a,z,x,y:real;
    i:integer;
begin
  x:=acc(y);
  z:=1+x;a:=x;
  for I:=2 to 10 do begin
    a:=a*x;
    z:=z+a/fact(I);
  end;
end;

[mihali4]

Что такое ACC(V) ? А где задано V ?

[RECREATOR]

function acc(var rez:Real):Real;
var
  x,y: Real;
  i: Integer;
begin
  Result:=0;
  rez := 0;
  for i := 0 to 100 do begin
    x := i / 10;
    y := sin(x) / (x + 1);
    if y < rez then begin
      rez := y;
      Result:=x;
    end;
  end;
end;

function Fact(Value: Int64): Int64;
begin
  if Value>1
  then Result:=Value*Fact(Value-1)
  else Result:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,z,x,y:real;
    i:integer;
begin
  x:=acc(y);
  z:=1+x;a:=x;
  for I:=2 to 10 do begin
    a:=a*x;
    z:=z+a/fact(I);
  end;
end;

Х я получил вот так-

procedure TForm1.Button1Click(Sender: TObject);

var
  x,y,min_x,min_y: real;
 begin
  x:=0;
  min_y:=sin(x)/(x + 1);
  min_x:=x;
    while x<=10 do begin
     x:=x+0.1;
     y:=sin(x)/(x + 1);
if y < min_y then
  begin
   min_y := y;
   min_x := x;



 end;
Label1.Caption:=FloatToStr(min_x);
Label2.Caption:=Floattostr(min_y);

end;

  end;
  end.

[Plague]

const e=0.00001;
var i:longint;
    z,p1,p2,x:real;
begin
z:=1;
x:=4.5;
i:=0;
p1:=1;
repeat
  i:=i+1;
  p2:=p1;
  p1:=p1*x/i;
  z:=z+p1;
until abs(p2-p1)<e;
writeln(z:0:2);
end.