Написать программный код для выражения. Паскаль.

[OlS]

Здравствуйте! Помогите, пожалуйста, написать программу через оператор FOR для задания:


программный код через оператор while не работает корректно.

var
  x, y, a: real;
  i: integer;
begin
  writeln('x =');
  readln(x);
  a := -x;
  i := 1;
  y := 0;
  while i <= 23 do
  begin
    y := y + 1 / (i * a);
    a := -a * x * x;
    inc(i, 2);
  end;
  writeln('y = ', y:0:5); 
  readln;
end.

результат из экселя

[Serge_Bliznykov]

рискну предположить, что у Вас в Excel неверно вычисляется!!
Не может этот ряд дать такую величину.
Обратите внимание, что при X>1 каждый последующий член ряда катастрофически уменьшается:
1/x = -0.5
1/3*x^3 = 0,0416666666666667
1/5*x^5 это уже = 0,00625
и т.д.
поэтому, при x=2 ответом будет значение сумма данного ряда:
y ~ -0.46365