Выдать кол-во суммируемых элементов,сравнить значения(Pascal)

[reprain]

http://cs403327.userapi.com/v4033272...iY5LKgNHgM.jpg
первое задание. Даже не знаю с чего начать,и как делать...

[BDA]

Вот пример для другой формулы, осталось только чуток доделать.
http://programmersforum.ru/showpost....3&postcount=33

[reprain]

Сообщение от BDA

Вот пример для другой формулы, осталось только чуток доделать.
http://programmersforum.ru/showpost....3&postcount=33

ччестно говоря,мне это особо не помогло..
Для меня,совсем новичка,тяжеловато разобраться в чужом коде

[gaw4]

"тяжеловато разобраться в чужом коде"
и это правильно
намного проще в своем

[reprain]

просто я в паскеле 2 месяца только. х.х
насколько я понимаю,тут надо использовать 2 цикла? но как ==
кто нибудь может накидать код?

[gaw4]

так Тебе же показали готовый код
надо только вот тут прописать общий член своего рда
a := a * x;
s := s + a / sqr(2 * n - 1);
и writeln(s:5:5)-------writeln(s:5:5);writeln(n);

с позволения BDA
/АВС/

Program p1;
Uses crt;
const
  eps = 0.000001;
  maxiter = 200;

var
  n,ns,i: integer;
  s, s0, x, a,f: real;

begin
  writeln('-1<x<1 ? ');readln(x);
  n := 1;
  s := 0;
  repeat
    s0 := s;
    ns:=2*n-1;
    f:=1;
    for i :=2 to ns do
        f:=f*i;
    a :=  power(-1,n-1)* power(x,ns)/f;
    s := s + a ;
    inc(n);
  until (abs(s0 - s) < eps) or (n > maxiter);
  writeln(s:5:5);
   writeln ('kol   n=',n-1 );
  readln;
end.

[BDA]

Тогда и мой вариант

const
  eps = 0.0001;
  maxiter = 200;

var
  n: integer;
  s, x, a: real;

begin
  readln(x);
  if abs(x) >= 1 then
    begin
        writeln('X is not in [-1;1]');
        readln;
        exit;  
    end; 
  n := 1;
  s := x;
  a := x;
  repeat
    a := - a * x * x / ((2 * n) * (2 * n + 1));
    s := s + a;
    inc(n);
  until (abs(a) < eps) or (n > maxiter);
  writeln(s:5:5);
  writeln('count ', n);
  readln
end.

[reprain]

Спасибо большое =) надо еще пару задач решить(такого типа),но по этому коду сам их постараюсь сделать!

[gaw4]

BDA, спасибо, у Вас есть чему учиться,
а вот как на счет условия in [-1;1] , ведь ряд кажется содится для всех х

[reprain]

Сообщение от gaw4

BDA, спасибо, у Вас есть чему учиться,
а вот как на счет условия in [-1;1] , ведь ряд кажется содится для всех х

мне кажется он посмотрел на синус.
но ведь здесб он не обязательно ограничен.
Скажем мы жн сможем сказать,что син3245=это какое то число