Необходимо посчитать сумму ряда в Delphi console

[QuadroX]

При некоторых заданных x, N и E, определяемых вводом, вычислить:

• сумму N слагаемых заданного вида;
• сумму тех слагаемых, которые по абсолютной величине больше Е.

Для второго случая выполнить суммирование для двух значений Е, отличающихся на порядок, и при этом определить количество слагаемых, включенных в сумму. Сравнить результаты с точным значением функции, для которой данная сумма определяет приближенное значение при x,
лежащем в интервале (-R, R).



Подскажите алгоритм решения и формулу, которой подчиняется этот ряд. Задачу необходимо выполнить в Delphi - консоль.

[ОДИНОЧЕСТВО В СЕТИ]

вот почитай arcsin(x)

[qasw]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

вот почитай arcsin(x)

Спасибо за инфу. Попробую разобраться.

Апаю тему ибо не разобрался. Подскажите хотя бы формулу N-го слагаемого в этом ряду.

а как её исправить

if n in [0..9] then str(n:1,s); в этой строке ошибка .скажите какая ??
:1 лишнее

[Скарам]

Скопировал со странички,ссылку на которую дала ОДИНОЧЕСТВО В СЕТИ

function arcsin (x : real) : real;
var
  i, j : integer;
  result, rs : real;

  function ipow (a : real; b : integer) : real;
  var
    res : real;
  begin
       res := 1;
       for j := 1 to b do
         res := res * a;
       ipow := res
  end;

begin
   result := 0;

   for i := 0 to 25 do
   begin
      rs := 1;

      for j := 1 to i do
           rs := rs * (2 * j - 1) / (2 * j);

      result := result + rs * ipow (x, 2 * i + 1) / (2 * i + 1)
   end;
   arcsin := result
end;

Там же есть все формулы,пояснения и тд.Может Вы не открывали даже эту страничку?..

[QuadroX]

Открывал, но не понял. В этом коде N=25?

[QuadroX]

Вот что у меня получилось:

program trydone;

{$APPTYPE CONSOLE}

uses
  Math,
  RusConsole,
  StopOnEnd;

var
  i, j, n : integer;
  s1, s2, s3, s4, a, x, b, e : real;

  function ipow (x : real; y : integer) : real;
  var
    res : real;
  begin
       res := 1;
       for j := 1 to y do
         res := res * x;
       ipow := res
  end;

begin
   s1 := 0;
   writeln('Ââåäèòå ïàðàìåòðû x, n, e');
   readln(x,n,e);
   a:=1;
   s1:=0;
   s2:=0;
   s3:=0;
   i:=1;
   while (i<=n) or (abs(b)>e) do
     begin
       a:=((2*i-1)/(2*i))*(ipow(x,2*i+1)/(2*i+1));
       if i <= n then s1:=s1+a;
       if abs(b) > e then s2:=s2+a;
       if abs(b) > e/10 then s3:=s3+a;
       i:=i+1;
     end;
 s4:=arcsin(x);
 writeln('s1=',s1:4:2, ' ','s2=',s2:4:2, ' ','s3=',s3:4:2, ' ','s4=',s4:4:2);
end.

Программа не работает как надо. Где ошибки?